Составим программу вычисления суммы ряда чисел 5, 10, 15, …, 50 на языке программирования Pascal ABC. Введем обозначения следующих величин: пусть s – сумма чисел ряда, которую надо найти, а i – порядковый номер чисел ряда. Начальное значение суммы s будет равным нулю. Так как чисел несколько, то будем использовать в программе оператор цикла с параметром for. По условию задачи числа суммируются, начиная с числа 5, с интервалом 4 числа, поэтому значение i в каждом цикле будем увеличивать на 4.
Программа может выглядеть так:
program zadacha;
uses crt;
var s,i: integer;
begin
s:=0; {Задание начального значение суммы s}
for i:=5 to 50 do begin
s:=s+i; {Вычисление суммы чисел}
i:=i+4; {Увеличение значения параметра i на 4}
end;
writeln ('s=',s) {Вывод результата суммы s}
end.
Можно решить данную задачу и вторым используя операцию mod:
program zadacha;
uses crt;
var s,i: integer;
begin
s:=0; {Задание начального значение суммы s}
for i:=5 to 50 do
if i mod 5=0 {Поиск чисел, кратных 5}
then s:=s+i; {Вычисление суммы чисел}
writeln ('s=',s); {Вывод результата суммы s}
end.
ответом будет s=275.
Составить программу нахождения значения функции у= 5х+х2, при х=50, 49, 48, 47, …, 40.
program zadacha;
uses crt;
var x,y,i:integer;
begin
for i:=50 downto 40 do begin y:=5*i+i*2; writeln ('y=',y); end;
writeln ('y=',y)
end.
Объяснение:
Задание 1.
int a,b;
scanf("%i", &a);
scanf("%i", &b);
if (a<b)
for(int i=a; i<=b; i++)
printf("x = ", x , "; y = ", ((x3+1)/(x-3)+x) );
Задание 2.
int sum;
sum = 0;
for(int i=1; i<=115; i+=6)
sum+=i;
printf(sum);
Задание 3.
int a,b, n;
n = 0;
scanf("%i", &a);
scanf("%i", &b);
if (a<b)
for(int i=a; i<=b; i++)
if (i%11 == 0) n++;
if (a>b)
for(int i=b; i<=a; i++)
if (i%11 == 0) n++;
printf(n);
На C ничего никогда не писал, поэтому может чё-то не так, но по идее как-то так...
begin
var a:=ArrRandom(21,-50,50); a.Println;
for var i:=0 to 20 do
if a[i]<0 then a[i]:=sqr(a[i]);
a.Println
end.
Тестовое решение:
-1 -29 28 -1 19 -28 14 2 -33 46 12 27 30 -19 -19 -19 -17 29 -5 31 -27
1 841 28 1 19 784 14 2 1089 46 12 27 30 361 361 361 289 29 25 31 729