Предмет: Информатика,
автор: wely12130001
Помогите составить программу
Вычислить сумму квадратов натуральных чисел на отрезке от 5 до 10
egor222777:
На каком языке нужно составить программу?
Я могу вам написать на "Паскаль" другими увы не владею.Я вижу вы наблюдаете за этим вопросом, но не отвечаете...
Да на Паскаль ( цикл repeat )
Извиняюсь,вам именно через цикл "repeat" , нужно?С этим циклом имеются проблемы,которые с легкостью обходятся через "For".
Да мне нужен именно этот цикл
Понял, у меня уже есть набросок, но придется подождать....
Жду)
В следующий раз пишите про язык и про цикл в условии.
Ответы
Автор ответа:
1
var
i, sum: integer;
begin
sum := 0;
i := 5;
repeat
sum := sum + i * i;
i := i + 1;
until(i > 10);
write(sum);
end.
i, sum: integer;
begin
sum := 0;
i := 5;
repeat
sum := sum + i * i;
i := i + 1;
until(i > 10);
write(sum);
end.
Не ужели так надо было...А я корячился там.В любом случае и вам спасибо, ща данное решение.
Если вам на данный момент не трудно, можете пожалуйста объяснить одну строчку?
until(i > 10); эту ?
Нет, ее я понимаю.Меня интересует "Sum", оно же стоит в "repeat" оно же должно все время изменяться.Я просто не понял "sum := sum + i * i;"
Оно и изменяется: к сумме прибавляется i в квадрате на каждой итерации цикла.
Спасибо, теперь понял.Это не то что я хотел составить.
Program Test;
Var a,a2,a1,b,c:integer;
Begin
a:=5;
a1:=5;
b:=11;
repeat
a2:=Sqr(a);
inc(a);
Inc(a1);
until a1=b
end.
Var a,a2,a1,b,c:integer;
Begin
a:=5;
a1:=5;
b:=11;
repeat
a2:=Sqr(a);
inc(a);
Inc(a1);
until a1=b
end.
Одним словом," куча мала".Ладно, ще раз благодарю за объяснения.Доброй ночи
Похожие вопросы
Предмет: Алгебра,
автор: ksusapro547
Предмет: Алгебра,
автор: vroomvroomm
Предмет: Математика,
автор: Tiankovaloli
Предмет: Математика,
автор: dianahka1
Предмет: Математика,
автор: гость1204