[Pascal] - [Цикл(блок-схема] - Форум
Пятница, 09.12.2016, 06:51
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » [Pascal] - [Цикл(блок-схема] ([2.06.11] - [Цикл(блок-схема)])
[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.

biggrin


Сообщение отредактировал 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?) что заменить? wink

Прикрепления: 5486208.png(13Kb) · 2416870.png(16Kb)


Сообщение отредактировал 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, о спс друг )), чем тебе помочь?
кстати, у меня есть опыт работы на юкозЕ) даже свои сайты имею хД, только они на тему аниме и музыка ыЫ

biggrin
 
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, ))
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » [Pascal] - [Цикл(блок-схема] ([2.06.11] - [Цикл(блок-схема)])
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016