fkn+antitotal

Урок 15 задача 10

Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
Например для массива:

|1|5|4|5|6|7|8|

-- функция должна "сообщить", что он неуникальный
а для:

|1|15|4|5|6|7|8|

-- что уникальный.

Задача 1 Урок 9:

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

var a,b: integer;
begin
  writeln('vvedite dva celih chisla: ');
  readln(a, b);
  if (a > b) then
     writeln(12);
  readln();
end. 

консоль

vvedite dva celih chisla:
21
10
12

Урок 7 задача 3

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

Урок 7 задача 2

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

program Project1;
var f: char;
begin
  write('Введи символ. Переменную и я сравню её с 5 f = ');
  readln(f);
  write(f = '5');

  readln();
end.     

Консоль:

Введи символ. Переменную и я сравню её с 5 f = 5
TRUE

Урок 7 задача 1

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

1

program Project1;
var a,b,c: char;
begin
  a := '2';
  b := '3';
  c := '4';
  write('a''''b''''c')

end.              

2

Урок 6 задача 12

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C».

program D3;

var
  a, b, c: integer;
  e1, e2: boolean;

begin
  write('Введите число A, B, C: ');
  readln(a, b, c);

  e1 := (a > b) and (a < c);
  e2 := (a > c) and (a < b);
  writeln('Число A находится между числами B и C - ', e1 or e2);

 readln();
end.

Консоль:

Урок 6 задача 11

Даны два целых числа: A и B. Проверить истинность высказывания: «Сумма чисел Число A и число B больше 12».

program Project2;
var
A,B:integer;

begin
   writeln('напиши число');
   readln(A);
   writeln('напиши второе число');
   readln(B);
   writeln('A = ', A, ';', ' B = ', B);
   writeln('сравниваю (',A, ' + ', B, ') > 12 =  ', (a + b) > 12);
   readln();
end. 

Консоль:

Урок 6 задача 9

Сравните число 8 и число 9.55, выведите результат сравнения на экран

.

1

program Project1;
begin
  writeln(8>9.55);

  readln();
end.              

2

program Project1;
begin
  writeln(8<9.55);

  readln();
end.           

3

program Project1;
begin
  writeln(8=9.55);

  readln();
end.           

Вывод консоли:
1:

урок 7 задача 3

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

var a,b: char;\

урок 7 задача 2

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

.

program B5;

var
 a :char;
  b :integer
begin
  a=: '5';
  readln(b);

 write(' a=b ');
 readln();

end.