Матрицы, строки, файлы, 3 несложных задания Опции

[Timik]

Задание №4 (массивы)
11. Дана матрица целых чисел размером 10*12. Напечатайте индексы всех ее седловых точек. (Седловой точкой называется элемент, который является наименьшим в своей строке и наибольшим в своем столбце или, наоборот, наибольшим в своей строке и наименьшим в своем столбце).

Задание №5 (работа со строками)
11.Школьник набрал на компьютере реферат. Когда он отлучился, его друзья решили над ним подшутить: один предложил удалить все гласные, другой – заменить буквы «г» и «р» их кодовыми значениями, третий – записать текст в обратном порядке. Какой текст увидит школьник после того, как каждый из друзей внесет свои исправления в текст? и какой текст будет получен после применения всех трех вариантов?

Задание №6 (работа с файлами)
11. Имеются два текстовых файла с одинаковым числом строк. Выяснить, совпадают ли их строки. Если нет, то получить номер первой строки, в которой эти файлы отличаются друг.

[APAL]

Задание №6 (работа с файлами)
11. Имеются два текстовых файла с одинаковым числом строк. Выяснить, совпадают ли их строки. Если нет, то получить номер первой строки, в которой эти файлы отличаются друг.

Код

Var
 f1,f2 : Text;
 s1,s2 : String;
 n     : LongInt;
Begin
 Assign(f1,ParamStr(1));
 Assign(f2,ParamStr(2));
 n:=0;
 Reset(f1);Reset(f2);
 While Not EOF(f1) do
 Begin
   Inc(n);
   Readln(f1,s1); Readln(f2,s2);
   If s1<>s2 then
   Begin
     Writeln('Первое несовпадение в строке № ',n);
     Close(f1); CLose(f2);
     Halt(0);
   End;
 End;
 Writeln('Файлы идентичны.')
 Close(f1); CLose(f2);
End.

[kutia]

Если тебе еще нужны другие 2 задания то пиши удалено администратором

Сообщение отредактировано: mj - 12.02.2005 20:46