fkn+antitotal

Урок 13.1

Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:

1 2 3 4 5
1 2 3 4 5

var a, i: integer;

begin
  for i := 1 to 2 do
  begin
    for a := 1 to 5 do
      write(a, ' ');
    writeln();
  end;
end.

КОНСОЛЬ

1 2 3 4 5 
1 2 3 4 5 

Задача 4 урок 18

Пользователь вводит в консоль строку вида:

Имя         123

-- т.е. слева имя и через произвольное количество пробелов число баллов. Разберите эту строку получив имя пользователя как значение в переменной типа string и число баллов в перееменной типа integer;

Решение

Задача 3 урок 18

Пользователь вводит произвольную строку, посчитайте количество чисел в ней - тех, что больше 125. Например, в строке:

123ret34#2145esrt5

такое число только одно и это:

2145

(сначала выделите эти числа из строки и запишите их в массив (of integer), а затем уже посчитайте число тех, что больше 125)

Решение

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

Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.

Решение

program task_2_lesson18;
var s: string;
n, i: integer;
begin
  n := 0;
  readln(s);
  for i := 1 to length(s) do
    if (s[i] >= '5') and (s[i] <= '9') then
      n += 1;
  writeln(n);
  readln
end.

задача 1 урок 18

Пользователь вводит строку, проверьте является ли она числом, если да, то выведите в ответ это число, иначе сообщите об ошибке.

Решение

program task_1_lesson18;
var
  s: string;
  v, code: integer;
begin
  readln(s);
  val(s, v, code);
  if code = 0 then
    write(v)
  else
    write('ERROR');
  readln
end.

http://fkn.ktu10.com/?q=node/8697
С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

var i, j: integer;
begin
i:=1;
while (i<=9) do
begin
j:=1;
while (j<=9) do
begin
writeln (i, '/', j, '=',i/j,' ');
j:=j+1;
end;
i:=i+1;
writeln();
end;
end.

http://fkn.ktu10.com/?q=node/8697
С помощью вложенных циклов выведите на экран таблицу умножения числе от 1 до 9

var i, j: integer;
begin
i:=1;
while (i<=1) do
begin
j:=1;
while (j<=9) do
begin
writeln (i, '*', j, '=',i*j,' ');
j:=j+1;
end;
i:=i+1;
writeln();
end;
end.

http://fkn.ktu10.com/?q=node/8697
Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран), например для:
M := 3;
N := 15;

9
27

задача 4 урок 16

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

Решение

Вариант №1

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

Вспомогательная задача (можно решить, просто используя одномерные массивы):
Пользователь вводит 4 целых числа, считаем все их координатами на прямой, а именно:
первые два числа - начало и конце отрезка 1
вторые два - начало и конец отрезка 2
Задача: напишите подпрограмму, которая определит какой отрезок является пересечением этих двух заданных отрезков (если это пересечение вообще есть).

Решение