Родились сегодня:
Антонина


Лидеры рейтинга

ID: 226425

Konstantin Shvetski

Модератор

672

Россия, Северодвинск


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

325

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Академик

278

Россия, Санкт-Петербург


ID: 325460

CradleA

Академик

211

Беларусь, Минск


ID: 401888

puporev

Профессор

140

Россия, Пермский край


ID: 400815

alexleonsm

6-й класс

130


ID: 137394

Megaloman

Мастер-Эксперт

120

Беларусь, Гомель


8.8.12

06.05.2021

JS: 2.8.16
CSS: 4.5.4
jQuery: 3.6.0
DataForLocalStorage: 2021-05-06 21:16:03-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 159782

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Щанова Анна Александровна
Дата: 06.02.2009, 18:33 Консультация закрыта
Поступило ответов: 1

Даны натуральное число n и вещественные числа a1,a2,...,an. Определить сумму квадратов вещественных чисел.

Ответ # 243048 от Alex2008pro
Здравствуйте, Щанова Анна Александровна!


program summa;
const
Nmax=100;
var
a:array[1..Nmax]of integerreal;
n,i,Sum:integer;
Sum:real;
begin
repeat
writeln('введите кол-во чисел<=',Nmax);
readln(n);
until (n>0)and(n<=Nmax);
writeln('введи данные');
for i:=1 to n do
readln(a[i]);
Sum:=0;
for i:=1 to n do
Sum:=Sum+a[i]*a[i];
writeln('сумма чисел = ',Sum);
end.

Последнее редактирование 06.02.2009, 19:11 Зенченко Константин Николаевич (Старший модератор)


Alex2008pro

Посетитель
06.02.2009, 18:36
Мини-форум консультации # 159782
неизвестный

1

= общий =    06.02.2009, 18:40

А можно подругому?
Вот мой вариант,исправьте пожалуйста ошибку!У меня почему-то не решается....
program fgh;
var
a,c,b,n:integer;
begin
writeln('введите число n');
readln(n);
c:=0;
b:=0;
for a:=1 to n do
begin
b:=b+sqr(a);
c:=b+c;
end;
writeln(c);
end.

Костя Симанович

2

= общий =    06.02.2009, 20:46

Здраствуйте Анна Александровна!
Переделал Вашу программу, просто сравните результат с вашим удалил по моему мнению лишние строки. В том виде в котором вы написали программа считпет следующий ряд 1*1 + 2*2 + 3*3 + ... +n*n, но это не совпадает с заданием Вы сказали считать вещественные числа, а сдесь получаются целые числа. Я предлагаю вам сделать следующим образом: задать кол-во чисел n, с помощью генератора случайных чисел сгенерировать числа и посчитать сумму квадратов полученных чисел, а то посмотрел предыдущий ответ в ручную вводить n штук, как то долго если их задать много. И всё сделать без массива по Вашему алгоритму.

program fgh;
var
a,b,n:integer;
begin
writeln('Введите число n');
readln(n);

b:=0;
for a:=1 to n do
begin
b:=b+sqr(a);

end;
writeln(b);
readln;
end.

q_id

puporev

Профессор

ID: 401888

3

= общий =    06.02.2009, 20:49

Вы не ввели вещественные числа, сумму квадратов которых нужно посчитать. Вместо этого вы считаете сумму квадратов номеров чисел, т.е.
1^2+2^2+3^2....n^2. Смотрите написанную Вам программу с учетом исправлений Зенченко К.Н.

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

puporev

Профессор

Рейтинг: 140

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 74

Вадим Исаев ака sir Henry

Мастер-Эксперт

Рейтинг: 2

Степанов Иван /REDDS

4-й класс

Рейтинг: 1

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0