Помощь - Поиск - Пользователи - Календарь
Полная версия: Решение задач с двумерными массивами
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
emyly
Я домучила программу. Нужно найти среднее арифметическое и геометрическое элементов массива.

Посмотрите,пожалуйста. И ещё несколько вопросов возникло: в среднем арифметическом деление идёт на количество слагаемых-я умножаю s*t, а ответ неверный получается.
Эта программка пока без нахождения геометрического.

Код
Program massive2;
Const
t=5;
s=5;
var
A: array [1..t,1..s] of integer;
I,j:integer;
Sum,proiz,k,arif,geom.:real;
Begin
For i:=1 to t do
Begin
For j:=1 to s do
Begin
Writeln (‘vvedi element massiva a[I,j]’);
Readln (a[I,j]);
End;
Sum:=0;
Proiz:=1;
For I:=1 to t do
For j:=1 to s do
Sum:=sum+A[I,j];
Proiz:=proiz*A[I,j];
K:=s*t;
Arif:=sum/k;
Writeln (‘arif=’,arif:5:2);
Readln;
End;
End.


Напишите,пожалуйста, где ошибки и как должно быть на самом деле!
volvo
Где ошибки - это тебе компилятор покажет... smile.gif

А что у тебя неверно - это первый цикл (ввод элементов) - не заканчивается там, где должен бы по логике:
For i:=1 to t do Begin
For j:=1 to s do Begin
Writeln ('vvedi element massiva a[I,j]');
Readln (a[I,j]);
End;
End; { <--- Вот это добавь здесь... }

... а из предпоследней строки End убери, он не нужен...

Кстати, вот тут:
For I:=1 to t do
For j:=1 to s do
Sum:=sum+A[I,j]; { В цикле будет вычисляться ТОЛЬКО эта строка !!! }
Proiz:=proiz*A[I,j]; { Это - вычислится один раз после цикла }

... и как следствие - опять будет неверный результат ...
emyly
простите за нескромный вопрос: И что делать дальше из второй цитаты? blink.gif Всмысле, как сделать так,чтобы вычисления шли в цикле, а не один раз?
GoodWind
For I:=1 to t do
For j:=1 to s do
begin
Sum:=sum+A[I,j];
Proiz:=proiz*A[I,j];
end;
Бродяжник
Что видим:
For I:=1 to t do
For j:=1 to s do
Sum:=sum+A[I,j]; { В цикле будет вычисляться ТОЛЬКО эта строка !!! }

Proiz:=proiz*A[I,j]; { Это - вычислится один раз после цикла }

Данная запись эквивалентна следующей:
For I:=1 to t do
For j:=1 to s do
begin
Sum:=sum+A[I,j]; { В цикле будет вычисляться ТОЛЬКО эта строка !!! }
end;

Proiz:=proiz*A[I,j]; { Это - вычислится один раз после цикла }

Это не то, чего мы хотим.
Вместо этого нужно:
For I:=1 to t do
For j:=1 to s do
begin
Sum:=sum+A[I,j]; { В цикле будет вычисляться эта строка... }
Proiz:=proiz*A[I,j]; { ...и эта тоже }
end;

Учите матчасть: begin...end.
З.Ы. GoodWind меня опередил!
Женя(НАРОД ПОМОГИТЕ)!
привет народ!)помогите с задачкой)
Надо создать список домашних книг
1)Описать и вывести массив, содержащий 5 записей следующей структуры:
Название, автор, № учета, Дата издания, издательство.
2)Вывести массив в табличном виде.
3)Вывести списки книг издательства "Санкт-петербург", затем книг, изданных ранее 1990г.
4)найти самую старую книгу).


P.S. Народ помогите буду ОЧЕНЬ Благодарен!)) smile.gif
мисс_граффити
а зачем это писать в чужой теме с совершенно другими задачами?
тема закрыта.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.