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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.05.2017, 19:55   #1
Alekseevna20
Новичок
Джуниор
 
Регистрация: 28.05.2017
Сообщений: 1
По умолчанию Pascal

Здравствуйте! Помогите переписать код программы Pascal (в программе Delphi) на код программы с подпрограммами.

Код:
uses
  Windows,
  SysUtils;

Var
 A,C:Array[1..30]of integer;
 B:Array[1..6,1..5]of integer;
 Max,S1,S2:integer;
 i,j,k,n:byte;
 f:Text;
Begin
Assign(f,'RezL2_2.dat');
ReWrite(f);
Randomize;
WriteLn(f,'Вектор A'); WriteLn('Vektor A');
For i:=1 to 30 do
  begin
    A[i]:=random(20)-11;
    write(a[i]:3);write(f,a[i]:3);
    if i mod 10=0 then begin writeln(''); writeln(f,''); End;
  end;
S1:=0;
For i:=1 to 15 do  S1:=S1+A[i];
S2:=0;
For i:= 16 to 30 do  S2:=S2+A[i];
If S1>S2
then
begin
writeln('S1>S2');writeln(f,'S1>S2');
k:=1;
for i:=1 to 6 do
  for j:=1 to 5 do
      begin
        b[i,j]:=A[k];
        k:=k+1;
      end;
    WriteLn(f,'Матрица B'); WriteLn('Matrica B');
      for i:=1 to 6 do
        begin
          for j:=1 to 5 do
            begin
             Write(b[i,j]:3,' '); Write(f,b[i,j]:3,' ');
            End;
          Writeln(''); Writeln(f,'');
        end;

    Writeln ('Vector C');Writeln (f,'Векотор C');
      For i:=1 to 6 do
        begin
          max:=B[i,1];
           For j:= 1 to 5 do
             If B[i,j]>max Then max:=B[i,j];
             C[i]:=max;
        End;
      For i:=1 to 6 do
       begin
        Write(C[i]:3,' '); Write(f,C[i]:3,' ');
       End;
Writeln(''); Writeln(f,'');
End

 Else
  Begin
    writeln('S1<S2');writeln(f,'S1<S2');
k:=1;
for i:=1 to 5 do
  for j:=1 to 6 do
      begin
        b[i,j]:=A[k];
        k:=k+1;
      end;
WriteLn(f,'Матрица B'); WriteLn('Matrica B');
for i:=1 to 5 do
  begin
    for j:=1 to 6 do
       begin
         Write(b[i,j]:3,' '); Write(f,b[i,j]:3,' ');
       End;
Writeln(''); Writeln(f,'');
end;

 begin
Writeln ('Vector C');Writeln (f,'Векотор C');
 for j:=1 to 6 do
  begin
    max:=B[1,j];
      For i:=1 to 5 do
      If B[i,j]>Max Then Max:=B[i,j];
    C[j]:=max;
   End;
For j:=1 to 6 do
   begin
     Write(C[j]:3,' '); Write(f,C[j]:3,' ');
   End;
Writeln(''); Writeln(f,'');
 End;

end;
Close(f);
Readln (k);

End.

Последний раз редактировалось Вадим Мошев; 28.05.2017 в 22:50.
Alekseevna20 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Turbo Pascal/Free Pascal/PascalABC.NET как новый инструмент экстрасенсов Biohazard333 Свободное общение 5 25.09.2016 12:25
pascal abc, pascal turbo. выборка данных из одного .txt в другой ТипичныйСтудент Помощь студентам 6 27.04.2013 15:29
Задача turbo pascal на тему: файлы с произвольным доступом в Pascal ExCiTeC Паскаль, Turbo Pascal, PascalABC.NET 0 28.01.2013 20:36
Программы в Pascal, среда pascal ABC. Лабораторные работы Одинокая Волчица Фриланс 8 10.02.2012 20:09
а free pascal не читает задачи которые написаны на turbo pascal? demonara Паскаль, Turbo Pascal, PascalABC.NET 3 25.05.2009 16:28