процедуры/функции, массивы и почти готовая сортировка Опции

[Leito]

______.JPG - напишите плз первую и проверьте вторую, правильно решил или накосячил:

Код

program 2;
const n=5;
var a: array [1..n] of real;
i,k:integer;
x:real;
begin
writeln('vvedite chiclo');
readln(x);
writeln('vvedite massiv');
for i:=1 to n do
begin
read(a[i]);
if (a[i]<x) then k:=i; end;
readln;
writeln('k - ',k+1);
readln;
end.

work.JPG - задачу решил но нужно указывать время (не целые числа) - исправьте плз как надо

Код

Program Premier;
Var B: array[1..7] of integer;
    P: array[1..7] of string;
    I,K,X: integer;
    St:string;
Begin
{nazvani9 i vremya}
       Writeln('nazvanie i vremya');
    For I:=1 to 7 do
    Begin
    Write(I,' nazvanie: ');
        Readln(P[I]);
        Write('vremya: ');
        Readln(B[I]);
    End;
{sort}
For K:=1 to 6 do
    For I:=1 to 7-K do
       If (B[I] > B[I+1]) then
       Begin
       X:=B[I];
       B[I]:=B[I+1];
       B[I+1]:=X;
       St:=P[I];
       P[I]:=P[I+1];
       P[I+1]:=St
       End;
{vivod}
writeln('Raspisanie: nazvanie poezda, vremya');
For I:=1 to 7 do
begin
    For K:= 1 to 9-length(P[I]) do
        P[I]:=P[I]+' ';
{vivod: mesto, poezd vremya}
       Writeln(I:2,' ',P[I]:18, B[I]:2)
    end;
        readln;
End.

fonkc_proc.doc - надо решить задачку процедурами и функциями - незнаю даже примерно как, помогите плз
заранее благодарю

[sintanial]

ну обычно обозначают матрицу NxM где n-строки m- столбцы =)
Вот что то на подобие этого твоя задача

 Type matr=array[1..4,1..4] of real ;
function max(const a:matr):real;
var s,max1:real; i,j:integer;
begin
   j:=1;
   max1:=0;
   repeat
   begin
   s:=0;
     for i:=1 to 4 do
       s:=s+abs(a[i,j]);
     if s>max1 then
       max1:=s;
     inc(j)
   end;
   until j>3;
   max:=max1;
end;

function mat(var a:matr):real;
var i,j:integer;
begin
  writeln('vvod matrici:');
  for i:=1 to 4 do
    for j:=1 to 3 do
      read(a[i,j]);
  end;
var a,b,c:matr;
i,j:integer;
s:real;
s1,s2,s3,max1,vmax:real;
m,n:integer;
begin
  mat(a);
  s1:=max(a);
  mat(b);
  s2:=max(b);
  mat©;
  s3:=max©;
 s:=sqrt(sqr(st1)+sqr(st2)+sqr(st3))
writeln(s);
end.

Во первых писал здесь, не знаю пашеть или нет(так как из меня не кудышный пока программист, и ошибки где то полюбому допускаю =) ), если нет то я думаю сам сможешь отредактировать, и сделать как тебе нужно =) !

Сообщение отредактировано: sintanial - 25.05.2008 22:01