Padėkit išspręst kelis FPS uždavinius

1. Aprašykite sąlyginio sakinio struktūrą.

2. Raskite kintamojo x reikšmę atlikus sakinių seką:

x := 3;

if x < 5 then x := (x + 1) mod 7;

if x = 3 then x := 4;

3. Parašykite programą, kuri tikrintų ar įvestas skaičius didesnis už 0, jei taip, tai traukiama šaknis iš to skaičiaus. Jei įvestas skaičius mažesnis pranešti apie tai sakiniu: „skaičius mažesnis“.

4. Parašykite programą, kuri tikrintų ar įvestas teigiamas skaičius yra triženklis, dviženklis ar vienaženklis.

5. Perrašykite šiuos sumaišytus sakinius, kad jų išsidėstymas kuo tiksliau atspindėtų sąlyginio sakinio struktūrą. Nustatykite, kokias reikšmes įgis kintamieji.

a := 10; b := 5; if a > b then a := a – b b := a * b

else else b := b - a; if a = b then

Iš anksto dėkui

1. Atliekamas tik vienas iš dviejų sakinių. Jeigu sąlyga tenkinama (yra teisinga), kompiuteris vykdo sakinį, einantį po žodžio then, tai yra sakinys1, jeigu sąlyga netenkinama (yra neteisinga), kompiuteris vykdo sakinį, einantį po žodžio else, tai yra sakinys2.

2. x lygu 4

3. program trecia;

var a:integer;

begin

WriteLn('Iveskite skaiciu');

Readln(a);

if a >0

then

writeln(sqrt (a))

else

writeln ('skaicius mazesnis');

readln;

end.

4. var a:integer;

begin

WriteLn('Iveskite skaiciu');

Readln(a);

if a < 10

then

writeln('vienazenklis')

else

if a < 100

then

writeln ('dvizenklis')

else

writeln ('trizenklis') ;

readln;

end.

4 lyg ir padariau, dabar reikia 5

var a,b:integer;

begin

a :=10; b :=5;

if a>b

then a :=a-b

else

if a=b

then

b :=a*b

else

b :=b-a;

writeln('ats yra',a:2,b:2);

readln;

end.

Išsprendžiau ir 5. Tik pažiūrėkit ar teisingai :) Dėkui

a := 10; b := 5; if a > b then a := a – b b := a * b
else else b := b - a; if a = b then 

a:= 5

b:= 25.

var a,b:integer;
begin
a :=10 b :=5;
if a>b 
then 
a := a - b;
b := a * b;
else 
b := b - a; 
writeln(a , b);

Patikrink su kompiliatoriumi, as senai pascalio nemaciau jau syntax pamirsau;