Паскаль

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

Модицифируйте код:

var i:integer;
begin
for i:=1 to 10 do
begin
writeln(777);
break;
end;

readln();
end.
-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

Константы - неизменяемые значения, которые имеют имя как и переменные.

Значение константам присваивается один раз в момент объявления и поменять его после этого в ходе исполнения программы нельзя.

Объявление констант

Для объявления констант используется секция const, например:

Рекурсия вообще

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

Рекурсия может быть "статической", как повторение формы целого в его частях, например так:

или так:

`[Паскаль. Как начать]`

1) Сначала нужно **установить среду разработки**, в которой мы будем программировать, в этом курсе мы используем среду __Лазарус (Lazarus)__, см. инструкцию по установке: http://fkn.ktu10.com/?q=node/11231

2) После установки Лазаруса **запустите тестовое консольное приложение** (приложения такого типа мы будем создавать в данном курсе по Паскалю), см. инструкцию: http://fkn.ktu10.com/?q=node/8368

Задачи

1. Есть массив целых чисел (10 элементов), например:

   [1, 3, 2, 1, 3, 2, 2, 4, 0, -5]

   Задача: вывести на экран все числа, которые встречаются нечетное число раз.
   Т.е. в данном случае это:

   2, 4, 0, -5 

   Решите:

Анализ/"чтение" уже написанного кем-то кода -- одно из важнейших умений, постоянно используемое в повседневной работе профессиональными программистами.

Какие были варианты:

Программирование (Е. В.

var
  a, b, c: integer; // глобальные переменные
  p: ^integer; // Тип: указатель на integer
 
begin
 
 a := 5;
 writeln('a= ', a);
 // f1(a);
 p := @a; { получаем указатель на переменную a 
(на область памяти, где лежит её значение) }
 writeln('p= ', p^); {смотрим что лежит в области памяти,
 на которую указывает указатель  p }
 
 p^ := 9; // Запись "по ссылке"
 writeln('p= ', p^);
 writeln('a= ', a); // значение изменилось тоже, хотя мы не меняли его явно
 
 readln();
end.

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

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