fkn+antitotal

Задача 7 Урок 14.1:

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):

- - - - - -
- - - - - -
- - - - - -
- - - - - -

- для вывода очередной строки используйте процедуру.

Задача 6 Урок 14.1:

Пользователь по запросу программы вводит в цикле целые положительные числа, до тех пор пока не введет число большее 30. В ответ на каждое введенное пользователем число выводите все числа от 1 до этого введенного числа m.
При этом:
за выводит чисел от 1 до $m должна отвечать процедура
получение значения должно проходить в теле основной программы

Задача 5 Урок 14.1:
У вас есть код:

var b: integer;
 
procedure p2();
var a: integer;
begin
  a:=4;
  writeln('a=', a);
  writeln('b=', b);
end;
 
begin
  writeln('Введите значение b:');
  readln(b);
  p2();
end. 

-- перепишите его так, чтобы процедура не зависела от глобальное переменной b, а получала ее на вход, при этом определяется переменная b (запрос на ввод значения и readln) пусть как и раньше в теле основной программы.

Задача 4 Урок 14.1:

Напишите процедуру, которая получает на вход три целых числа и выводит на экран их сумму.

program u141z4;
var a,b,c:integer;
procedure sum(d,e,f:integer);
begin
  writeln(d+e+f);
end;

begin
  writeln('Vvedite 3 chisla');
  readln(a,b,c);
  sum(a,b,c);
  readln();
end.    

Задача 3 Урок 14.1:

У вас есть код:

var b: integer;
 
procedure pishi();
var a: integer;
begin
  a:=4;
  writeln(a);
  b:=2;
  writeln(b);
end;
 
begin  // тело программы
  b:=3;
  pishi();
  writeln(b);
end. 

-- эта программа в конечном итоге присваивает и выводит на экран 3 значения.

Задача 2 Урок 14.1:

Напишите процедуру, которая получает на вход два целых числа и выводит на экран то, которое больше.

program u141z2;
var a, b: integer;
procedure bolshe(c, d: integer);
begin
  write('bolshe: ');
  if c > d then
    write(c)
  else
    write(d)
end;
begin
  writeln('Vvedite 2 chisla ');
  readln (a, b);
  bolshe(a, b);
  readln ();
end.               

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

Напишите процедуру, которая просит пользователя ввести три числа, и потом выводит их в обратном порядке

program u141z1;
procedure perevorot();
var a,b,c: integer;
begin
  writeln('Vvedite 3 chisla');
  readln(a,b,c);
  writeln(c,b,a);
end;
begin
  perevorot();
  readln();
end.  

Урок 15 Задача 12:

Пусть есть процедура, которая умеет сдвигать массив влево на 1 элемент, начиная с указанного символа (устанавливая последний элемент равным нулю):
type newArr = array [1..5] of integer;
  

Урок 15 Задача 11:

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

Например для массива:

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

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

а для:

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

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

Урок 15 Задача 10:

Заполните массив из 5 элементов случайными числами из любого диапазона.

Далее пользователь вводит в цикле значения от 1 до 5 -- удаляйте из массива очередной элемент с позиции очередного введенного пользователем числа, сдвигая оставшиеся элементы массива влево, заполняя то, что справа нулями. Распечатывайте промежуточной состояние массива, после каждого удаления.