Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Задачки на Паскале! (https://forum.antichat.xyz/showthread.php?t=166747)

Буня))) 28.12.2009 20:55
Задачки на Паскале!
 
Надо написать две легеньких задачки на Паскале.
На С знаю как делать, а с Паскалем не дружу )
Help Please !!!))) :) :D

Заранее спасибо :)

Задачка 1:

Дано три числа. Найти и вывести на экран наименьшее число.

Задачка 2:

Дано два числа. Выводить на экран первое число если оно больше второго, в противоположном случае - виводить на екран второе.

Dosia 28.12.2009 21:21
Код:
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
Спс большое :)

Keltos 29.12.2009 16:59
Еще так:

Цитата:
Дано три числа. Найти и вывести на экран наименьшее число.
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. 

nerezus 29.12.2009 18:14
https://forum.antichat.ru/thread122076.html
closed.


Время: 18:15