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)
0
Şəklin linki nəsə işləmədi, məsələ Bu ‘dur.
0
Ö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.
0
(görünür, axırlarda böyük&kiçik işarələri HTML teqləri hesab olunaraq səhifədə itir 🙂 )
0
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? 🙂
0
” Img src=”şəklin ünvanı” ” kimi qoymuşdum ki.., Yoxsa Enini də yazmaq lazım idi?)
0
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.
Sual verin
Cavab verin