Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Delphi: Общие вопросы > Требуется помощь при написании проги на Паскале!!

Автор: fantastick 29.1.2004, 19:06

Всем привет!
Продолжаю изучать Паскаль и возникла новая проблема...
Требуется составить матрицу n*n( ну это не проблема

), вывести меню для пользователя:
1.Сосчитать сумму чисел по диагонали( делается запрос на ту диагональ по которой нужно считать т.е. либо с началом в 1*1 либо в n*1).
2. Найти минимальное и максимальное значение.
3.Сосчитать сумму чисел в любом из стобцов( опять же запрос на выбор столбца).
4.Вывести все нечетные числа в четных столбцах и посчитать их сумму.
5.Выход.

Проблемы возникают с написанием 1, 3 и 4 пункта( Опыта пока маловато...)

Очень прошу ПОМОГИТЕ!!

Автор: Полудненко Олег 29.1.2004, 19:33

1. Пользователь выбирает считать сумму по основной или по побочной диагонали? Тогда делаеш цикл for i:=1 to n, в коем sum:=sum+a[i,i] (для основной диагонали); for i:=1 to n do sum:=sum+a[i,n-i+1] (для побочной);

2. max:=-MaxInt; min:=MaxInt;
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
end;

3. for i:=1 to n do sum:=sum+a[i,номер_столбца]

4. for i:=1 to n do
begin
if i mod 2 =0 then //если делится на 2
for j:=1 to n do
begin
if a[i,j] mod 2=1 then writeln(a[i,j]);
end;
end;

Автор: fantastick 30.1.2004, 22:12

Большое Спасибо