Pascal – anket proqramı

salam.xəstəxanada xəstələr haqqinda informasiyani ozunde eks etdiren fayl yaratmaliyiq.struktur beledi:soyadi,anadan oldugu yer,yasi, cinsi,diaqnoz.asagidaki informasiyani capa cixaran proqram tertib etmeliyik;
18 yasdan boyuk olan xestelerin soyadi,anadan olduğu yer ve diaqnoz.proqrami yazmisam paskalda.amma if olan yerde sehv var.sehvi tapa bilmire.xahis edirem komek edin.mən basqalari kimi 0dan proqram istemirem.ozum yaziram amma duzelis edin xahis edirem.cox sagolun.

program yazi_tipi;
uses crt;
Type
anket=record
Soyad:string;
dog_yer:string;
yas:string;
cins:string;
diaqnoz:string;
end;
var
xeste:array [1..3] of anket;
i:byte;x:real;
begin for i:=1 to 3 do
with xeste[i] do
begin writeln ('xestenin soyadini daxil edin');
readln(soyad);
writeln('anadan oldugu yeri daxil edin');
readln(dog_yer);
writeln('yasini daxil edin');
readln(yas);
writeln('cinsini daxil edin');
readln(cins);
writeln('diaqnozunu daxil edin');
readln(diaqnoz);
end;
writeln('daxil etme bitdi');
for i:=1 to 3 do 
if (xeste[i].yas>18) then begin
for i:=1 to 2 do begin

writeln('xestenin soyadi:',xeste[i].soyad);
writeln('dog_yer:',xeste[i].dog_yer);
writeln('yas:',xeste[i].yas);
writeln('cins:',xeste[i].cins);
writeln('diaqnoz:',xeste[i].diaqnoz);
end;
end;
end.

Yadda saxlama
Kateqoriya: Sual . , . Qısa keçid.

Verilmiş cavablar və yazılan şərhlər (1 cavab var)

(17:14, 19/12/2014 ) #50860

düzü mənim paskal-dan bir elə başım çıxmır. amma mümkünsə xəta kodunu da paylaşardız.

bir şeyi də dəqiqləşdirim, kodun original variantında, aşağıda göstərdiyim hissədə “>” yazmısız, ya “>”?

if (xeste[i].yas>18) 
Cavablamaq üçün sağ sütundan hesaba daxil olmaq lazımdır

Bu suala aid öz sualım var:
Sual verin
Bu suala cavab vermək istəyirəm:
Cavab verin

Cavab verin


Cavab yazmaq üçün lütfən sağ sütundan və ya buradan hesaba daxil olun.

Üzvlər üçün giriş

Qeydiyyat

Elan qutusu

Son cavablar və şərhlər

MiMov cavab verdi - Özəl ip tv qurmaq (4 gün əvvəl)

MiMov cavab verdi - iptv onlayn paket almaq (4 gün əvvəl)

E. Hacı cavab verdi - 300$ Gömrük Limitini keçdim (11 gün əvvəl)

Software Developer cavab verdi - Aliexpress gömrük rüsumu nəyə görə hesablanır? (12 gün əvvəl)

AliyevYT cavab verdi - Honeygain, passiv gelir (13 gün əvvəl)

Sıradan biri cavab verdi - IMEI qeydiyyatı (15 gün əvvəl)

Fariz Huseynli cavab verdi - cerimenin öyrənilməsi (18 gün əvvəl)

Software Developer cavab verdi - cerimenin öyrənilməsi (20 gün əvvəl)

Software Developer cavab verdi - Kapital bank rekvizit payoneer (20 gün əvvəl)

Software Developer cavab verdi - Hər hansı kompyuter proqramının (EXE faylı) etibarlı olub olmaması yəni qanuni və ya saxta olduğunu necə bilmək olar ? (20 gün əvvəl)

txmn cavab verdi - Hərbi biletsiz, möhlətsiz iş (22 gün əvvəl)

Galaxy cavab verdi - X-də (Twitter) premium abunəliklə bağlı çətinlik (22 gün əvvəl)

Rsad Ncfli cavab verdi - Payonner 2024 ilə bağlı sual (28 gün əvvəl)

Software Developer cavab verdi - Payonner 2024 ilə bağlı sual (28 gün əvvəl)

Rsad Ncfli cavab verdi - Payonner 2024 ilə bağlı sual (28 gün əvvəl)

Software Developer - 615 xal

E. Hacı - 607 xal

Onar Alili - 526 xal

Dilsuz - 448 xal

Cabbarov Sübhan - 434 xal

Maqa - 346 xal

Ruslan Butdayev - 328 xal

Namiq Bəndəli - 297 xal

U.Tarlan - 244 xal

Meherremoff - 234 xal

Sistemə daxil olmuş 23229 sualdan 92%-dən çoxu cavablandırılmışdır.

Proyekt haqqında

E-Haci.net istehsalı. © 2010-2024