Цитата:
Сообщение от Роман Вознюк
Ну а чего ты собственно хочешь? В смысле в чем состоит затруднение.
|
я не знаю, как работать с файлами((( в принцыпе, надо создать массив, с которого будут даные передаваться в файл, я так думаю.
вот немного начал, но оно, наверное, не правильно:
program firma;
uses crt;
type mas=array[1..15,1..8] of string;
var a:mas;
k:byte;
procedure noviy(a:mas);
begin
writeln('vvedit dani novogo sotrudnika');
write('vvedit FIO ');
readln(a[1,1]);
write('vvedit datu narodjenia(d:m:g) ');
readln(a[1,2]);
write('vvedit pol(m/f)' );
readln(a[1,3]);
write('vvedit staj roboti ');
readln(a[1,4]);
write('domashnia adresa ');
readln(a[1,5]);
write('telefon ');
readln(a[1,6]);
write('doljnost ');
readln(a[1,7]);
write('oklad ');
readln(a[1,8]);
end;
begin
writeln('Vvedit nomer operacii:');
writeln('1.noviy sotrudnik');
writeln('2.uvolit');
writeln('3.posmotret');
writeln('4.uporiado4it');
writeln('5.nayti');
readln(k);
case k of
1:noviy(a);
{2:
3:
4:
5:}
else
begin
writeln('vvedeno nepravilniy nomer');
end;
end;
readkey;
end.