. Наберите и выполните программу в среде программирования Паскаль. В комментариях
вместо во запишите ответы на них. Результирующую программу отправьте учителю:
Var I, N, m: integer; //Что делает эта программа?
Begin
Readln(N); //Что вводим в этой строке и зачем? Как можно подсказать пользователю, что ввести?
Writeln(‘Таблица квадратов чисел от 1 до N’); //Сколько раз выполняется этот оператор?
For i:=1 to N do //Сколько раз выполнится цикл?
Begin //Зачем снова писать операторные скобки?
m:=i*I;
Writeln(I, ‘ ‘,m); //Как по-другому оставить пробелы между столбиками?
End;
End.
2. Задание то же
Var n: integer; a:real; //Что делает эта программа? Почему a не может быть целым числом?
Begin
For n:=1 to 7 do //Сколько раз выполнится цикл?
Begin //Зачем снова писать операторные скобки?
a:=(n*n+5)/(2*n);//Запиши в тетрадь формулу последовательности в математической форме
Writeln(n:5, a:10:2); //Сколько знаков после запятой в значении переменной a? Почему? Что
значитa:10:2?
End;
End.
3. Задание то же
Var n: integer; a, S:real; //Что делает эта программа?
Begin
S:=0; //Зачем записывать в S ноль?
For n:=1 to 5 do //Сколько раз выполнится цикл?
Begin
a:= 5+n*n/2*n;//Запиши в тетрадь формулу последовательности в математической форме
S:=S+a;//Что происходит в этой строке программы?
End;
Writeln(‘Сумма 5-ти элементов последовательности S=’,S:9:4); //Почему мы выводим результат
//после окончания цикла? Сколько чисел в ответе?
End.
4. Составь и выполни программу вычисления произведения элементов последовательности.
Формула последовательности – из задания №2.
ДЗ для ВЕРЫ ВИКТОРОВНЫ:
Объяснение:
Var I, N, m: integer;
{Выводит таблицу квадратов до N числа}
Begin
Readln(N); //Что вводим в этой строке и зачем? Как можно подсказать пользователю, что ввести?
{Вводим до какого числа нам нужно получить квадрат; Подсказать можно через WRITELN}
Writeln('Таблица квадратов чисел от 1 до N'); //Сколько раз выполняется этот оператор?
{Один раз}
For i:=1 to N do //Сколько раз выполнится цикл?
{N раз}
Begin //Зачем снова писать операторные скобки?
{Затем, что это цикл, который всегда обособляется и отделяет от остальных операторов}
m:=i*I;
Writeln(I,' ',m); //Как по-другому оставить пробелы между столбиками?
{Можно сделать так - Writeln(I:3,m:16);}
End;
End.