@Marata

Добрый вечер!помоги пожалуйста!!!Сделать записи!!!У меня есть прога но работает с текстовым файлом!а вот вводить вручную не знаю как сделать(Работала чтоб без файла!?

Это на TP:
program zapis10;
uses crt;
type zapis=record
nam,n1:string;
ph,gr,ris,kart,fas,p1,p2,p3,p4,p5:integer;
end;
var strn:array[1..10] of zapis;
cena:array[1..10] of zapis;
import:array[1..50] of byte;
st:array[1..50] of integer;
i,j,k,k1,u,min,max,n1:integer;
f:text;
cn:text;
d:char;
procedure zapros;forward;
procedure chtenie;
begin
assign(f,'c:\temp\BD1.txt');
reset(f);
k:=0;
while not Eof(f) do
begin
inc(k);
readln(f,strn[k].nam);
readln(f,strn[k].ph);
readln(f,strn[k].gr);
readln(f,strn[k].ris);
readln(f,strn[k].kart);
readln(f,strn[k].fas);
end;
close(f);
assign(cn,'c:\temp\cen.txt');
reset(cn);
k1:=0;
while not Eof(cn) do
begin
inc(k1);
readln(cn,cena[k1].p1);
readln(cn,cena[k1].p2);
readln(cn,cena[k1].p3);
readln(cn,cena[k1].p4);
readln(cn,cena[k1].p5);
end;
close(cn);
end;

procedure prosmotr;
begin
clrscr;
chtenie;
writeln(' Урожайность по районам ');
writeln('Название района*');
gotoxy(18,2);
write('пшеница*');
gotoxy(28,2);
write('Гречка');
gotoxy(38,2);
write('Рис');
gotoxy(48,2);
write('Картофель');
gotoxy(58,2);
write('Фасоль');
u:=0;
max:=st[1];
for i:=1 to k do
begin
gotoxy(5,2+i);
writeln(strn[i].nam);
gotoxy(18,2+i);
writeln(strn[i].ph);
gotoxy(28,2+i);
writeln(strn[i].gr);
gotoxy(38,2+i);
writeln(strn[i].ris);
gotoxy(48,2+i);
writeln(strn[i].kart);
gotoxy(58,2+i);
writeln(strn[i].fas);
u:=u+1;
st[u]:= strn[i].ph*cena[1].p1+strn[i].gr*cena[1].p2+strn[i].ris*cena[1].p3+strn[i].kart*cena[1].p4+strn[i].fas*cena[1].p5;
If (max < st[u]) Then
begin
max := st[u];
j:=u;
end;
If min > st[u] Then min := st[u];
end;
gotoxy(5,k+3);
writeln('Цена за ед:');
gotoxy(18,k+3);
writeln(cena[1].p1);
gotoxy(28,k+3);
writeln(cena[1].p2);
gotoxy(38,k+3);
writeln(cena[1].p3);
gotoxy(48,k+3);
writeln(cena[1].p4);
gotoxy(58,k+3);
writeln(cena[1].p5);
writeln;
if max<>min then
writeln('Район имеющий наибольшую прибыль:');
writeln(strn[j].nam,': ',max);
readln;
zapros;
end;

procedure dobavlenie;
begin
clrscr;
chtenie;
writeln;
assign(f,'c:\temp\BD1.txt');
append(f);
writeln('*ВВедите название района: ');
readln(strn[k].nam);
writeln('Введите кол-во пшеницы:');
readln(strn[k].ph);
writeln('ВВедите кол-во гречки:');
readln(strn[k].gr);
writeln('Введите кол-во риса*:');
readln(strn[k].ris);
writeln('Введите кол-во картофеля:');
readln(strn[k].kart);
writeln('Введите кол-во фасоли:');
readln(strn[k].fas);
writeln(f,strn[k].nam);
writeln(f,strn[k].ph);
writeln(f,strn[k].gr);
writeln(f,strn[k].ris);
writeln(f,strn[k].kart);
writeln(f,strn[k].fas);
close(f);
zapros;
end;
procedure udalenie;
begin
clrscr;
chtenie;
assign(f,'c:\temp\BD1.txt');
rewrite(f);
writeln('ВВедите номер удаляемой записи n1: ');
readln(n1);
for i:=1 to n1-1 do
begin
writeln(f,strn[i].nam);
writeln(f,strn[i].ph);
writeln(f,strn[i].gr);
writeln(f,strn[i].ris);
writeln(f,strn[i].kart);
writeln(f,strn[i].fas);
end;
for i:=n1+1 to k do
begin
writeln(f,strn[i].nam);
writeln(f,strn[i].ph);
writeln(f,strn[i].gr);
writeln(f,strn[i].ris);
writeln(f,strn[i].kart);
writeln(f,strn[i].fas);
end;
close(f);
zapros;
end;

procedure zapros;
begin
clrscr;
writeln('нажмите соответсвующую цифру :');
writeln('1 - просмотр файла*');
writeln('2 - добавление записи в файл');
writeln('3 - удаление записи из файла*');
writeln('4 - завершение работы');
readln(d);
case(ord(d))of
49:prosmotr;
50:dobavlenie;
51:udalenie;
52:exit;
end;
end;

begin
clrscr;
zapros;
end.

Добавлено через 2 часа 1 минуту
Помоги же пожалуйста(

Добавлено через 1 минуту
Люди добрыеееееееееееееееееееееееееееееееее

	Комментарий модератора
	Не в тот раздел обращаешься!

0