Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Решение задач с двумерными массивами

Автор: emyly 25.04.2006 17:37

Я домучила программу. Нужно найти среднее арифметическое и геометрическое элементов массива.

Посмотрите,пожалуйста. И ещё несколько вопросов возникло: в среднем арифметическом деление идёт на количество слагаемых-я умножаю 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 25.04.2006 18:06

Где ошибки - это тебе компилятор покажет... 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 25.04.2006 19:11

простите за нескромный вопрос: И что делать дальше из второй цитаты? blink.gif Всмысле, как сделать так,чтобы вычисления шли в цикле, а не один раз?

Автор: GoodWind 25.04.2006 19:19

For I:=1 to t do
For j:=1 to s do
begin
Sum:=sum+A[I,j];
Proiz:=proiz*A[I,j];
end;

Автор: Бродяжник 25.04.2006 19:26

Что видим:

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 меня опередил!

Автор: Женя(НАРОД ПОМОГИТЕ)! 22.06.2008 15:13

привет народ!)помогите с задачкой)
Надо создать список домашних книг
1)Описать и вывести массив, содержащий 5 записей следующей структуры:
Название, автор, № учета, Дата издания, издательство.
2)Вывести массив в табличном виде.
3)Вывести списки книг издательства "Санкт-петербург", затем книг, изданных ранее 1990г.
4)найти самую старую книгу).


P.S. Народ помогите буду ОЧЕНЬ Благодарен!)) smile.gif

Автор: мисс_граффити 22.06.2008 19:05

а зачем это писать в чужой теме с совершенно другими задачами?
тема закрыта.