| ! | 1. ╟руюыютюъ Єхь√ фюыцхэ с√Є№ шэЇюЁьрЄштэ√ь. ┬ яЁюЄштэюь ёыєўрх Єхьр єфры хЄё ... 2. ┬ёх ЄхъёЄ√ яЁюуЁрьь фюыцэ√ яюьх∙рЄ№ё т Єхуш [ code=pas ] ... [ /code ]. |
| ╠ | ┬ ёыхфє■∙шщ Ёрч Єръє■ Єхьє чръЁю■ |
1)═х ьюує яюэ Є№,уфх фюяє∙хэр ю°шсър т яЁюЎхфєЁх шчьхэхэш .
2)╧ЁюЎхфєЁр юсЁрсюЄъш эх ёўшЄрхЄ ъЁхфшЄ яюф яЁюЎхэЄ√
uses crt;
type
b=record
fio:string;
razmer_vkl:integer;
srok_vkl:integer;
srok_kr:integer;
razmer_kr:integer;
end;
var
a:array [1..10] of b;
p,v:real;
f:file of b;
i,n,k:integer;
name:string;
procedure vvod(var name:string);
var
f:file of b;
a:b;
i,n,q:integer;
begin
writeln('Введите имя ф йл ');
readln(name);
assign(f,name);
writeln('Введите количество клиентов б нк ');
readln(n);
rewrite(f);
for i:=1 to n do
with a do
begin
writeln('Введите ”€О ',i,' человек ');
readln(a.fio);
writeln('Введите р змер вкл д ');
readln(a.razmer_vkl);
writeln('Введите срок вкл д ');
readln(a.srok_vkl);
writeln('1 - Взять кредит');
writeln('2 - Не бр ть кредит');
writeln('В ш выбор');
readln(q);
if q=1 then
begin
writeln('Введите срок кредит ');
readln(a.srok_kr);
writeln('Введите р змер кредит ');
readln(a.razmer_kr);
end;
write(f,a);
end;
close(f);
end;
{procedure obr(name:string;var v:real);
var
f:file of b;
a:b;
i,n:integer;
x:real;
begin
p:=15;
x:=0;
assign(f,name);
rewrite(f);
for i:=1 to n do
begin
x:=x+1;
repeat
v:=a.razmer_kr/a.srok_kr+(a.razmer_kr-(a.srok_kr)*(a.razmer_kr/a.srok_kr))*(p/100);
until x=a.srok_kr-1;
writeln('Summa kredita = ',v);
readkey;
end;
end;}
procedure vivod(name:string);
var
f:file of b;
a:b;
i,n:integer;
begin
clrscr;
assign(f,name);
reset(f);
writeln;
writeln('Содержимое ф йл ');
writeln;
while (not(eof(f))) do
begin
read(f,a);
writeln('”ио ',a.fio,' ','Р змер кредит ',a.razmer_vkl,' ','Срок вкл д ',a.srok_vkl);
writeln('Срок кредит ',a.srok_kr,' ','Р змер кредит ',a.razmer_kr);
end;
writeln;
close(f);
end;
procedure izm(name:string);
var
f:file of b;
a:b;
i,n,z,w,k:integer;
begin
assign(f,name);
reset(f);
repeat
clrscr;
writeln('1 - изменение з писи');
writeln('2 - выход');
write('Введите в ш выбор');
readln(k);
if k=1 then
begin
writeln('Введите номер з писи ,которую нужно изменить');
w:=Filesize(f);
{ if (w<z) then writeln('В ф йле нет т кой з писи')
else}
end;
begin
writeln('Введите ”€О ',i,' человек ');
readln(a.fio);
writeln('Введите р змер вкл д ');
readln(a.razmer_vkl);
writeln('Введите срок вкл д ');
readln(a.srok_vkl);
writeln('Введите срок кредит ');
readln(a.srok_kr);
writeln('Введите р змер кредит '); readln(a.razmer_kr);
seek(f,z-1);
write(f,a);
end;
readkey;
until k=2;
close(f);
end;
procedure udal(name:string);
var
f:file of b;
a:b;
i,w:integer;
u:string;
begin
assign(f,name);
writeln('Введите номер з писи,которую нужно уд лить');
readln(w);
reset(f);
writeln('Вы точно хотите уд лить эту з пись?');
writeln('y-д ');
writeln('n-нет');
readln(u);
if u='y' then begin
if w<=filesize(f) then
begin
while w<=filesize(f)-1 do
begin
seek(f,w);
read(f,a);
seek(f,w-1);
write(f,a);
w:=w+1;
end;
seek(f,filesize(f)-1);
truncate(f);
close(f);
end
else writeln('Т кого клиент нет');
end;
end;
begin
clrscr;
repeat
writeln;
writeln('"Б нк"');
writeln('1 - созд ние ф йл ');
writeln('2 - Сумм кредит под процент ми');
writeln('3 - вывод з писи');
writeln('4 - изменение з писи');
writeln('5 - уд ление з писи');
writeln('6- Выход');
readln(k);
case k of
1:vvod(name);
{2:obr(name,v);}
3:vivod(name);
4:izm(name);
5:udal(name);
6:halt;
end;
until k=6;
readkey;
end.