Четверг, 28 Марта 2024, 21:06

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Программирование на pascal (Тут буду выкладывать всё чему учусь, какие программы делаю.)
Программирование на 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)
Теперь давай то же самое для произвольного количества чисел.

пока не могу
Quote (GECK)
Ок, неплохо.

спасибо
VinchensooДата: Пятница, 18 Марта 2011, 20:30 | Сообщение # 4
Злобный социопат с комплексом Бога
Сейчас нет на сайте
GECK, неплохо?
Quote (Lord16)
min,=a;

Даже не скомпилится. Плюс: а кто будет ставить ожидание ентера?

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: в чем различие между скриптовым яп и обычным компилируемым яп? Ничем.
Какое [] юнити? Какая [] дружба? Если ты не уважаешь никого, [] тебе это нужно?
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Программирование на pascal (Тут буду выкладывать всё чему учусь, какие программы делаю.)
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг