1. PAPRASTOS PROGRAMOS, CIKLAI
1. Parasyti programa, kuri apskaiciuotu funkcijos reiksme:kai x>0, tai y=1, jei x kita reiksme, tai y=2.
program Funkcija_I;
var x,y:integer;
begin
WriteLn (‘Ivesk x reiksme’);
ReadLn (x);
if x>0 then y:= 1
else y:= 2;
WriteLn (‘y=’, y);
ReadLn;
end.
2. Jei 5>x>0, tai y=1, kai 10>x>=5, tai y=2, kai x>=10, tai y=4.
program Funkcija_II;
var x,y:integer;
begin
WriteLn (‘Ivesk x reiksme:’);
ReadLn (x);
if (x>=10) then
begin
y:=4;
WriteLn (‘y=’,y);
end
else if (10>x) and (x>=5)
then
begin
y:=2;
WriteLn (‘y=’,y);
end
else if (5>x) and (x>0)
then
begin
y:=1;
WriteLn (‘y=’,y);
end
else WriteLn (‘y neturi sprendiniu’);
ReadLn;
end.
3. Parasyti programa, kuri apskaiciuotu staciakampio zemes sklypo plota. Ilgis ir plotis ivadami is klaviaturos.
program Sklypo_plotas;
var S, x, y:longint;
begin
WriteLn (‘Ivesk sklypo ilgi ir plota’);
ReadLn (x,y);
{tikrinam, ar krastine(s) nera neigiamos arba lygios nuliui}
if (x<=0) or (y<=0)
then WriteLn (‘Sklypo krastine(s) negali buti maziau arba lygi 0!’)
else
begin
S:= x*y;
WriteLn (‘Sklypo plotas yra ‘,S,’ kvadr. vnt.’);
end;
ReadLn;
end.
4. Parasyti programa, kuri tikrintu, ar galima is triju is klaviatūros ivestu krastiniu ilgiu sudaryti trikampi. Trecioji krastine negali buti didesne uz kitu dveiju suma.
program Trikampio_sudarymas;
var a,b,c:real;
begin
WriteLn (‘Ivesk trikampio krastiniu ilgius:’);
ReadLn (a,b,c);
{tikrina, ar ilgiai nera lygus ar mazesni uz nuli}
if (a<=0) or (b<=0) or (c<=0)
then WriteLn (‘a, b, c negali buti maziau arba lygus nuliui!’)
else
if ((a+b)>c) and ((b+c)>a) and ((a+c)>b)
then WriteLn (‘Trikampi galima sudaryti!’)
else WriteLn (‘Trikampio sudaryti negalima!’);
ReadLn;
end.
Ciklas FOR
5. Programa apskaiciuoja dvizenkliu, t.y. nuo 10 iki 99 skaiciu suma.
Program Dvizenkliu_suma;
var x:integer;
n:longint;
begin
n:=0;
x:=0;
{kol x yra nuo 10 iki 99, vykdyk sia uzduoti n=n+x
ciklo sakinys FOR pats padidina x vienu vnt iki nurodytos ribos (99)}
for x:=10 to 99 do
n:=n+x;
WriteLn (‘Visu teigiamu dvizenkliu (10-99) skaiciu suma yra ‘,n,’.’);