Top.Mail.Ru
Ответы

Ак написать программу в Паскале "нахождение большего из двух чисел"?!

ПОмогите пожалуйста составить алгоритм действий!!!

По дате
По рейтингу
Аватар пользователя
Просветленный
16лет

Ни в одном из выше указанных ответов нет проверки на равенство:

program maximum;
uses crt;
var a,b:integer;
begin
clrscr;
writeln ('Введите a и b: ');
readln(a, b);
if a > b then writeln ('a больше b')
else if a < b then writeln('a меньше b')
else writeln('a равно b');
readkey;
end.

Аватар пользователя
Мудрец
16лет

if a>b then
writeln "больше А "
else
writeln "больше Б"

Это не алгоритм, это у тебя в учебнике черным по белому написано.

Аватар пользователя
Ученик
6лет

var a, b, max:integer;
begin
writeln('введите два числа');
readln(a, b);
if a>b then begin
max :=a;
end
else
if b>a then begin
max :=b;
end;
writeln('ответ', max);
end.

Аватар пользователя
Ученик
8лет

program maximum;
uses crt;
var a,b:integer;
begin
clrscr;
writeln ('Введите a и b: ');
readln(a, b);
if a > b then writeln ('a больше b')
else if a < b then writeln('a меньше b')
else writeln('a равно b');
readkey;
end.

Аватар пользователя
Профи
16лет

uses crt;
var a,b: integer; // Peremennue A i B - celochislennue (tip - INTEGER)

Begin
write('Vvedite 2 chisla');
read(a,b);
if a>b than write('Pervoe bol'we')
else write('Vtoroe bol'we');
End.

алгоритм примитивен! вводишь два числа и с помощью оператора условия IF - выбираешь которое больше!

Удачи!