Написать алгоритм на языке программирования Паскаль и использованием переменного while
5-9 класс
|
Первый пример:
, пока S <=100
Второй пример:
P= -10*(-9)*(-8)*...*(-1)
program SquareRootSum;
var S: real;
i: integer;
begin
i := 5;
S := 0;
while S <= 100 do
begin
S := S + sqrt(i);
i := i + 5;
end;
WriteLn(S)
end.
--------------------------------
program Product;
var P: real;
i: integer;
begin
P := 1;
i := -10;
while i <= -1 do
begin
P := P*i;
i := i+1
end;
WriteLn(P)
end.
Сумме присваиваем начальное значение 0, потому что мы потом будем прибавлять к ней числа. А произведение присваиваем начальное значение 1 (если был бы 0, то все произведение было бы равно нулю, а нам это не нужно).
1)
var
s := 0.0;
i := 0;
begin
repeat
i := i + 5;
s := s + sqrt(i);
until s > 100;
WriteLn(s);
end.
2)
var
p := 1;
i := -10;
begin
repeat
p := p * i;
i := i + 1
until i >= 0;
WriteLn(p);
end.
Другие вопросы из категории
сумма налога исчисляется в рублях и копейках, то налоговая служба округляет её
до ближайшего рубля (до 50 копеек - с недостатком, свыше 50 копеек (включая 50) - с избытком).
чётными значениями на 1. Если элементы с чётными значениями отсутствуют, оставить массив без изменений.
Читайте также
if A>B then S: = A+B;
writeln (S);
Варианты ответов:1)5 ;2)6; 3)7; 4)8
2. Какое значение переменной S будет напечатано после выполнения фрагмента программы, записанной на языке программирования PASCAL:
S: =1;
N: =1;
while N<=3 do
begin
S: = S*N;
N: = N+1;
end;
writeln(S);
Варианты ответов: 1)2 ; 2)1; 3)0; 4)4
а)2,136+2/3y
б)(x-5)+a/3ax
Например:
Математическая запись: Запись на языке программирования:
a+3b-2c (a+3 умножить на b-2 умножить на c):(7 умножить на a+2)
Срочно!
B(4,3). Заменить отрицательные элементы произведением положительных элементов. Языка программирования - паскаль.
Дан массив, состоящий из 10 элементов. Определите, сколько элементов этого массива имеют максимальное значение.
двумерный массив 6x10. Опишите на
русском языке и на языке программирования Паскаль алгоритм вычисления
произведения минимальных элементов из каждой строки. Напечатать значение этого произведения.
Предполагается, что в каждой строке минимальный элемент единственный.