програмирование Pascal [три задачи(нужно срочно)]

[DimanPW63]

1.Дана матрица A(n x m). Написать программу поиска одинаковых элементов в этой матрице.
2.Написать программу,подсчитывающую,сколько раз в данном слове x встречается(в качестве его части) слово у.
3.Точки с координатами х и у. Выдать координаты точеки, наиболее близко расположеннной к началу координат.

Задачи вроде бы не сложные,но голова отказывается думать совсем,да и времени в обрез
вобщем тех кто в этом разбирается прошу помочь(блок-схема обязательна)...

[Human-oid]

если бы незае#авшие зачёты и близкий НГ - то помог бы, а так уже лень чёто делать и времени нету
тебе наскока срочно? када здавать?

[DimanPW63]

Нужно к воскресенью...
пишите на мыло DimanPW@yandex.ru

[ScaN]

Написать на паскале как два пальца об асфальт. Вот только в первой задаче не понятно: дана матрица, а вывести что надо? первый повторяющийся элемент? матрица какого типа? чтение-запись в файле? процедуры\функции можно юзать? (а то вдруг вы еще не проходил ;-))
У что за препод\факультет\вуз? Или школа? Школы вроде закончили учиться.
Сделаю за пиво, но не даю гарантий, что препод не придирется. В принципе, их никто дать не может.

[AntonFox]

2.Написать программу,подсчитывающую,сколько раз в данном слове x встречается(в качестве его части) слово у.

program two;
uses crt;
const  v='aciou';
var
  s:string;
  i:integer;
  i1:integer;
begin
 clrscr;
  writeln('Программа определяет, сколько раз в веденный текст входит строка ',v);
  i:=0;
  WriteLn('Введите строку содержащую в себе латинские символы');
  ReadLn(s);
  for i:=1 to ((length(s)-5)+1) do
      if  (s  ='a')
      and (s[i+1]='c')
      and (s[i+2]='i')
      and (s[i+3]='o')
      and (s[i+4]='u')
        then
          inc(i1);
  WriteLn('Количество вхождений подстроки ',v,' во введенной строке равно ',i1);
  readkey;
end.


что-то в этом роде/
Кстати подозрение что все задачи взяты из задачника Пильщикова... Если так - давайте и номера задач плиз.

[Human-oid]

...
Кстати подозрение что все задачи взяты из задачника Пильщикова... Если так - давайте и номера задач плиз.

если так, тык может в иНЕТе есть и решения всех задач из этого задачнега

[AntonFox]

в инете не видел, а у меня есть часть задач из этого задачника

[ScaN]

program two;
uses crt;
const  v='aciou';
var
  s:string;
  i:integer;
  i1:integer;
begin
 clrscr;
  writeln('Программа определяет, сколько раз в веденный текст входит строка ',v);
  i:=0;
  WriteLn('Введите строку содержащую в себе латинские символы');
  ReadLn(s);
  for i:=1 to ((length(s)-5)+1) do
      if  (s  ='a')
      and (s[i+1]='c')
      and (s[i+2]='i')
      and (s[i+3]='o')
      and (s[i+4]='u')
      ...
        then
          inc(i1);
  WriteLn('Количество вхождений подстроки ',v,' во введенной строке равно ',i1);
  readkey;
end.

Это решение ищет в произвольной строке фиксированную подстроку, описанную в константах. Если захочеттся поменять подстроку, то задачу придется править во многих местах и даже дописывать нехватающие and'ы.
Автор, ты куд пропал? Тебе это надо?

[DimanPW63]

Не знаю откуда там задачи,у нас методичка какая-то ,теория ,потом по вариантам задачи,(в первой задаче тема массивы(а матрица ну обычная с цифрами видимо,в последней задаче какой-то "record" нужен)
PS СамГТУ ИТФ 2 курс препод Жмуров
пишите на мыло DimanPW@yandex.ru т.к на форум в ближайшее время не попаду....

[ScaN]

Не хочешь - как хочешь.

[DI-man]

DimanPW63,

1.Дана матрица A(n x m). Написать программу поиска одинаковых элементов в этой матрице.

могу написать решение, но не уверен, что рационально