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.
12 | xeste:array [1..3] of anket; |
16 | begin writeln ('xestenin soyadini daxil edin'); |
18 | writeln('anadan oldugu yeri daxil edin'); |
20 | writeln('yasini daxil edin'); |
22 | writeln('cinsini daxil edin'); |
24 | writeln('diaqnozunu daxil edin'); |
27 | writeln('daxil etme bitdi'); |
29 | if (xeste[i].yas>18) then begin |
32 | writeln('xestenin soyadi:',xeste[i].soyad); |
33 | writeln('dog_yer:',xeste[i].dog_yer); |
34 | writeln('yas:',xeste[i].yas); |
35 | writeln('cins:',xeste[i].cins); |
36 | writeln('diaqnoz:',xeste[i].diaqnoz); |
Verilmiş cavablar və yazılan şərhlər (1 cavab var)
0
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 “>”?
1if (xeste[i].yas>18)Sual verin
Cavab verin