Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Написать алгоритм на языке программирования Паскаль и использованием переменного while

5-9 класс

Первый пример:
S= \sqrt{5} + \sqrt{15} + \sqrt{20} + ... + ... , пока S <=100
Второй пример:
P= -10*(-9)*(-8)*...*(-1)

Миленаа 02 авг. 2013 г., 2:44:17 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Ruzilyashakero
02 авг. 2013 г., 4:55:34 (10 лет назад)

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, то все произведение было бы равно нулю, а нам это не нужно).

+ 0 -
Muhabbat70
02 авг. 2013 г., 7:08:45 (10 лет назад)

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..10] случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его,увеличивая все элементы с

чётными значениями на 1. Если элементы с чётными значениями отсутствуют, оставить массив без изменений.

Читайте также

1.Какое значение переменной S будет напечатано после выполнения фрагмента программы,записанной на языке программирования TURBO PASCAL:A:=2В: = 3;

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. Опишите на
русском языке и на языке программирования Паскаль алгоритм вычисления
произведения минимальных элементов из каждой строки. Напечатать значение этого произведения.
Предполагается, что в каждой строке минимальный элемент единственный.



Вы находитесь на странице вопроса "Написать алгоритм на языке программирования Паскаль и использованием переменного while", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.