fkn+antitotal

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

Задайте в коде программы массив из семи чисел:
1 12 45 6 7 18 99
Затем обойдите это массив, выводя его значения на экран.

type
  myArr = array[1..7] of integer;
var
  a: myArr;
  i : integer;
begin
   a[1] := 1;
   a[2] := 12;
   a[3] := 45;
   a[4] := 6;
   a[5] := 7;
   a[6] := 18;
   a[7] := 99;
   for i := low(a) to high(a) do
     write(a[i],' ');
   readln();
end. 

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

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

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой". ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму, т.е. для каждой строки вы должны каждый раз (причем один раз для одной строки) вызывать эту подпрограмму.

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

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

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

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

var a, b, c: integer;
procedure sum(q, w, e: integer);
begin
  writeln(q + w + e);
end;
begin
  writeln('write 3 nums');
  readln(a,b,c);
  sum(a,b,c);
  readln();
end.  

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

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

Напишите функцию, которая возвращает сумму трёх целых чисел.

var a, b, c: integer;
function sumOf3(x, y, z: integer):integer;
begin
  result:= x + y + z;
end;
begin
  writeln('write 3 nums');
  readln(a,b,c);
  writeln(sumOf3(a,b,c));
  readln();
end. 

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

write 3 nums
2
3
4
9

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

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

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

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

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

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

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

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

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

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

var a,b,c:integer;
procedure podprogsum(q,w,e:integer);
var f:integer;
begin
    f:=q+w+e;
    writeln('summa = ',f);
    readln();
end;
begin
   writeln('vvedite a');
   readln(a);
   writeln('vvedite b');
   readln(b);
   writeln('vvedite b');
   readln(c);
   podprogsum (a,b,c);
end.

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