[!] Глоссарий - Алгебра (теория групп) понятия, определения, примеры - "что это такое" - Diffiety School (Матфак ВГУ)

Нельзя решить задачу, если она не поставлена
- (ↄ) В. К.

Данный раздел подразумевается к использованию в качестве словаря для начинающих участников Семинара "Современные методы алгебры и топологии".
Секция будет постоянно пополняться ссылками на новые определения, примечания, рассуждения, теории, теоремы и их доказательства.

Задача 3 Урок 10.1

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

Выведите на экран, все четные числа от 35 до 64.

Решение:

var i: integer;
begin
  for i:=35 to 64 do
    if ((i mod 2) = 0) then
     write(i, ' ');
  readln();
end.  

Консоль:
36 38 40 42 44 46 48 50 52 54 56 58 60 62 64

Урок 13.1. Задача 4.

Урок 13.1. Задача 4.

Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.

Урок 13.1. Задача 3.

Урок 13.1. Задача 1.

Выведите на экран таблицу умножения используя один цикл while и один repeat-until .

var i, j: integer;

begin
  j := 1;
  while (j <= 10) do
    begin
      i := 1;
      repeat
        writeln(j, ' x ', i, ' = ', j * i);
        i := i + 1;
      until (i > 10);
      j := j + 1;
    end;
  readln();
end.

Урок 13.1. Задача 2.

Урок 13.1. Задача 2.

Выведите на экран таблицу умножения используя только циклы вида while.

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

Урок 13.1. Задача 1.

Урок 13.1. Задача 1.

Выведите на экран таблицу умножения используя только циклы вида repeat/until.

var i, j: integer;

begin
  j := 1;
  repeat
    i := 1;
      repeat
        writeln(j, ' x ', i, ' = ', j * i);
        i := i + 1;
      until (i > 10);
    j := j + 1;
    writeln();
  until (j > 10);
  readln();
end.

Урок 12.2. Задача 3.

Урок 12.2. Задача 3.

У вас есть программа, использующая цикл while:
var
i: integer;
begin
i:=1;
while i begin
write(i, ' ');
i:=i+5;
end;
readln();
end.
Объясните что делает эта программа (что будет выведено на экран и почему)
Перепишите её с помощью цикла repeat/until
Перепишите её с помощью цикла for

Урок 12.2. Задача 2.

Урок 12.2. Задача 2.

Напишите программу, которая выводит на экран ряд чисел с помощью цикла for:
1 5 9 13 17 21 25 29 33 37 41 45

var i, a : integer;

begin
  a := 1;
  for i := a to 12 do
    begin
      write(a, ' ');
      a := a + 4;
    end;
  readln();
end. 

Задача 2 Урок 10.1

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

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
Если первое больше второго то в порядке возрастания, пример консоли:

1
5
ответ: 1 2 3 4 5

Иначе в порядке убывания, пример консоли:

1
2
3
5
3
ответ: 5 4 3

Проверить решение для пар значений:

10 20

-- должны увидеть все числа от 10 до 20, и для:

Задача 1 Урок 10.1

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

Выведите на экран, все числа от 35 до 64.

Решение:

var i: integer;
begin
  for i:=35 to 64 do
     write(i, ' ');
  readln();
end. 

Pages

Subscribe to fkn+antitotal RSS