Задачи:матрица-поиск и сравнение элементов в ней. Опции

[Roman]

Здрасте,
извиняюсь за прошлый топик, надеюсь, что такое название темы более информативно, к сожалению места хватило токо на описание 1 задачки.
Всего их 5 (есть ещё 3, но с их переводом у меня проблемы). Мне очень нужна ваша помощь. Пожалуста,помогите получить допуск к экзамену, а там я на теории вытяну боле менее положительную оценку.

1.Матрица до 20 рядов и 30колонн(вроде так их называют).Найти, есть ли в матрице зона 4*3 где значения элементов равны. Кол рядов и колон вводится пользователем(процедура), поиск одинаковых элементов-функция.
Ввод:

Код

TYPE MAT=ARRAY[1..20,1..30]of real;
VAR N,M:integer;
A:MAT;
Procedure Matvvod(VAR:MAT;VAR RJAD,KOLON:integer);
VAR I,J:integer;
BEGIN
Write(`vvedi kol rjadov`);
readln(RJAD);
Write(`kol kolon`);
readln(KOLON);
for i:=1 to rjad do {спасибо fms}
for j:=1 to KOLON do
read (A[I,J]);
end;

_________________-
2.програма читает из текст фаила слово(до 256 букв)
и:
а)находит кол. повторов заданного 3 значного буквосочетания.
б)сообщает чего больше- гласных или согласных букв.
в)производит замену 2 одинаковых рядом стоящих гласных, написанных с маленкой буквы, на большие(аа=>АА)
Выводит слово в указынное пользователем место и цветом(CRT) на экран.(буквы латинские)
_________________
3. Програма спрашивает у пользователя какоето время и число(не прошедшее) этого года, затем выводит на экран скоко осталось дней, часов,минут до этого момента.
________________
4. Написать модуль и тест програму для него, который позволяет:

октаэдер
http://www.tmn.fio.ru/works/22x/307/oktaed...osaedr_tabl.htm
http://bammako.narod.ru/octaedr.htm
1) ввод граней
2)вычислить площадь 1 стороны
3)объём
4)диогональ
5)полную площадь
_________________
5.написать графическую программу, которая будет геометр. тело (не круг) как можно плавнее двигать по экрану(анимация).

___________
заранее благодарен

Сообщение отредактировано: volvo - 17.12.2004 20:08

[Roman]

вариант 5 задачки.
может чтото можно упростить, исправить и тд?

Код

program prog5;

uses crt, graph;

var
 gd, gm, i, j, n, m : integer;
 path : string;
 x11, y11, x12, y12,
 x22, y22 : integer;

function stepen: boolean;
var
 i, d, nr : integer;
begin
 d := 1;
 randomize;
 nr := random(100);
for i := 1 to nr do
  begin
    d := (0 - 1) *  d;
  end;
if d > 0 then stepen := true else stepen :=  false;
end;

begin
 gd := 9;
 gm := 2;
 initgraph(gd, gm, 'c:tpbgi');
 i := 320;
 j := 250;
 x11 := i; y11 := j; x12 := i-50; y12 := j+100;
 x22 := i+50; y22 := j+100;
 line(x11, y11, x12, y12);
 line(x12, y12, x22, y22);
 line(x22, y22, x11, y11);

 repeat
   begin
     if stepen then n := 1 else n := -1;
      repeat
       begin
         clearviewport;
         x11 := x11 + n;
         x12 := x12 + n;
         x22 := x22 + n;
         y11 := y11 + 1;
         y12 := y12 + 1;
         y22 := y22 + 1;
         line(x11, y11, x12, y12);
         line(x12, y12, x22, y22);
         line(x22, y22, x11, y11);
       end;
      until (y12 > 360) or (x12 <160) or (x22 >480) or keypressed;

     if y12 >= 359 then
       begin
         if stepen then n := 1 else n := -1;
         repeat
            begin
              clearviewport;
              x11 := x11 - n;
              x12 := x12 - n;
              x22 := x22 - n;
              y11 := y11 - 1;
              y12 := y12 - 1;
              y22 := y22 - 1;
              line(x11, y11, x12, y12);
              line(x12, y12, x22, y22);
              line(x22, y22, x11, y11);
            end;
         until (x12 < 160) or (x22 > 480) or keypressed;
       end;
      if y11 <= 119 then
       begin
         if stepen then n := 1 else n := -1;
         repeat
            begin
              clearviewport;
              x11 := x11 + n;
              x12 := x12 + n;
              x22 := x22 + n;
              y11 := y11 + 1;
              y12 := y12 + 1;
              y22 := y22 + 1;
              line(x11, y11, x12, y12);
              line(x12, y12, x22, y22);
              line(x22, y22, x11, y11);
            end;
         until (x12 < 160) or (x22 > 480) or keypressed;
       end;
     if x12 <= 159 then
       begin
         if stepen then n := 1 else n := -1;
         repeat
           begin
              clearviewport;
              x11 := x11 + 1;
              x12 := x12 + 1;
              x22 := x22 + 1;
              y11 := y11 + n;
              y12 := y12 + n;
              y22 := y22 + n;
              line(x11, y11, x12, y12);
              line(x12, y12, x22, y22);
              line(x22, y22, x11, y11);
            end;
          until (y11 < 120) or (y12 > 360) or keypressed;
       end;
     if x22 >= 479 then
       begin
         if stepen then n := 1 else n := -1;
         repeat
           begin
             clearviewport;
             x11 := x11 - 1;
             x12 := x12 - 1;
             x22 := x22 - 1;
             y11 := y11 + n;
             y12 := y12 + n;
             y22 := y22 + n;
             line(x11, y11, x12, y12);
             line(x12, y12, x22, y22);
             line(x22, y22, x11, y11);
           end;
        until (y11 < 120) or (y12 > 360) or keypressed;
        end;
   end;
 until keypressed;
 closegraph;
end.