ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
28.12.2009, 20:55
|
|
Новичок
Регистрация: 27.09.2008
Сообщений: 29
Провел на форуме:
775064
Репутация:
36
|
|
Задачки на Паскале!
Надо написать две легеньких задачки на Паскале.
На С знаю как делать, а с Паскалем не дружу )
Help Please !!!)))  
Заранее спасибо
Задачка 1:
Дано три числа. Найти и вывести на экран наименьшее число.
Задачка 2:
Дано два числа. Выводить на экран первое число если оно больше второго, в противоположном случае - виводить на екран второе. |
|
|
28.12.2009, 21:21
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 127
Провел на форуме:
1313455
Репутация:
249
|
|
Код:
program three_digit;
var
pervoe_chislo,vtoroe_chislo,tretie_chislo:integer;
begin
pervoe_chislo:=5;
vtoroe_chislo:=4;
tretie_chislo:=3;
writeln('zadanie 1');
write('naimenshee chislo = ');
if (pervoe_chislo<vtoroe_chislo) and (pervoe_chislo<tretie_chislo) then
write(pervoe_chislo)
else
if (vtoroe_chislo<pervoe_chislo) and (vtoroe_chislo<tretie_chislo) then
write(vtoroe_chislo) else write(tretie_chislo);
readln;
pervoe_chislo:=5;
vtoroe_chislo:=4;
writeln('zadanie 2');
if (pervoe_chislo>vtoroe_chislo) then writeln(pervoe_chislo) else writeln(vtoroe_chislo);
readln;
end.
Результат работы:
Код:
pervoe_chislo=5;
vtoroe_chislo=4;
tretie_chislo=3;
zadanie 1
naimenshee chislo = 3
pervoe_chislo=5;
vtoroe_chislo=4;
zadanie 2
5
pervoe_chislo=5;
vtoroe_chislo=2;
tretie_chislo=3;
zadanie 1
naimenshee chislo = 2
pervoe_chislo=2;
vtoroe_chislo=4;
zadanie 2
4
pervoe_chislo=5;
vtoroe_chislo=2;
tretie_chislo=1;
zadanie 1
naimenshee chislo = 1
pervoe_chislo=3;
vtoroe_chislo=4;
zadanie 2
4
|
|
|
|
28.12.2009, 21:29
|
|
Новичок
Регистрация: 27.09.2008
Сообщений: 29
Провел на форуме:
775064
Репутация:
36
|
|
Спс большое |
|
|
|
29.12.2009, 16:59
|
|
Iron Man#2
Регистрация: 08.07.2009
Сообщений: 2,084
Провел на форуме:
3896191
Репутация:
2562
|
|
Еще так:
Дано три числа. Найти и вывести на экран наименьшее число.
PHP код:
Program One;
var x,y,z: integer;
begin
write('Введите числа:');
read(x,y,z);
if (x<=y) then
if (x<=z) then write(x)
else write(z)
else
if (y<=z) then write(y)
else write(z);
end.
Дано два числа. Выводить на экран первое число если оно больше второго, в противоположном случае - выводить на экран второе
PHP код:
Program Two;
var x,y: integer;
begin
write('Введите числа:');
read(x,y);
if (x>y) then write(x)
else write(y);
end.
|
|
|
|
29.12.2009, 18:14
|
|
Pagan Heart
Регистрация: 12.08.2004
Сообщений: 3,791
Провел на форуме:
6490435
Репутация:
2290
|
|
https://forum.antichat.ru/thread122076.html
closed.
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
