Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 12.03.2009
Сообщений: 7
1

задача на массивы

12.03.2009, 19:48. Просмотров 1034. Ответов 1
Метки нет (Все метки)

народ,нужна помощь с прогой:
используя универсальную подпрограмму определить максимальный элемент в каждой нечетной строке матрицы и сумму в каждом четном столбце матрицы для матрицы
A(N,M).
элементы матрицы-вещественные числа.
в качестве одного из вариантов считать N=4,M=5.
Обмен данными с подпрограммой должен осуществляться только через параметры;исходные данные должны храниться в отдельном файле.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2009, 19:48
Ответы с готовыми решениями:

Задача на массивы.
В массиве a, полученном случайным образом, найти сумму главной и побочной диагонали. Затем...

Задача. Массивы
1) В массиве D1, D2, ... , Dn найти количество чисел, меньших единицы. 2) Из данного массива чисел...

Задача на массивы
Создать программу, которая определяет лучшего студента группы. Вводиться фамилия и рейтинговый балл...

Массивы(задача)
Помогите решить . Дан целочисленный массив размера N, содержащий большое количество нулевых...

1
Модератор
62552 / 46721 / 32203
Регистрация: 18.05.2008
Сообщений: 113,075
12.03.2009, 20:30 2
Лучший ответ Сообщение было отмечено Shumegor как решение

Решение

Создаем текстовый файл в папке с прграммой. В первой строке пишем через пробел 2 целых положительных числа- размеры матрицы, затем в n строках пишем по m вещественных чисел через пробел, разделитель точка. Сохраняем файл.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
uses crt;
type Tmatr=array[1..50,1..50] of real; {тип матрицы}
procedure Max(x,y:byte;mt:Tmatr);{процедура поиска максимального в нечетных строках}
var i,j:byte;
    max:real;
begin
for i:=1 to x do
if odd(i) then{если строка нечетная}
  begin
   max:=mt[i,1];
   for j:=1 to y do
   if mt[i,j]>max then max:=mt[i,j];{ищем максимум}
   writeln('Max el v stroke ',i,'=',max:0:2);{выводим на экран}
  end;
writeln;
end;
procedure Summ(x,y:byte;mt:Tmatr);{процедура определения суммы в четных столбцах}
var i,j:byte;
    sum:real;
begin
for j:=2 to y do
if not odd(j) then {если четный}
  begin
    sum:=0;
    for i:=1 to x do
    sum:=sum+mt[i,j];{считаем сумму}
    writeln('Summa  v stolbce ',j,'=',sum:0:2);{выводим на экран}
  end;
writeln;
end;
 
var f:text;{переменная для связи с файлом на диске}
    m,n,i,j:byte;
    a:Tmatr;
begin
clrscr;
assign(f,'file1.txt');{связываем}
reset(f);{открываем файл для чтения}
read(f,n);{читаем первое число(кол. строк)}
read(f,m);{читаем второе число(кол. столбцов)}}
writeln('Matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
       read(f,a[i,j]);{читаем собственно матрицу}
       write(a[i,j]:5:2);
      end;
    writeln;
  end;
writeln;
Max(n,m,a);
Summ(n,m,a);
Close(f);
readln
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2009, 20:30

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Задача. Массивы
нужно найти сумму всех элементов, а потом из нее вычитать по одному элементу отдельно, вот я не...

Задача на массивы
Задача следующая: Найти произведение Х=Y*Z и Q=Z*X и результаты матрицы X и Q записать в файл a3....

Задача на массивы.
Заданы 3 массива A,B,C, состоящие из N элементов каждый. Для каждой из N троек вида (A,B,C)...

Задача на массивы.
Помогуте сделать задачи по массивам! 1.Написать функцию, которая возвращает количество элементов...

Задача на массивы
Дан массив размером n*n,элементы которого целые числа.Вычислить А^n,где n-натуральное число.

Задача на массивы
Здравствуйте, долго бьюсь над задачей - не могу решить! Помогите идеей, алгоритмом, кто чем сможет


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.