Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

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

Код:

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 в 20:15.
Ar1ge вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


06:18.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru