Задача 7 Урок 9
Primary tabs
Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).
Примечание: решение с помощью AND более удобно на практике, но для тренировки понимания тут мы решаем через вложенные блоки.
var a, b, c, d : integer;
begin
writeln('vvedite a, b, c, d');
readln(a, b, c, d);
if (a > b) then
begin
if (a > c) then
writeln ('a naibolshee')
else
writeln ('d naibolshee')
end
else if
(b > c) then
begin
if (b > d) then
writeln ('b naibolshee')
end
else if
(c > d) then
begin
writeln ('c naibolshee')
end
else
writeln ('d naibolshee');
readln();
end.
Консоль:
vvedite a, b, c, d 1 2 3 4 d naibolshee
- Log in to post comments
- 9699 reads
vedro-compota
Sat, 02/26/2022 - 20:48
Permalink
подумать над решением еще,
подумать над решением еще, структура кода тут должна быть как во втором варианте максимума из трех http://fkn.ktu10.com/?q=node/14790
+ все операторы в данном решении лучше сделать в полной форме
_____________
матфак вгу и остальная классика =)
vedro-compota
Sat, 03/05/2022 - 20:40
Permalink
if (a > b) then
1)
-- этого не достаточно чтобы сделать вывод, что а - наибольшее число, надо же еще сравнить его с d.
2)
-- форматирование, else должен быть под if к которому относится
_____________
матфак вгу и остальная классика =)
Neoanthropus
Sun, 03/06/2022 - 22:36
Permalink
var a, b, c, d : integer;
var a, b, c, d : integer; begin writeln('vvedite a, b, c, d'); readln(a, b, c, d); if (a > b) then begin if (a > c) then if (a > d) then writeln ('a naibolshee') end else if (b > c) then begin if (b > d) then writeln ('b naibolshee') end else if (c > d) then writeln ('c naibolshee') else writeln ('d naibolshee'); readln(); end.vedro-compota
Fri, 03/11/2022 - 14:27
Permalink
отформатировано неверно,
отформатировано неверно, нужно будет обсудить на консультации
begin должен быть по соответствующим if, а else под соответствующим begin
_____________
матфак вгу и остальная классика =)
Neoanthropus
Sat, 03/19/2022 - 17:25
Permalink
var a, b, c, d : integer;
var a, b, c, d : integer; begin writeln('vvedite a, b, c, d'); readln(a, b, c, d); if (a > b) then begin if (a > c) then begin if (a > d) then writeln ('a naibolshee') else writeln ('d naibolshee') end end else if (b > c) then begin if (b > d) then writeln ('b naibolshee') end else if (c > d) then writeln ('c naibolshee') else writeln ('d naibolshee'); readln(); end.vedro-compota
Sat, 03/19/2022 - 20:20
Permalink
первая часть отформатирована
первая часть отформатирована нормально, а вот вторая нет:
_____________
матфак вгу и остальная классика =)
Neoanthropus
Wed, 03/23/2022 - 19:39
Permalink
var a, b, c, d : integer;
var a, b, c, d : integer; begin writeln('vvedite a, b, c, d'); readln(a, b, c, d); if (a > b) then begin if (a > c) then begin if (a > d) then writeln ('a naibolshee') else writeln ('d naibolshee') end end else if (b > c) then begin if (b > d) then writeln ('b naibolshee') end else if (c > d) then writeln ('c naibolshee') else writeln ('d naibolshee'); readln(); end.vedro-compota
Wed, 03/23/2022 - 20:44
Permalink
по-идее не сработают
по-идее не сработают комбинации:
_____________
матфак вгу и остальная классика =)
Neoanthropus
Wed, 03/30/2022 - 18:32
Permalink
var a, b, c, d : integer;
var a, b, c, d : integer; begin writeln('vvedite a, b, c, d'); readln(a, b, c, d); if (a > b) then begin if (a > c) then begin if (a > d) then writeln ('a naibolshee') else writeln ('d naibolshee') end end else if (b > c) then begin if (b > d) then writeln ('b naibolshee') else writeln ('d naibolshee') end else if (c > d) then writeln ('c naibolshee') else writeln ('d naibolshee'); readln(); end. // 1 3 2 4 работает // 4 3 5 4 не работаетNeoanthropus
Sat, 04/02/2022 - 14:28
Permalink
var a,b,c,d: integer;
var a,b,c,d: integer; begin writeln ('vvedite a,b,c,d'); readln (a,b,c,d); if (a > b) then begin if (a > c) then begin if (a > d) then writeln ('a naibolshee') else writeln ('d naibolshee'); end end else if (b > c) then begin if(b > d) then writeln('b naibolshee') else writeln('d naibolshee') end else if (c > d) then writeln('c naibolshee') else writeln('d naibolshee'); readln; end.vedro-compota
Sat, 04/02/2022 - 20:19
Permalink
исправить форматирование
исправить форматирование
_____________
матфак вгу и остальная классика =)
Neoanthropus
Mon, 04/04/2022 - 23:07
Permalink
var a,b,c,d: integer;
var a,b,c,d: integer; begin writeln ('vvedite a,b,c,d'); readln (a,b,c,d); if (a > b) then begin if (a > c) then begin if (a > d) then writeln ('a naibolshee') else writeln ('d naibolshee'); end end else if (b > c) then begin if(b > d) then writeln('b naibolshee') else writeln('d naibolshee') end else if (c > d) then writeln('c naibolshee') else writeln('d naibolshee'); readln; end.vedro-compota
Wed, 04/06/2022 - 20:21
Permalink
пока откладываем.
пока откладываем. форматирование неверно
_____________
матфак вгу и остальная классика =)
Neoanthropus
Wed, 04/13/2022 - 19:58
Permalink
var a,b,c,d: integer;
var a,b,c,d: integer; begin writeln ('vvedite a,b,c,d'); readln (a,b,c,d); if (a > b) then begin if (a > c) then if (a > d) then writeln ('a naibolshee') else writeln ('d naibolshee'); end else if (b > c) then begin if(b > d) then writeln('b naibolshee') else writeln('d naibolshee') end else if (c > d) then writeln('c naibolshee') else writeln('d naibolshee'); readln; end.vedro-compota
Wed, 04/13/2022 - 20:18
Permalink
4 3 5 4 -- не сработает
4 3 5 4 -- не сработает
+ перепроверить форматирование
_____________
матфак вгу и остальная классика =)
vedro-compota
Wed, 04/13/2022 - 20:19
Permalink
решить вторую задачу из 9ого
решить вторую задачу из 9ого урока http://fkn.ktu10.com/?q=node/8539
_____________
матфак вгу и остальная классика =)
Neoanthropus
Wed, 04/20/2022 - 22:45
Permalink
Урок 9 задача 2
Урок 9 задача 2
if ( 5 > 7) then // проверка выражения и начало тела ветки истинности begin writeln('5 > 7 верно'); writeln('5 > 7 верно'); end else // начало ложной ветки (её тела) begin writeln('5 > 7 неверно'); writeln('5 > 7 неверно'); end; // конец ложной ветки и оператор ветвленияУрок 9 задача 7
var a,b,c,d: integer; begin writeln ('vvedite a,b,c,d'); readln (a,b,c,d); if (a > b) then if (a > c) then if (a > d) then writeln ('a naibolshee') else writeln ('d naibolshee') else if (b > c) then if(b > d) then writeln('b naibolshee') else writeln('d naibolshee') else if (c > d) then writeln('c naibolshee') else writeln('d naibolshee'); readln(); end.vedro-compota
Wed, 04/27/2022 - 20:17
Permalink
проверить вариант 1 2 3 4
проверить вариант
_____________
матфак вгу и остальная классика =)
vedro-compota
Wed, 04/27/2022 - 20:17
Permalink
Урок 9 задача 2
-- решить отдельно
_____________
матфак вгу и остальная классика =)
Neoanthropus
Sat, 04/30/2022 - 00:20
Permalink
var a,b,c,d: integer;
var a,b,c,d: integer; begin writeln ('vvedite a,b,c,d'); readln (a,b,c,d); if (a > b) then if (a > c) then if (a > d) then writeln ('a naibolshee') else writeln ('d naibolshee') else if (c > d) then writeln('c naibolshee') else writeln('d naibolshee') else if (b > c) then if (b > d) then writeln('b naibolshee') else writeln('d naibolshee') else if (c > d) then writeln('c naibolshee') else writeln('d naibolshee'); readln(); end.vedro-compota
Wed, 05/04/2022 - 20:22
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)