|
Программирование на pascal
|
|
| Lord16 | Дата: Пятница, 18 Марта 2011, 20:06 | Сообщение # 1 |
|
Gruppo0
Сейчас нет на сайте
| Вот решил что кому нибудь будет интересно посмотреть на то какого уровня задачи решаю:)
Это конечно не высоко, но паскаль буду учить до конца(т.е. полный курс) т.к изучаем его в школе.
В процессе развития моих знаний буду выкладывать всё новые и новые примеры. Напишите программу которое будет находить наименьшее число.
Quote program ex_1; var a,b,min: integer; begin writeln('введите 2 числа'); readln(a,b); if a>b then min:=b else min,=a; writeln('наименьшее ',min); end.
Сообщение отредактировал Lord16 - Пятница, 18 Марта 2011, 20:13 |
|
|
| |
| GECK | Дата: Пятница, 18 Марта 2011, 20:16 | Сообщение # 2 |
заслуженный участник
Сейчас нет на сайте
| Ок, неплохо.
Теперь давай то же самое для произвольного количества чисел.
Всё гениальное просто. И хреново работает.
|
|
|
| |
| Lord16 | Дата: Пятница, 18 Марта 2011, 20:22 | Сообщение # 3 |
|
Gruppo0
Сейчас нет на сайте
| Quote (GECK) Теперь давай то же самое для произвольного количества чисел.
пока не могу
спасибо
|
|
|
| |
| Vinchensoo | Дата: Пятница, 18 Марта 2011, 20:30 | Сообщение # 4 |
Злобный социопат с комплексом Бога
Сейчас нет на сайте
| GECK, неплохо?
Даже не скомпилится. Плюс: а кто будет ставить ожидание ентера? Code {Слово program наф не надо}
var a,b:integer;
writeln('Print 2 number');
readln(a,b);
if a=>b then writeln(b)
else writeln(a);
readln;
end.
|
|
|
| |
| Matou | Дата: Пятница, 18 Марта 2011, 20:37 | Сообщение # 5 |
Исходный коТ
Сейчас нет на сайте
| Quote (Lord16) пока не могу
Так учись и выкладывай, а мы будем наблюдать и издеваться, как например Vinchensoo)
|
|
|
| |
| ezhickovich | Дата: Пятница, 18 Марта 2011, 20:45 | Сообщение # 6 |
[Великий и могучий хозяинъ]
Сейчас нет на сайте
| Matou, Да это ещё не издёвка =)
Я: О великий повелитель этой ничтожной вселенной - сокращённо ЁЖ!
|
|
|
| |
| GECK | Дата: Пятница, 18 Марта 2011, 20:47 | Сообщение # 7 |
|
заслуженный участник
Сейчас нет на сайте
| Vinchensoo, в код не всматривался. Некуда всматриваться-то)
Всё гениальное просто. И хреново работает.
Сообщение отредактировал GECK - Пятница, 18 Марта 2011, 20:48 |
|
|
| |
| Lord16 | Дата: Пятница, 18 Марта 2011, 21:05 | Сообщение # 8 |
|
Gruppo0
Сейчас нет на сайте
| Quote (Vinchensoo) Даже не скомпилится
да ошибка
Quote (Vinchensoo) Слово program наф не надо
Да ладно блин? а то я без тебя не знал.
привык простоQuote (GECK) Некуда всматриваться-то
пока да некуда.
|
|
|
| |
| Stage | Дата: Суббота, 19 Марта 2011, 00:18 | Сообщение # 9 |
|
постоянный участник
Сейчас нет на сайте
| Why so serious? Кому интересно твои хеллоуворлды смотреть?
|
|
|
| |
| Lord16 | Дата: Суббота, 19 Марта 2011, 06:38 | Сообщение # 10 |
|
Gruppo0
Сейчас нет на сайте
| Stage, В дальнейшем по мере углубления в паскаль программы будут сложнее и сложнее.
|
|
|
| |
| Dinaros | Дата: Воскресенье, 20 Марта 2011, 17:44 | Сообщение # 11 |
почти ветеран
Сейчас нет на сайте
| Даже у меня дальше ушло. Хотя у меня тоже уроки унылые до невозможности и я их оставил на потом.
|
|
|
| |
| pyatnica70rus | Дата: Воскресенье, 01 Мая 2011, 19:35 | Сообщение # 12 |
почетный гость
Сейчас нет на сайте
| "program <name>" - жизненно необходимо, парень! Так держать. Пишешь его - добьешься в жизни всего) Не шучу.
Robrain
noTformaT: в чем различие между скриптовым яп и обычным компилируемым яп? Ничем.
Какое [] юнити? Какая [] дружба? Если ты не уважаешь никого, [] тебе это нужно?
|
|
|
| |
