Создать текстовый файл, содержащий такую информацию о сотрудниках фирмы: фамилия работника, количество запланированных к разработке проектов в год и количество разработанных проектов в год — Pascal(Паскаль)

Например,

Список работников фирмы
№ Фамилия Зарплата Запланировано Выполнено
1 Иванов 850 15 18
2 Петров 680 12 12
3 Миколаенко 746 14 9
4 Васильчук 590 15 22
5 Марченко 720 16 3
uses crt;
const n=1;
type pep=record
      name:string;
      p1,p2,p3:integer;
     end;
var x:array[1..100] of pep;
    i:integer;
    f:text;
begin
ClrScr;
for i:=1 to n do
 with x[i] do
  begin
   Write(' Name: ');
   Readln(name);
   Write(' Zarplata: ');
   Readln(p1);
   Write(' Zaplanirovano: ');
   Readln(p2);
   Write(' Vipolneno: ');
   Readln(p3);
  end;
Writeln;
Writeln('Spisok: ');
Assign(f,'fam.txt');
Rewrite(f);
Writeln(f,'---------------------------------------------');
Writeln(f,'| ь |  Name  |  Zarp  |  Zapl |  Vipolneno  |');
Writeln(f,'---------------------------------------------');
for i:=1 to n do
 Writeln(f,'|',i:3,'|',x[i].name:8,'|',x[i].p1:8,'|',x[i].p2:7,'|',x[i].p3:13,'|');
Writeln(f,'---------------------------------------------');
close(f);
Readln;
end.

Leave a Comment

8 + = 18