Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.08.2010, 12:18   #1
Berehuli4ka
Новичок
Джуниор
 
Регистрация: 27.08.2010
Сообщений: 1
По умолчанию нужно нарисовать алгоритмы

задача.1

Найти максимальное число в последовательности из трех чисел, задаваемых произвольно
алг.Max
арг:a,b,c,max:real;
рез:max;
поч.
max:=a;
если max<b то max:=b;
если max<c то max:=c;
кін.

задача 2

По номеру дня недели вывести его название
алг. День недели;
арг.n;
вибери n з:
1:writeln(понеділок);
2:writeln(вівторок);
3:writeln(середа);
4:writeln(четвер);
5:writeln(п’ятниця);
6:writeln(субота);
7:writeln(неділя);
Иначеwriteln(неправильний ввод);
кін.
кін.

From Stilet: Мы русскоязычный портал, рекомендую перевод постить, иначе многие не поймут.

Последний раз редактировалось Stilet; 27.08.2010 в 12:25.
Berehuli4ka вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужно нарисовать 3 блок-схемы.. ilnar21 Помощь студентам 2 15.06.2010 14:24
надо нарисовать блок-схему к программке(нужно до завтра) P1rate БД в Delphi 1 11.06.2010 06:00
нужно нарисовать петуха в паскале ddeman666 Фриланс 4 08.06.2010 10:51