Решение задач из главы 7
Primary tabs
1. Объявите три переменные типа char, присвойте им значения и выведите эти значения на экран:
• одним вызовов write (все три) -- т.е. передав несколько аргументов.
program qwe; var a, b, c: char; begin a := '2'; b := '3'; c := '4'; write('a = ', a, ', ', 'b = ', b, ', ', 'c = ', c); readln(); end.
• отдельно вызывая writeln для вывод значения каждой переменной
program qwe; var a, b, c: char; begin a := '2'; b := '3'; c := '4'; writeln('a = ', a); writeln('b = ', b); writeln('c = ', c); readln(); end.
2. Получите от пользователя значения переменной, сравните его со значением символа пятёрки 5 и выведите результат сравнения на экран.
program qwe; var a : char; b : boolean; begin writeln('Vvedite simvol:'); read(a); b := (a = '5'); writeln(a, ' = 5, Otvet: ', b); readln(); end.
3. Получите от пользователя значения двух символьных переменных, сравните значение каждой с символьным литералом (используйте два разных) и выведите два результата сравнения на экран -- 1) сравнение первой переменной с первым литералом и 2) сравнения второй переменной со вторым литералом.
program qwe; var symbol1, symbol2 : char; a, b : boolean; begin writeln('Vvedite simvol 1:'); read(symbol1); writeln('Vvedite simvol 2:'); read(symbol2); a := (symbol1 < '&'); b := (symbol2 > '*'); writeln(a, ' < & ', 'Otvet: ', a); readln(); writeln(b, ' > * ', 'Otvet: ', b); readln(); end.
4. Получите от пользователя значения три символьных значения, выясните -- равны ли все они друг другу и уведомьте о результатах сравнения пользователя, выведя итог в консоль.
program Project1; var a, b, c : char; d : boolean; begin writeln('Vvedite tri simvola:'); read(a, b, c); d := (a = b) AND (a = c) AND (b = c); write(a, ' = ', b, ' = ', c, ' Otvet: ', d); readln(); end.
5. Получите от пользователя значения четырёх символьных значения, выясните -- выполняется ли следующее условие: "первая переменная равна третьей, не равна второй или третья равна четвертой""
program Project2; var a, b, c, d : char; e : boolean; begin writeln('Vvedite chetyre simvola:'); read(a, b, c, d); e := (a = c) AND (a <> b) OR (c = d); write(a, ' = ', c, ' i ', a, ' <> ', b, ' ili ', c, ' = ', d, ' Otvet: ', e); readln(); end.
- Log in to post comments
- 1359 reads
vedro-compota
Sat, 09/12/2020 - 20:39
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)