Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 26.05.2008, 23:22   #1
Brizon
 
Регистрация: 04.05.2008
Сообщений: 7
Сообщение Помогите решить задачи по Паскалю!

1.Дана целочисленная прямоугольная матрица. Определить количество столбцов,содержащих хотя бы один нулевой элемент (оформить в виде фукции).
2. Дана целочисленная прямоугольная матрица. Определить номер столбца,в котором находиться самая длинная серия одинаковых элементов (оформить в виде процедуры).
3.Описать запись с именем Route, содержащую следующие поля:
-название начального пункта маршрута,
название конечного пункта маршрута,
время в пути для каждого маршрута.
Написать программу,выполняющую слудующие действия:
Вывод информации о маршрутах,начинающихся или кончающихся в пункте,название которого введено с клавиатуры,а если таких маршрутов нет-вывод на экран соответствующего сообщения;
вывод информации о маршрутах,время пути которых не превышает 30 минут.
Brizon вне форума
Старый 27.05.2008, 09:18   #2
-=<[Evklidd]>=-
Форумчанин Подтвердите свой е-майл
 
Аватар для -=<[Evklidd]>=-
 
Регистрация: 22.01.2008
Сообщений: 161
По умолчанию

1) Задача:
Код:
program gery;
type
 mat = array [1..50,1..50] of integer;
var
 m: mat;
 st, l, j, i, q , k: integer;
function Matr(a:mat):integer;
 begin
  i:= 1;
  k:= 0;
  repeat
   begin
    for j:= 1 to l do
     begin
      if a[j,i] = 0 then
       begin
        inc(k);
        break;
       end;
     end;
    inc(i);
   end;
  until i = st;
  Matr:= k;
 end;
begin
 Randomize;
 write('Kol-vo stolbcov: ');
 readln(st);
 write('Kol-vo strok: ');
 readln(l);
  for j:= 1 to l do
  begin
   for i:= 1 to st do
    begin
     m[j,i]:= random(21)-10;
     write(m[j,i],' ');
    end;
   writeln('');
  end;
 q:= Matr(m);
 writeln('Kol-vo stolbcov c nulevum elementom: ', q);
 readln;
end.
-=<[Evklidd]>=- вне форума
Старый 13.06.2008, 14:28   #3
Xardas
Сисадмин
Форумчанин
 
Аватар для Xardas
 
Регистрация: 28.12.2007
Сообщений: 320
По умолчанию

to Brizon

Вот уже который раз Вы создаете несколько одинаковых тем с просьбой решить Вам задачи...

Вот идентичная ваша тема

Нехорошо создавать несколько одинаковых тем

Сорри за флуд!

В следующий раз перед созданием темы прочитайте правила раздела.
Закрыто.

Последний раз редактировалось mihali4; 13.02.2009 в 00:41.
Xardas вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачи по Паскалю! Brizon Паскаль, Turbo Pascal, PascalABC.NET 1 09.06.2008 17:55
Помогите решить задачи по Паскалю Alexsandr08 Паскаль, Turbo Pascal, PascalABC.NET 1 31.05.2008 19:50
Пожалуйста помогите решить задачи по Паскалю Vladislav_87 Паскаль, Turbo Pascal, PascalABC.NET 3 17.05.2008 22:41
Помогите решить задачи по Паскалю! Brizon Паскаль, Turbo Pascal, PascalABC.NET 9 06.05.2008 20:02