Задача 6 Урок 9
Primary tabs
Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:С использованием логической операции and.
С вложенными блоками (без and).
Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.
Указание: Сначала посрайтесь написать все три решения самостоятельно (по 20 минут размышления на каждую задачу хотя бы), если не получается (или после решения) также можно посмотреть это видео-пояснение(link is external).
способ 1:
var a, b, c: real; begin writeln('Введите число a: '); readln(a); writeln('Введите число b: '); readln(b); writeln('Введите число c: '); readln(c); if (a > b) and (a > c) then writeln('Число a максимальное'); if (b > a) and (b > c) then writeln('Число b максимальное'); if (c > a) and (c > b) then writeln('Число c максимальное'); readln(); end.
способ 2:
var a, b, c: real; begin writeln('Введите число a: '); readln(a); writeln('Введите число b: '); readln(b); writeln('Введите число c: '); readln(c); if (a > b) then begin if (c < a) then writeln('Число a максимальное') end else if (b > c) then writeln('Число b максимальное') else writeln('Число c максимальное'); readln(); end.
способ 3:
var a, b, c, max1, max2, max3: real; begin writeln('Введите число a: '); readln(a); writeln('Введите число b: '); readln(b); writeln('Введите число c: '); readln(c); if (a > b) then max1 := a else max1 := b; if (c > b) then max2 := c else max2 := b; if (a > c) then max3 := a else max3 := c; if (max1 < c) then writeln('Число c максимальное'); if (max2 < a) then writeln('Число a максимальное'); if (max3 < b) then writeln('Число b максимальное'); readln(); end.
- Log in to post comments
- 890 reads