[Pascal] - [Цикл(блок-схема]
| |
USéptimo | Дата: Четверг, 02.06.2011, 20:58 | Сообщение # 1 |
Майор
Группа: Новичок
Сообщений: 15
[ 0 ]
Статус: Offline
| и еще раз я , хд , привет) помогите нарисовать блок-схему (циклы) вот Code program esep101; var n, i: integer; p,s: real; BEGIN s:=0; WriteLn ('Введите количество элементов последовательности:'); ReadLn (n); WriteLn ('Введите последовательность'); for i:=1 to n do begin Read (p); s:=s+p; end; s:=s/n; WriteLn ('Среднее арифметическое', s:8:2); Read(i); END. и вот, 2 Code Program esep131; uses crt; var a,b: integer; begin a:=0; b:=0; writeln('Вводите после стрелки числа. Для завершения ввода '); writeln('введите ноль'); Repeat write('->'); readln(a); if a<0 then writeln ('Введено не целое положительное число!') else If a>b then b:=a; Until a=0; Write ('Максимальное число ', b); WriteLn; end. и вот 3 Code Program esep134; uses crt; const u=5; var c:integer; i:integer; a:integer; begin c:=Random(9)+1; writeln('Игра "Угадай число".'); writeln('Компьютер "задумал" число от 1 до 10.'); writeln('Введите число и нажмите <Enter>'); Repeat a:=a+1; write('->'); readln(i); until (a=u) or (c=i); if c=i then writeln('Вы выиграли! Поздравляю!') else writeln('Вы проиграли! Компьютер задумал число ',c); Readln; end.
Сообщение отредактировал USéptimo - Пятница, 03.06.2011, 08:55 |
|
| |
KOT_B_MEIIIKE | Дата: Четверг, 02.06.2011, 21:08 | Сообщение # 2 |
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
| завтра)
|
|
| |
USéptimo | Дата: Четверг, 02.06.2011, 21:12 | Сообщение # 3 |
Майор
Группа: Новичок
Сообщений: 15
[ 0 ]
Статус: Offline
| KOT_B_MEIIIKE, ок)
|
|
| |
KOT_B_MEIIIKE | Дата: Пятница, 03.06.2011, 09:15 | Сообщение # 4 |
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
| http://files.mail.ru/RXO92O наваял... n-нет, y-да. Будешь рисовать - исправь
|
|
| |
USéptimo | Дата: Пятница, 03.06.2011, 10:36 | Сообщение # 5 |
Майор
Группа: Новичок
Сообщений: 15
[ 0 ]
Статус: Offline
| спс, можешь и 3? и все)
|
|
| |
KOT_B_MEIIIKE | Дата: Пятница, 03.06.2011, 14:04 | Сообщение # 6 |
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
| в 3 проге надо строчку а:=0
|
|
| |
USéptimo | Дата: Пятница, 03.06.2011, 16:27 | Сообщение # 7 |
Майор
Группа: Новичок
Сообщений: 15
[ 0 ]
Статус: Offline
| вот посмотри правильно я нарисовал? то что ты нарисовал на power paint'e Басы - Начало Соны - Конец Добавлено (03.06.2011, 16:27) --------------------------------------------- KOT_B_MEIIIKE, непонял, че надо сделать на 3?) что заменить?
Сообщение отредактировал USéptimo - Пятница, 03.06.2011, 16:22 |
|
| |
KOT_B_MEIIIKE | Дата: Пятница, 03.06.2011, 16:46 | Сообщение # 8 |
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
| http://files.mail.ru/CB5J79 это третья во второй задаче надо обнулить переменную a, перед тем как её начинать увеличивать. во второй блоксхеме от b:=a после 2 услвия должны идти палочки не к левой вершине ромбика, а ко входу (верхней вершине). Там должно получиться Т- образное соединение. и это не Powerpaint, а Openoffice. Удобная штука кстати. мне больше нравится, правда стоит Убунту, поэтому вариантов немного))
|
|
| |
USéptimo | Дата: Пятница, 03.06.2011, 17:13 | Сообщение # 9 |
Майор
Группа: Новичок
Сообщений: 15
[ 0 ]
Статус: Offline
| KOT_B_MEIIIKE, аа)) ну я думал на Power Point'e) KOT_B_MEIIIKE, а 1 правильно?) плс можешь 2 нарисовать как и 3? а то я в блок схемах не оч) Просто у нас практика идет, типа программы делаем, вот эти 3 блок схемы, последние задачи)
Сообщение отредактировал USéptimo - Пятница, 03.06.2011, 17:13 |
|
| |
KOT_B_MEIIIKE | Дата: Пятница, 03.06.2011, 17:30 | Сообщение # 10 |
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
| ух.. я пересмотрел 2... там столько косяков было.... http://files.mail.ru/FOUW34 вот. Это нормуль. я переделал 1 и 2 немного))) теперь как у тебя. Предыдущая ссылка недоступна)
|
|
| |
USéptimo | Дата: Пятница, 03.06.2011, 19:47 | Сообщение # 11 |
Майор
Группа: Новичок
Сообщений: 15
[ 0 ]
Статус: Offline
| KOT_B_MEIIIKE, о спс друг )), чем тебе помочь? кстати, у меня есть опыт работы на юкозЕ) даже свои сайты имею хД, только они на тему аниме и музыка ыЫ
|
|
| |
KOT_B_MEIIIKE | Дата: Пятница, 03.06.2011, 20:08 | Сообщение # 12 |
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
| забей, не парься. Задачки-то не сложные))
|
|
| |
USéptimo | Дата: Пятница, 03.06.2011, 20:16 | Сообщение # 13 |
Майор
Группа: Новичок
Сообщений: 15
[ 0 ]
Статус: Offline
| KOT_B_MEIIIKE, ))
|
|
| |
|