Урок 7 (Решенные задачи)

Урок 7 (Решенные задачи)

1)Объявите три переменные типа char, присвойте им значения и выведите эти значения на экран:
1) одним вызовов write (все три) -- т.е. передав несколько аргументов.
2) отдельно вызывая writeln для вывод значения каждой переменной.

var 
a,b,c: char;
begin
  a := 'g';
  b := '7';
  c := '+';
  writeln(a);
  writeln(b);
  writeln(c);
end.

2)Получите от пользователя значения переменной, сравните его со значением символа пятёрки 5 и выведите результат сравнения на экран.

var 
g: char;

begin
  writeln('vvedite simvol');
  readln(g);
  writeln(g, '=', '5', g = '5');
end.

3)Получите от пользователя значения двух символьных переменных, сравните значение каждой с символьным литералом (используйте два разных) и выведите два результата сравнения на экран -- 1) сравнение первой переменной с первым литералом и 2) сравнения второй переменной со вторым литералом.

var a,b: char;

begin
  writeln('vvedite dva simvolnih literala');
  readln(a);
  readln(b);
  writeln('sravnenie 1 literala s 1 peremennoy ', a = 'k');
  writeln('sravnenie 2 literala s 2 peremennoy ', b = 'h');
end. 

4)Получите от пользователя значения три символьных значения, выясните -- равны ли все они друг другу и уведомьте о результатах сравнения пользователя, выведя итог в консоль.
Подсказка: для получения итогового результата нескольких сравнений используйте одну из логических операций.

var a,b,c: char;

begin
  writeln('vvedite 3 simvolnih literala');
  readln(a);
  readln(b);
  readln(c);
  writeln('a = b = c ', (a = b) AND (b = c));
end.

5) Получите от пользователя значения четырёх символьных значения, выясните -- выполняется ли следующее условие:

"""первая переменная равна третьей, не равна второй или третья равна четвертой"""

Составьте по указанному условию логическое выражение и выведите его результат на экран.

var z1,b2,c3,d4: char;

begin
  writeln('vvedite 4 simvolnih znah');
  readln(z1);
  readln(b2);
  readln(c3);
  readln(d4);
  writeln('z1 = c3, z1 <> b2 ili c3 = d4 ', (z1 = c3) and (z1 <> b2) or (c3 = d4));
end.