| Kapa6acuK | Дата: Воскресенье, 27.05.2012, 22:53 | Сообщение # 1 |
А что такое реальный мир...?
Сообщений: 49
Offline
| Задание:
Variants 1
Izveidot programmu, kura izpildītu sekojošas darbības:
1. Nodefinēt ierakstu, kura saturētu 5 parametrus (laukus) par cilvēku: vārds, uzvārds, dzimšanas gads, pilsonība (ir vai nav), vidēja darba alga. Pieprasīt ievadīt no tastatūras visus ieraksta datus. Attīrīt ekrānu, izvadīt visus ieraksta datus, izmantojot struktūru with…do… .
2. Nodefinēt datu tipu ieraksts ar nosaukumu automobil, kura saturētu šādus datus par automobili: marka, modelis, izlaiduma gads, dzinēja tilpums, nobraukums, tehniskā apskate (ir vai nav), cena.
a. Nodefinēt 2 datu tipa auto mainīgos. Aizpildīt pirmā mainīgā datus ar vērtībām pēc jūsu izvēles.
b. Pieprasīt ievadīt no tastatūras otrā mainīgā datus.
Izvadīt uz ekrānu abu mainīgo datus šādā formā:
Auto 1 Auto 2
Marka: Marka_1 Marka_2
Modelis: Modelis_1 Modelis_2
Gads: Gads_1 Gads_2
Tilpums: Tilpums_1 Tilpums_2
Nobraukums: Nobraukums_1 Nobraukums_2
TA TA_1 TA_2
Cena: Cena_1 Cena_2
3. Salīdzināt abu mainīgo datus: gadījumā, ja kāda lauka vērtības sakrīt, izvadīt uz ekrānu atbilstošu paziņojumu. Piemēram, ja abiem mainīgiem lauks „Marka” satur vērtību „Lexus”, programmai jāizvada paziņojums: „Abu automobiļu marka ir Lexus”.
4. Papildināt ierakstu ar lauku komplektācija, kurā būtu iespējams saglabāt 10 teksta rindas ar automobiļa komplektāciju. Ievadīt abu automobiļu komplektācijas no tastatūras paredzot iespēju ievadīt no 2 līdz 10 komplektācijas punktiem katram automobilim. Aizliegt ievadīt divus vienādus punktus katra automobiļa komplektācijā.
Решение:
program Vishkers;
uses crt;
type
cilveks = record
vards : string;
uzvards : string;
dzimshanas_gads : integer;
pilsoniba : string;
videja_darba_alga : real;
end;
automobil = record
marka : string;
modelis : string;
izlaiduma_gads :integer;
dzineja_tilpums : real;
nobraukums : real;
tehniska_apskate : boolean;
cena : real;
end;
komplektacija = record
tuning : string;
end;
var persona:cilveks; auto1,auto2:automobil; i,a:integer; y:char; M,M2:array [1..10] of komplektacija;
begin
//1.uzdevums
writeln (' Ievadiet Vardu : ');
readln (persona.vards);
writeln (' Ievadiet Uzvardu : ');
readln (persona.uzvards);
writeln (' Ievadiet Dzimshanas gadu: ');
readln (persona.dzimshanas_gads);
writeln (' pilsoniba : ir vaj nav');
readln (persona.pilsoniba);
writeln (' Ievadiet videjo darba algu : ');
readln (persona.videja_darba_alga);
clrscr;
with persona do
begin
writeln (vards);
writeln (uzvards);
writeln (dzimshanas_gads);
writeln (pilsoniba);
writeln (videja_darba_alga);
end;
//2.uzdevums
with auto1 do
begin
marka := 'bmw';
modelis := '646';
izlaiduma_gads := 2011;
dzineja_tilpums := 5.0;
nobraukums := 1014;
tehniska_apskate := true;
cena := 60000.00;
end;
with auto2 do
begin
writeln (' Ievadiet mashinas marku : ');
readln (marka);
writeln (' Ievadiet mashinas modeli : ');
readln (modelis);
writeln (' Ievadiet mashinas izlaiduma gadu : ');
readln (izlaiduma_gads);
writeln (' Ievadiet mashinas dzineja tilpumu : ');
readln (dzineja_tilpums);
writeln (' Ievadiet mashinas nobraukumu: ');
readln (nobraukums);
writeln (' Ievadiet vaj ir mashinas tehniska apskate : (Y or N)');
readln (y);
auto2.tehniska_apskate :=y='y';
writeln (' Ievadiet mashinas cenu: ');
readln (cena);
end;
writeln (' Auto1 Auto2 ');
writeln ('Marka: ',auto1.marka,' ',auto2.marka);
writeln ('Modelis: ',auto1.modelis,' ',auto2.modelis);
writeln ('izlaiduma gads: ',auto1.izlaiduma_gads,' ',auto2.izlaiduma_gads);
writeln ('dzineja tilpums: ',auto1.dzineja_tilpums:5:2,' ',auto2.dzineja_tilpums:5:2);
writeln ('nobraukums: ',auto1.nobraukums:5:2,' ',auto2.nobraukums:5:2);
writeln ('tehniska apskate: ',auto1.tehniska_apskate,' ',auto2.tehniska_apskate);
writeln ('cena: ',auto1.cena:5:2,' ',auto2.cena:5:2);
//3.uzdevums
if auto1.marka = auto2.marka then writeln (' Abiem automobiliem ir vienada marka : ',auto1.marka);
if auto1.modelis = auto2.modelis then writeln (' Abiem automobiliem ir vienads modelis : ',auto1.modelis);
if (auto1.izlaiduma_gads = auto2.izlaiduma_gads) then writeln (' Abiem automobiliem ir vienads izlaiduma gads : ',auto1.izlaiduma_gads);
if auto1.dzineja_tilpums = auto2.dzineja_tilpums then writeln (' Abiem automobiliem ir vienads dzineja tilpums : ',auto1.dzineja_tilpums);
if auto1.nobraukums = auto2.nobraukums then writeln (' Abiem automobiliem ir vienads nobraukums : ',auto1.nobraukums);
if auto1.tehniska_apskate = auto2.tehniska_apskate then writeln (' Abiem automobiliem ir vienada tehniska apskate : ',auto1.tehniska_apskate);
if auto1.cena = auto2.cena then writeln (' Abiem automobiliem ir vienada cena : ',auto1.cena);
//4.uzdevums
repeat
writeln ('Ievadiet 1 automobila komplektaciju punktu skaitu : ');
readln(a);
until (a>=2) and (a<=10);
for i:=1 to a do
repeat
begin
write(i,'. punkts : ');
readln (M[i].tuning);
end;
until (M[i].tuning) <> (M[i-1].tuning);
repeat
writeln ('Ievadiet 2 automobila komplektaciju punktu skaitu : ');
readln(a);
until (a>=2) and (a<=10);
for i:=1 to a do
repeat
begin
write(i,'. punkts : ');
readln (M2[i].tuning);
end;
until (M[i].tuning) <> (M2[i-1].tuning);
readln;
end.
The Door Of History Is Open ... Will You Walking Through ? Я <3 Fr0z3n'a
|
| |
| |
AE Radio 
