Задача 6 Урок 9
Primary tabs
Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:
С использованием логической операции and.
С вложенными блоками (без and, все опараторы if должны быть в полной форме).
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.
<pre class="brush: php">program project6; { Пользователь вводит три числа. Найдите максимальное тремя разными путями. } var a,b,c,per:integer; begin writeln('Vvedite celoe chislo a: '); readln(a); writeln('Vvedite celoe chislo b: '); readln(b); writeln('Vvedite celoe chislo c: '); readln(c); //способ с использованием логического оператора and writeln('1 Sposob'); if ((a>b) and (a>c))then writeln ('max=',a) else if(b>c)then writeln('max=',b) else writeln('max=',c); //с вложенными блоками без and writeln('2 Sposob'); if (a>b) then begin if (a>c) then writeln('max=',a) else writeln('max=',c) end else if(b>c)then writeln('max=',b) else writeln('max=',c); //без вложенных циклов, без and writeln('3 Sposob'); if(a>b) then per:=a else per:=b; if(per>c)then writeln('max=',per) else writeln('max=',c); end.</pre>
Консоль:
Vvedite celoe chislo a: 6 Vvedite celoe chislo b: 1 2 Vvedite celoe chislo c: 3 2 1 Sposob max=32 2 Sposob max=32 3 Sposob max=32
- Log in to post comments
- 342 reads