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

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

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

Восстановить пароль
Повторная активизация e-mail

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

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

Организовать в подпрограмме формирование типизированного файла с исходными данными, в программе прочитать его. Результаты вычислений вывести как на экран дисплея, так и в текстовый файл.

Сама программа с подпрограммой:

Код:
program lab10;
uses crt;
type mtr=array[1..20,1..15] of real;
function nomera(x:mtr;m,n:integer):string;
var i,j:integer;
    mx,s:real;
    a:string;
begin
a:='';
for i:=1 to m do
 begin
  mx:=x[i,1];
  s:=0;
  for j:=1 to n do
   begin
    if x[i,j]>mx then mx:=x[i,j];
    s:=s+x[i,j];
   end;
  if mx>s-mx then a:=a+' '+inttostr(i);
 end;
result:=a;
end;
 
var a,b:mtr;
    i,j:integer;
    str:string;
begin
randomize;
writeln('Матрица А:');
for i:=1 to 7 do
 begin
  for j:=1 to 15 do
   begin
    a[i,j]:=i*sin(3.5*j);
    write(a[i,j]:5:1);
   end;
  writeln;
 end;
str:=nomera(a,7,15);
if str='' then writeln('Нет строк с максимальным большим суммы остальных')
else
begin
writeln('Номера строк с максимальным большим суммы остальных');
for i:=1 to 7 do
if pos(inttostr(i),str)>0 then write(i:3);
writeln;
end;
writeln('Нажмите Enter');
readln;
writeln('Матрица B:');
for i:=1 to 20 do
begin
for j:=1 to 5 do
begin
b[i,j]:=sin(2.07*j)+i;
write(b[i,j]:5:1);
end;
writeln;
end;
str:=nomera(b,20,5);
if str='' then writeln('Нет строк с максимальным большим суммы остальных')
else
begin
writeln('Номера строк с максимальным большим суммы остальных');
for i:=1 to 20 do
if pos(inttostr(i),str)>0 then write(i:3);
writeln;
end;
end.

Последний раз редактировалось Аватар; 24.05.2018 в 19:15.
Ar1ge вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
сохранение в базу данных мониторинг данных с аппарата искусственной вентиляции легких konderson97 Общие вопросы по программированию, компьютерный форум 1 07.03.2018 11:17
ввод данных текстовых данных например (12ав23у) с клавиатуры и запись(сохранение) в файл на С:\ zippa Visual C++ 18 14.11.2016 18:03
Написать модуль к подпрограмме cska1325 Паскаль, Turbo Pascal, PascalABC.NET 1 06.01.2015 17:11
Работа с динамическим массивом в подпрограмме promer Общие вопросы Delphi 2 02.08.2013 13:10
Сохранение данных из Edit в базу данных (не Access) Denis3 БД в Delphi 5 18.03.2013 16:45