Паскаль. Циклические алгоритмы.
5-9 класс
|
var sum, k,n,i:integer;
begin
readln(k,n);
sum:=0;
for i:=k to n do
sum:=sum+i*i ;
writeln(sum);
end.
№2
var k,n,i:integer;
begin
readln(k,n);
for i:=1 to n do
write(k, ' ');
end.
program zadacha1;
uses crt;
var s, c, i, k, n: integer;
begin
clrscr;
repeat write ('vvedite k, n: ');
readln (k, n) until k<n;
s:=0;
for i:=k to n do begin
c:=sqr(i);
s:=s+c;
end;
writeln (s);
readkey;
end.
program zadacha2;
uses crt;
var n, k, i: integer;
begin
clrscr;
repeat write ('vvedite k, n: ');
readln (k, n) until n>0;
for i:=1 to n do
writeln (k);
readkey;
end.
program zadacha3;
uses crt;
var n, c, i, count1, count2, count3: integer;
begin
clrscr;
write ('vvedite n: ');
readln (n);
count1:=0;
count2:=0;
count3:=0;
for i:=1 to n do begin
write ('vvedite chislo: ');
readln (c);
if c>0 then count1:=count1+1
else if c<0 then count2:=count2+1
else count3:=count3+1;
end;
writeln ('kolichestvo chisel>0 - ', count1);
Баллов даю как всегда много + обязательно выберу ответ как лучший. Спасибо за правильное решение!
Комментарий удален
Информатика. Должно быть понятно, т.к я выбрал этот предмет в соответствующем выпадающем списке предметов.
Комментарий удален
Другие вопросы из категории
Не более 5ти команд.
2 команды:
1) умножь на 3
2) вычти 2
Читайте также
d:=d – z; k=k+1;
конец цикла;
Вывести результат на экран.
Составить блок-схему в виде циклического алгоритма. Определить количество циклов k. Написать программу на языке Паскаль с использованием оператора цикла с предусловием.Разветвляющийся алгоритм
исполнителями алгоритмов?_____Верно ли, что исполнитель может выполнять только те команды, которые входят в его СКИ?_________________________Верно ли, что процесс мытья 10 тарелок является циклическим алгоритмом?__________Верно ли, что фигура ромб означает начало и конец алгоритма в блок-схеме?__________
2. Найдите значение х после выполнения алгоритма 1, если х=5.
3. Выполнить алгоритм 2. Занести значения переменных, изменяющихся в ходе выполнения алгоритма в таблицу.
4. Составьте алгоритм нахождения суммы всех двухзначных чисел, кратных трем, используя цикл с параметром
Вариант №2
Какие значения чисел:
0.85Е2, -5.7Е-3, 0.1Е4?
Пусть а=245, b=-435, c=35.126. Что будет выведено на экран после выполнения следующих команд:
writeln (‘a’, b, ‘c’); write (‘c=’,c:8:1);
write (‘b= ‘, b:6); writeln ((a+c):9:3, b:4)?
Запишите по правилам языка Паскаль такие выражения:
a)
b)
Вычислить значения выражений:
Round(frac(6.9));
20 mod 6 * 3;
sqrt(trunc(0.5)).
Записать выражения в общепринятой форме:
(-3ab+sqr(b-4*a*c))/sqrt(2*a);
(sqrt(abs(a-b))*sqr(a+b).
Если у – вещественная переменная, а х – целая, то какие из следующих операторов присваивания правильные, а какие нет и почему?
a) y:= y * 2; в) х:= х mod 3 + х*cos(0);
б) x:=trunc(y); г) x:= y+1.