Решение задач в программе Паскаль АВС

Автор презентации учитель информатики МБОУ «Хохольская СОШ» Стрельникова Людмила Васильевна

30.04.2021

Стрельникова Людмила Васильевна - автор презентации

1

8 класс

Вычислить сумму натурального ряда чисел от 1 до N.

алг сумма-n
нач
цел s, i, n
s:=0
ввод n
нц для i от 1 до n
s:=s+i
кц
вывод s
кон

program n1;
var i, n, s: integer;
begin
write(‘Введите n ’); readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(‘сумма=’,s);
end.

программа

На отрезке от 1 до 7 посчитать значение функции f:=3x+2, при целых значениях х.

алг Вычисление функции
нач
цел i, f
нц для i от 1 до 7
f:=3*i+2;
вывод 'i=',i, нс
вывод 'f=',f, нс
кц
кон

Задача

program n2;
var i, f: integer;
begin
for i:=1 to 7 do
begin
f:=3*i+2;
write(‘i=’,i);
writeln(‘ f=’,f);
end;
end.

программа

Вычислить сумму квадратов чисел натуральной последовательности от 2 до N.

алг сумма квадратов
нач
цел i, s, n
ввод n
s:=0;
нц для i от 2 до n
s:=s + i * i;
вывод 'i =', i, нс
вывод 'сумма= ',s, нс
кц
кон

Задача

program n3;
var i,s,n:integer;
begin
write(‘Введите n ’); readln(n);
s:=0;
for i:=2 to n do s:=s+i*i;
writeln(‘ сумма=’,s);
end.

программа

Дана натуральная последовательность от 1 до N. Вывести эту последовательность от N до 1, то есть в обратном порядке.

алг вывести в обратном порядке
нач
цел i, n
вывод 'введи целое число- '
ввод n
нц для i от n до 1 шаг -1
вывод i, ' '
кц
кон

Задача

program n4;
var i, n: integer;
begin
write(‘Введите n ’);
readln(n);
for i:=n downto 1 do
writeln(i);
end.

программа

Вводится целое число N. Вывести для нечетных чисел от 1 до N произведение этих чисел, а для четных от 1 до N, вывести их сумму.

алг вывести числа
нач
цел i,n,s,p
ввод n
s:=0; p:=1;
нц для i от 1 до n
если mod (i,2)=0
то s:=s+i
иначе p:=p*i
все
кц
вывод ' сумма=',s, нс
вывод ' произведение=',p, нс
кон

Задача

program n5;
var i,n,s,p:integer;
begin
write(‘Введите n ’); readln(n);
s:=0; p:=1;
for i:=1 to n do
begin
if I mod 2 =0 then s:=s+I else p:=p*i
end;
writeln(‘ сумма=’,s);
writeln(‘ произведение=‘,p);
end.

программа

Дано натуральное число N.
Вычислить

s:=s+1/(i*i);

program n6;
var i,n:integer;
s:=real;
begin
write(‘Введите n ’); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/(i*i);
writeln( ‘сумма=’,s:3:5);
end.

программа

алг вычисление последовательности
нач
цел i, n
вещ s
вывод 'Введите n = '
ввод n
s:=0;
нц для i от 1 до n
s:=s+1/(i*i);
кц
вывод 'сумма=‘, s
кон

Задача

алг Цикл Для
нач
цел i, n
вещ a, y
вывод 'степень числа n = '
ввод n
вывод 'число a = '
ввод a
Y:=1
нц для i от 1 до n
y:=y*a
кц
вывод ‘y=', y
кон

1 <= 3 (Да)

4

4

4

4

4

4

4

4

4

3

3

3

3

3

3

3

3

3

1

1

1

1

2

2

3

3

4

4

4

16

16

64

64

2 <= 3 (Да)

3 <= 3 (Да)

4 <= 3 (Нет)

1. Задача. Дана натуральная последовательность чисел от 1 до N. Вывести квадраты четных чисел.
2. Задача. Дана натуральная последовательность чисел от 1 до N. Вывести все нечетные числа по убыванию.
3. Задача. Одноклеточная амеба каждый час делится пополам. Сколько будет амеб через 12 часов, если изначально было три амебы.