Обсуждение:Лабораторная работа №7 Инициализация и использование в программах текстовых файлов: различия между версиями
(нег) |
(ui) |
||
Строка 34: | Строка 34: | ||
нг | нг | ||
+ | |||
+ | == ui == | ||
+ | |||
+ | program Project1; | ||
+ | |||
+ | {$APPTYPE CONSOLE} | ||
+ | |||
+ | uses | ||
+ | SysUtils; | ||
+ | |||
+ | type group = record | ||
+ | gr:string; | ||
+ | name:string; | ||
+ | bal:byte; | ||
+ | end; | ||
+ | |||
+ | var f1,f2:text; | ||
+ | i,j:integer; | ||
+ | arr: array[0..20] of group; | ||
+ | |||
+ | |||
+ | begin | ||
+ | assign(f1,'file1.txt'); | ||
+ | reset(f1); | ||
+ | assign(f2,'file2.txt'); | ||
+ | rewrite(f2); | ||
+ | |||
+ | i:=0; | ||
+ | while not EOF(f1) do begin | ||
+ | read(f1, arr[i].gr); | ||
+ | read(f1, arr[i].name); | ||
+ | read(f1, arr[i].bal); | ||
+ | |||
+ | i:=i+1; | ||
+ | end; | ||
+ | |||
+ | for j:=0 to 20 do begin | ||
+ | if arr[j].bal=2 then begin | ||
+ | write(f2, arr[j].gr); | ||
+ | write(f2, arr[j].name); | ||
+ | writeln(f2, arr[j].bal); | ||
+ | end; | ||
+ | |||
+ | end; | ||
+ | |||
+ | |||
+ | close(f1); | ||
+ | close(f2); | ||
+ | end. |
Версия 11:33, 30 июня 2008
program projekt1;
{$APPTYPE CONSOLE}
uses
SysUtils,uCRT;
const m=5;n=6; var A:array[1..m,1..n] of integer;i,j:integer;f:text; S:array[1..n] of real; begin for i:=1 to m do begin for j:=1 to n do begin randomize; a[i,j]:=random(100); write(a[i,j],' '); s[j]:= end; writeln; end; assign(f,'File.txt'); rewrite(f); for i:=1 to m do begin for j:=1 to n do begin write(f,a[i,j],' '); end; writeln(f); writeln(f,s:4:2); end; close(f); readln; end.
нег
нг
ui
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type group = record gr:string; name:string; bal:byte; end;
var f1,f2:text; i,j:integer; arr: array[0..20] of group;
begin
assign(f1,'file1.txt');
reset(f1);
assign(f2,'file2.txt');
rewrite(f2);
i:=0; while not EOF(f1) do begin read(f1, arr[i].gr); read(f1, arr[i].name); read(f1, arr[i].bal);
i:=i+1; end;
for j:=0 to 20 do begin if arr[j].bal=2 then begin write(f2, arr[j].gr); write(f2, arr[j].name); writeln(f2, arr[j].bal); end;
end;
close(f1);
close(f2);
end.