| Kapa6acuK | Дата: Среда, 30.05.2012, 12:47 | Сообщение # 1 |
А что такое реальный мир...?
Сообщений: 49
Offline
| Задание:
Izveidot programmu, kura izpildītu sekojošas darbības:
1. Nodefinēt datu tipu - ierakstu ar nosaukumu grāmata. Ierakstam aprakstīt šādus laukus: nosaukums, autors, žanrs, izdošanas gads, lappušu skaits, kā arī vel 5 laukus, kuri raksturotu grāmatas.
2. Nodefinēt grāmatu masīvu no 10 elementiem-ierakstiem. Pieprasīt ievadīt visu grāmatu datus no tastatūras. Attīrīt ekrānu. Pieprasīt ievadīt grāmatas kārtas numuru. Izvadīt atbilstošas grāmatas datus uz ekrānu.
3. Attīrīt ekrānu. Pieprasīt ievadīt grāmatas nosaukumu. Gadījumā, ja masīvā ir grāmata ar ievadītu nosaukumu, programmai, jāizvada visi šīs grāmatas dati, pretējā gadījumā jāizvada paziņojums: „Šādas grāmatas sarakstā nav.”
4. Pieprasīt ievadīt grāmatas autoru. Izvadīt uz ekrānu dota autora grāmatu skaitu.
5. Pilnveiot otro uzdevumu tā, lai lietotājam nebūtu iespējas ievadīt vienam autoram divus vienādus grāmatu nosaukumus.
Решение:
program Vishkers;
uses crt;
type
gramata = record
nosaukums : string;
autors : string;
zanrs : string;
izdosanas_gads : integer;
lapushu_skaits : integer;
jauna : string;
krasaina : string;
ilustreta : string;
apvalks : string;
bibliotekas : string;
end;
var M:array[1..10] of gramata; i,i2:integer; y:string;
begin
for i:=1 to 10 do
begin
writeln (' Ievadiet gramatas autoru : ');
readln (M[i].autors);
if M[i].autors = M[i-1].autors
then if M[i].nosaukums = M[i-1].nosaukums
then
repeat
readln (M[i].nosaukums);
until M[i].nosaukums <> M[i-1].nosaukums;
writeln (' Ievadiet gramatas nosaukumu : ');
readln (M[i].nosaukums);
writeln (' Ievadiet gramatas zanru : ');
readln (M[i].zanrs);
writeln (' Ievadiet gramatas izdosanas gadu : ');
readln (M[i].izdosanas_gads);
writeln (' Ievadiet gramatas lapushu skaitu : ');
readln (M[i].lapushu_skaits);
writeln (' Vaj gramata ir jauna ( Yes or No ): ');
readln (M[i].jauna);
writeln (' Vaj gramata ir krasaina ( Yes or No ): ');
readln (M[i].krasaina);
writeln (' Vaj gramata ir ilustreta ( Yes or No ): ');
readln (M[i].ilustreta);
writeln (' Vaj gramatai ir apvalks ( Yes or No ): ');
readln (M[i].apvalks);
writeln (' Vaj gramata ir no bibliotekas ( Yes or No ): ');
readln (M[i].bibliotekas);
end;
clrscr;
writeln (' Ievadiet gramatas kartas numuru : ');
readln (i);
writeln (M[i].nosaukums);
writeln (M[i].autors);
writeln (M[i].zanrs);
writeln (M[i].izdosanas_gads);
writeln (M[i].lapushu_skaits);
writeln (M[i].jauna);
writeln (M[i].krasaina);
writeln (M[i].ilustreta);
writeln (M[i].apvalks);
writeln (M[i].bibliotekas);
clrscr;
writeln (' Ievadiet gramatas nosaukumu : ');
readln (y);
if y = (M[i].nosaukums) then
begin
writeln (M[i].nosaukums);
writeln (M[i].autors);
writeln (M[i].zanrs);
writeln (M[i].izdosanas_gads);
writeln (M[i].lapushu_skaits);
writeln (M[i].jauna);
writeln (M[i].krasaina);
writeln (M[i].ilustreta);
writeln (M[i].apvalks);
writeln (M[i].bibliotekas);
end
else writeln (' Sadas gramatas saraksta nav ! ');
writeln (' Ievadiet gramatas autoru : ');
readln (y);
for i:=1 to 10 do
begin
if y = M[i].autors then
inc (i2,1);
end;
writeln (i2);
readln;
end.
The Door Of History Is Open ... Will You Walking Through ? Я <3 Fr0z3n'a
|
| |
| |
AE Radio 
