Pascal 9 урок
Primary tabs
blockquote>Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)
var a, b: integer; begin writeln('vvedite dva celih chisla: '); readln(a, b); if (a>b) then begin writeln(12); end; readln(); end.
Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".
var a, b: integer; begin writeln('vvedite dva celih chisla: '); readln(a, b); if (a>b) then writeln(12) else writeln(888); readln(); end.
Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
var A, B, C: integer; begin writeln('vvedite tri celih chisla: '); readln(a, b, c); if ((A<B)and (A>C)) then writeln('Da') else writeln('net'); readln(); end.
Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.
var A, B, C: integer; begin writeln('vvedite tri celih chisla: '); readln(a, b, c); if ((A>17) and (B>17)and (7<C)) then writeln('Da') else writeln('net'); readln(); end.
Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)
var A, B: integer; begin writeln('vvedite dva celih chisla: '); readln(a, b); if (A>B) then writeln(A) else writeln(B); readln(); end.
Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:
:
С использованием логической операции and.
var A, B, C: integer; begin writeln('vvedite tri celih chisla: '); readln(A, B, C); if (A > B) and ( A > B) then writeln('chislo A maksimalnoe = ', A); if (B > A) and (B > C) then writeln('chislo B maksimalnoe = ', B); if (C > A) and (C > B) then writeln('chislo C maksimalnoe = ', C); readln(); end
С вложенными блоками (без and).
var A, B, C: integer; begin writeln('vvedite tri celih chisla: '); readln(A, B, C); if (A > B) then begin if (A > C) then writeln('chislo A maksimalnoe = ', A) end else if (B > C) then writeln('chislo B maksimalnoe = ', B) else writeln('chislo C maksimalnoe = ', C); readln(); end.
Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.
var A, B, C, D: integer; begin writeln('vvedite tri celih chisla: '); readln(A, B, C); if (A > B) then D:= A else D:= B; if (C > D) then D:= C; writeln('maksimalnoe chislo ', d); readln(); end.
Пользователь вводит четыре числа, найдите из них максимальное.
var A, B, C, D: integer; begin writeln('Vvedite chetyre celyh chisla:'); readln(A, B, C, D); if (A > B) then if (A > C) then if (A > D) then writeln('Maksimalnoe chislo: A') else writeln('Maksimalnoe chislo: D') else if (C > D) then writeln('Maksimalnoe chislo: C') else writeln('Maksimalnoe chislo: D') else if (B > C) then if (B > D) then writeln('Maksimalnoe chislo: B') else writeln('Maksimalnoe chislo: D') else if (C > D) then writeln('Maksimalnoe chislo: C') else writeln('Maksimalnoe chislo: D'); readln(); end.
Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований.
Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.
var A, B, C: integer; begin writeln('Vvedite chetyre celyh chisla:'); readln(A); writeln('vvedite balli Mishi '); readln(B); writeln('vvedite balli Peti '); readln(C); if((A + B)>20)or((C * B ) < 55)then writeln('pobedila druzhba') else writeln('pobedil Kolia'); readln(); end.
- Log in to post comments
- 663 reads