Решение задач из главы 7

Решение задач из главы 7

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.