Pascal’da Şərti qurarkən iki-üç hal eyni anda icra olunur

Salam. Məsələ budur: Belə yazmışam: var a,b,c,d:real; begin read(a,b,c,d); if (d <= c) and (c <= b) and (b <= a) then begin a:=b; a:=c; a:=d; writeln(a,' ',b,' ',c,' ',d); end; if (a<b) and (b<c) and (c<d) then writeln(a,b,c,d) else writeln(a*a ,' ', b*b , ' ',c*c , ' ',d*d); end. İşləməyinə işləyir,amma verilənləri daxil edəndə ,məsələn, 4 4 4 4 verəndə lazım olan 4 4 4 4 lə birlikdə 16 16 16 16 da çıxardaraq digər şərti icra edir və s. oxşar uyğunsuzluqlar var. Bunun normal olmasıyçün şərtlər, gərək, if... else if... else if.. else.. Kimi olaydı, amma a:=b; a:=c; a:=d; Mənimsətmələrinin sonundakı " ; " else if yazmağa imkan vermir, Begin&End'li if'lər yazmalı oluram ki, onda da bir neçə şərt eyni anda icra olunur. Bilən varsa, kömək eləsin, zəhmət olmasa.

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

E. Hacı (2016-11-05 20:14:16)
Sadəcə goy fonda yazılan kimi edin. Dırnaq isarəsi də məhz ordakı kimi olmalıdır. Və yaxud da img src olmasa da olar. Təki düzgün bir url link olsun şəklə aid. Kodu isə orda yazılan code teqləri ilə daxil etmək gərək.

Aleks (2016-11-05 18:08:26)
" Img src="şəklin ünvanı" " kimi qoymuşdum ki.., Yoxsa Enini də yazmaq lazım idi?)

E. Hacı (2016-11-05 10:35:56)
Həm sual həm cavab hissənin üstündə RƏNGLİ fonda yazılıb axı necə daxil etmək lazımdır kodu və şəkli, niyə oxumursuz onu? :)

Aleks (2016-11-02 22:52:42)
(görünür, axırlarda böyük&kiçik işarələri HTML teqləri hesab olunaraq səhifədə itir :) )

Aleks (2016-11-02 22:01:43)
Öyrəndim, belədi: var a,b,c,d:integer; begin readln(a,b,c,d); if (a>=b) and (b>=c) and (c>=d) then begin b:=a; c:=a; d:=a; end; if (a<b) and (b<c) and (c<d) then begin a:=a; b:=b; c:=c; d:=d; end; if ((ac)) or ((bd)) or ((ad)) or ((ad)) then begin a:=a*a; b:=b*b; c:=c*c; d:=d*d; end; writeln(a,' ',b,' ',c,' ',d); end.

Aleks (2016-11-02 19:47:12)
Şəklin linki nəsə işləmədi, məsələ Bu 'dur.

Sual və cavabları tam formada göstər

Mövzu üzrə bənzər suallara da baxa bilərsiniz.

Dil dəyişmədə çətinlik

Nokia 2730-a dil yükləmək

Paskal proqramlaşdırma dilində yaxşı ideya axtarışındayam.

Amerikada Təhsil

Niye, Azerbaycanda komputer elmlerine maraq bu qeder azdir ?

Proqramlaşdırma biliyim