| Fr0z3n | Дата: Понедельник, 28.05.2012, 14:50 | Сообщение # 1 |
По жизни aBTaMaT4uk ;)
Сообщений: 68
Offline
| program p10;
uses crt;
type
//---- 1. uzd. ----
dileris = record
pilseta:string;
iela:string;
m_numurs:integer;
talrunis:integer;
piegade:boolean; //ir-nav
end;
//---- 2. uzd. ----
sporta_preces = record
nosaukums:string;
kategorija:string;
razotajvalsts:string;
izplatitajs:dileris;
cena:real;
end;
var Mas:array[1..4] of sporta_preces; i,a:integer;
begin
//---- 3. uzd. ----
for i:= 1 to 4 do
with Mas[i] do
begin
write ('Ievadiet ',i, '. zalu nosaukumu : ');
readln(nosaukums);
write ('Ievadiet ',i, '. zalu kategoriju : ');
readln(kategorija);
write ('Ievadiet ',i, '. zalu razotajvalsti : ');
readln(razotajvalsts);
{write ('Ievadiet ',i, '. zalu izplatitaju : ');
readln(izplatitajs);}
write ('Ievadiet ',i, '. zalu cenu : ');
readln(cena);
writeln;
end;
clrscr;
for i:= 1 to 4 do
with Mas[i] do
write (i, '. : ',nosaukums,' ');
writeln;
for i:= 1 to 4 do
with Mas[i] do
write (i, '. : ',kategorija,' ');
writeln;
for i:= 1 to 4 do
with Mas[i] do
write (i, '. : ',razotajvalsts,' ');
writeln;
for i:= 1 to 4 do
with Mas[i] do
{write (i, '. : ',izplatitajs,' ');
writeln;}
for i:= 1 to 4 do
with Mas[i] do
write (i, '. : ',cena:4:2,' ');
writeln;
//---- 4. uzd. ----
for i:=1 to 4 do
begin
with Mas[i] do
begin
write (Nosaukums,', (',kategorija,'), ',razotajvalsts,', ', cena:4:2);
textcolor (12); writeln(' Ls'); textcolor (7);
writeln;
end;
with Mas[i].izplatitajs do
begin
textcolor (12);
write('IZPlATITAJS: '); textcolor (7); writeln(pilseta);
writeln(' ',iela);
writeln(' ',m_numurs);
writeln(' ',talrunis);
writeln(' ',piegade);
writeln;
end;
end;
readln;
end.
Не бухаю, не ебашу...
|
| |
| |
AE Radio 
