Помощь - Поиск - Пользователи - Календарь
Полная версия: Задачка про матрицу.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Kerling
Если не трудно, помогите решить эту задачку:
"Дана пpямоугольная матpица.
Опpеделить номер первого из столбцов, содержащих хотя бы один элемент кpатный 7.
Элементы массива вещественного типа. Размер матрицы определяется пользователем.
Результат программы выводится на экран и в файл."

Если можно, напишите сразу код rolleyes.gif
Ozzя
Цитата
Дана пpямоугольная матpица... Элементы массива вещественного типа.

 a: array [1..n,1..n] of real;

Цитата
элемент кpатный 7

if a[i,j] mod 7=0 then ...


Цитата
Результат программы выводится на экран

writeln('Номер столбца равен = ',nomer_stolbtsa);

Цитата
и в файл."

writeln(f,'Номер столбца равен = ',nomer_stolbtsa);



Ozzя
Цитата
Элементы массива вещественного типа.
и
Цитата
элемент кpатный 7

if a[i,j] mod 7=0 then ...

Тогда так нельзя.

if frac(a[i,j] /7)=0 then ...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.