|
Помогите пожалуйста
|
|
| Yanka | Дата: Четверг, 12.06.2008, 19:52 | Сообщение # 1 |
|
Новичок
Группа: Пользователи
Сообщений: 5
Статус: Offline
| Приветик всем.. Завтра уже нужно сдать программы учителю. Помогите пожалуйста)) Зарание спасибо)) Попыток нет, т.к. этих задач совсем не понимаю, а разобраться нет времени((
1.Дана целочисленная прямоугольная матрица. Определить количество столбцов,содержащих хотя бы один нулевой элемент (оформить в виде фукции).
2. Дана целочисленная прямоугольная матрица. Определить номер столбца,в котором находиться самая длинная серия одинаковых элементов (оформить в виде процедуры).
3.Описать запись с именем Route, содержащую следующие поля:
-название начального пункта маршрута,
-название конечного пункта маршрута,
-время в пути для каждого маршрута.
Написать программу,выполняющую слудующие действия:
Вывод информации о маршрутах,начинающихся или кончающихся в пункте,название которого введено с клавиатуры,а если таких маршрутов нет-вывод на экран соответствующего сообщения;
вывод информации о маршрутах,время пути которых не превышает 30 минутДобавлено (12.06.2008, 12:52)
---------------------------------------------
Помогите пожалуйста(( я уже написала зачет.. но интересно, как правильно..
|
| |
| |
| Alexander | Дата: Четверг, 12.06.2008, 20:02 | Сообщение # 2 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| Напишите код, для вывода матрицы на экран.
Скажем дружно- нафиг нужно!
|
| |
| |
| Yanka | Дата: Четверг, 12.06.2008, 20:15 | Сообщение # 3 |
|
Новичок
Группа: Пользователи
Сообщений: 5
Статус: Offline
| Вот похожая программа на матрицу..
program prog_1;
uses crt;
var A:array[1..100,1..100] of real;
i,j,n,k,Max:integer;
tmp,m:real;
begin
clrscr;
write('Vvedite rezmernost: ');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('A[',i,':',j,']: ');
readln(A[i,j]);
end;
writeln;
writeln('Isxodniy massiv: ');
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j]:5:0);
writeln;
end;
for i:=1 to n do
for j:=1 to n-i do
if A[j,j]>A[j+1,j+1] then
begin
for k:=1 to n do
begin
tmp:=a[j,k];
a[j,k]:=a[j+1,k];
a[j+1,k]:=tmp;
end;
begin
for k:=1 to n do
begin
tmp:=a[k,j];
a[k,j]:=a[k,j+1];
a[k,j+1]:=tmp;
end;
end;
end;
writeln;
writeln;
writeln('Sort: ');
for i:=1 to n do begin
for j:=1 to n do write(a[i,j]:5:0);
writeln;
end;
readln;
end.
Сообщение отредактировал Yanka - Четверг, 12.06.2008, 20:20 |
| |
| |
| Alexander | Дата: Четверг, 12.06.2008, 21:41 | Сообщение # 4 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| Ну и зачем вы это выложили? Я поставил конкретную задачу- вывести на экран матрицу. Это 6 строчек, как только вы их напишите мы сделаем гениальные открытия- определим где у неё строки, а где столбцы и научимся просматривать их в поисках нужного элемента.
Скажем дружно- нафиг нужно!
|
| |
| |
| F1XER | Дата: Воскресенье, 15.06.2008, 00:48 | Сообщение # 5 |
 Знакомый
Группа: Пользователи
Сообщений: 18
Статус: Offline
| For I:=1 To N Do
Begin
For J:=1 To N Do
Write(M[I,J],' ');
Writeln;
End;
|
| |
| |
