Задача 6 урок 9
Primary tabs
Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:С использованием логической операции and.
С вложенными блоками (без and, все опараторы if должны быть в полной форме).
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.
1 способ
program zadacha6; var a, b, c : integer; //объявляем переменные d1, d2, d3 : boolean; begin writeln('Vvedite chidlo A:'); readln(a); //вводим переменные writeln('Vvedite chidlo B:'); readln(b); writeln('Vvedite chidlo C:'); readln(C); d1:= (a>b) and (a>c); d2:= (b>a) and (b>c); d3:= (c>a) and (c>b); If d1=true then //проверяем условие writeln('naibolshee chislo ', a) else if d2=true then writeln('naibolshee chislo ', b) else if d3=true then writeln('naibolshee chislo ', c); readln(); end.
2 способ
program zadacha6; var a, b, c : integer; //объявляем переменные begin writeln('Vvedite chidlo A:'); readln(a); //вводим переменные writeln('Vvedite chidlo B:'); readln(b); writeln('Vvedite chidlo C:'); readln(c); If a>b then begin //проверяем условие if a>c then writeln('naibolshee chislo ', a) else if c>b then writeln('naibolshee chislo ', c) else if b>a then writeln('naibolshee chislo ', b); end else if b>c then writeln ('naibolshee chislo ', b) else if c>a then writeln('naibolshee chislo ', c) else writeln('naibolshee chislo ', a); readln(); end.
3 способ
program zadacha6; var a, b, c : integer; //объявляем переменные d1 : boolean; begin writeln('Vvedite chidlo A:'); readln(a); //вводим переменные writeln('Vvedite chidlo B:'); readln(b); writeln('Vvedite chidlo C:'); readln(c); d1:=a>b; //проверяем условие If d1=true then d1:=a>c; if d1=true then begin writeln('Maksimalnoe chislo ', a); end; if d1=false then begin d1:=c>b; if d1=true then writeln('Maksimalnoe chislo ', c); if d1=false then writeln('Maksimalnoe chislo ', b); end; readln(); end.
- Log in to post comments
- 2164 reads
vedro-compota
Sun, 11/07/2021 - 13:10
Permalink
2 способ оформить отдельно
_____________
матфак вгу и остальная классика =)
Denisyndi
Mon, 11/08/2021 - 18:01
Permalink
2 способ исправленный
vedro-compota
Sun, 11/14/2021 - 13:38
Permalink
If a>=b then begin
тут есть лишняя проверка
_____________
матфак вгу и остальная классика =)
Denisyndi
Mon, 11/15/2021 - 17:38
Permalink
Удалены лишние проверки из 2-го способа
vedro-compota
Wed, 11/17/2021 - 19:15
Permalink
сейчас не сработает для
сейчас не сработает для набора:
_____________
матфак вгу и остальная классика =)
Denisyndi
Wed, 11/17/2021 - 20:08
Permalink
Снова исправлено