Лабораторный практикум по информатике. Мухина И.Н - 59 стр.

UptoLike

ВУЗ: 

НГАСУ «Сибстрин» | Новосибирск

Составители: 

Рубрика: 

59
Как видно из описания основных модулей, программа
может сохранять результаты своей работы в текстовом файле с
выбранным пользователем именем, либо выводить их на экран.
Приложение имеет диалоговый интерфейс, все
необходимые данные вводятся пользователем из окна консоли.
Работа выполнена с помощью системы программирования
Turbo Pascal 7.1 на ПК Pentium-IV с операционной системой
Windows XP. Программа может исполняться
в любой DOS- или
Windows-совместимой операционной системе, инсталляции и
установки дополнительного программного обеспечения не
требует.
3. Листинг программы
program Tabl;
const max=50; {максимальное число строк таблицы!}
type data=array [1..max] of real;
names=array [1..max] of string;
var tovar:names;
ostatok1,prihod,rashod,ostatok2:data;
so1,sp,sr,so2:real;
rows:integer;
name:string;
f:text;
function Chislo (var s:string):real;
{выделить и вернуть очередное число из строки s}
var p,code:integer;
n:real;
begin
Chislo:=0;
p:=Pos(' ',s);
if (p=0) and (length(s)>0) then p:=length(s)+1;
if p>0 then begin
Val(Copy(s,1,p-1),n,code);
if code=0 then Chislo:=n;
Delete (s,1,p);
end;
end; 
    Как видно из описания основных модулей, программа
может сохранять результаты своей работы в текстовом файле с
выбранным пользователем именем, либо выводить их на экран.
    Приложение      имеет   диалоговый     интерфейс,   все
необходимые данные вводятся пользователем из окна консоли.
    Работа выполнена с помощью системы программирования
Turbo Pascal 7.1 на ПК Pentium-IV с операционной системой
Windows XP. Программа может исполняться в любой DOS- или
Windows-совместимой операционной системе, инсталляции и
установки дополнительного программного обеспечения не
требует.

3. Листинг программы

program Tabl;
const max=50; {максимальное число строк таблицы!}
type data=array [1..max] of real;
     names=array [1..max] of string;
var tovar:names;
    ostatok1,prihod,rashod,ostatok2:data;
    so1,sp,sr,so2:real;
    rows:integer;
    name:string;
    f:text;

function Chislo (var s:string):real;
{выделить и вернуть очередное число из строки s}
var p,code:integer;
    n:real;
begin
 Chislo:=0;
 p:=Pos(' ',s);
 if (p=0) and (length(s)>0) then p:=length(s)+1;
 if p>0 then begin
  Val(Copy(s,1,p-1),n,code);
  if code=0 then Chislo:=n;
  Delete (s,1,p);
 end;
end;



                            59

Страницы