Jūs esate neprisijungęs lankytojas. Norint dalyvauti diskusijose, būtina užsiregistruoti ir prisijungti prie forumo.
Prisijungę galėsite kurti naujas temas, atsakyti į kitų užduotus klausimus, balsuoti forumo apklausose.
Administracija pasilieka teisę pašalinti pasisakymus bei dalyvius,
kurie nesilaiko forumo taisyklių.
Pastebėjus nusižengimus, prašome pranešti.
Dabar yra 2025 05 12, 12:11. Visos datos yra GMT + 2 valandos.
Jūs negalite rašyti naujų pranešimų į šį forumą Jūs negalite atsakinėti į pranešimus šiame forume Jūs negalite redaguoti savo pranešimų šiame forume Jūs negalite ištrinti savo pranešimų šiame forume Jūs negalite dalyvauti apklausose šiame forume
Sveiki,noreciau paprasyti pagalbos su siomis FPS uzduotimis:
Pirma padariau,bandziau antra bet buvo klaidu del kuriu programa nepasileido,o kitu beveik nesuprantu.
program u_8;
Uses Crt;
var i: integer;
masyvas : array[1..10] of Byte;
begin
Clrscr;
writeln ('Iveskite 10 skaiciu nuo 0 iki 255:');
for i:=1 to 10 do
readln(masyvas[i]);
writeln('');
writeln('Lyginiai skaiciai:');
for i:=1 to 10 do
begin
if (masyvas[i] mod 2) = 0 then
writeln(masyvas[i]);
end;
readln;
end.
9.
Kodas:
program u_9;
Uses Crt;
var i,n : integer;
masyvas : array[1..10] of Byte;
begin
Clrscr;
writeln ('Iveskite 10 skaiciu nuo 0 iki 255:');
for i:=1 to 10 do
readln(masyvas[i]);
writeln('');
n:=0;
for i:=1 to 10 do
begin
if masyvas[i] = 0 then
n := n + 1;
end;
writeln('Suma skaiciu lygiu nuliui: ', n);
is esmes tai tau reiktu sintakse pastudijuoti, o visa kita jau logika. Pvz 5 uzduotyje butina uztikrinti ivedamu duomenu korektiskuma: negalima dalyba is nulio, saknies traukimas is minusinio skaiciaus ir t.t.
program u_10;
Uses Crt;
var i,n, tmp : integer;
masyvas : array[1..10] of Byte;
begin
Clrscr;
writeln ('Iveskite 10 skaiciu nuo 0 iki 255:');
for i:=1 to 10 do
readln(masyvas[i]);
writeln('');
for n:=1 to 10 do
for i:=1 to 9 do
begin
if masyvas[i] < masyvas[i+1] then
begin
tmp := masyvas[i];
masyvas[i] := masyvas[i+1];
masyvas[i+1] := tmp;
end;
end;
writeln('Surusiuotas masyvas:');
for i:= 1 to 10 do
writeln('masyvas[',i,']=', masyvas[i]);
is esmes tai tau reiktu sintakse pastudijuoti, o visa kita jau logika. Pvz 5 uzduotyje butina uztikrinti ivedamu duomenu korektiskuma: negalima dalyba is nulio, saknies traukimas is minusinio skaiciaus ir t.t.
cia monei megstamiausia lygtis tas diskriminantas beveik ismasciau kaip viskon suvest.
program u_10;
Uses Crt;
var i,n, tmp : integer;
masyvas : array[1..10] of Byte;
begin
Clrscr;
writeln ('Iveskite 10 skaiciu nuo 0 iki 255:');
for i:=1 to 10 do
readln(masyvas[i]);
writeln('');
for n:=1 to 10 do
for i:=1 to 9 do
begin
if masyvas[i] < masyvas[i+1] then
begin
tmp := masyvas[i];
masyvas[i] := masyvas[i+1];
masyvas[i+1] := tmp;
end;
end;
writeln('Surusiuotas masyvas:');
for i:= 1 to 10 do
writeln('masyvas[',i,']=', masyvas[i]);
is esmes tai tau reiktu sintakse pastudijuoti, o visa kita jau logika. Pvz 5 uzduotyje butina uztikrinti ivedamu duomenu korektiskuma: negalima dalyba is nulio, saknies traukimas is minusinio skaiciaus ir t.t.
cia monei megstamiausia lygtis tas diskriminantas beveik ismasciau kaip viskon suvest.
Kodas:
program penkta;
var D, a, b,
c, x1, x2 : real;
begin
Writeln('Iveskite koeficiento a reiksme: ');
ReadLn(a);
Writeln('Iveskite koeficiento b reiksme: ');
ReadLn(b);
Writeln('Iveskite koeficiento c reiksme: ');
ReadLn(c);
D :=sqr(b) - 4*a*c;
if D < 0
then
WriteLn('Lygtis sprendiniu neturi.')
else if D = 0
then
begin
x1 := (-b)/(2*a);
WriteLn('Lygtis turi viena sprendini, jis yra: ',x1:8:2);
end
else
begin
x1 := (-b-sqrt(D))/(2*a);
x2 := (-b+sqrt(D))/(2*a);
WriteLn('Lygtis turi du sprendinius, jie yra',x1:8:2,' ',x2:8:2);
end;
Readln;
end.
program ketvirta;
var x1, x2, x3, x4,
y1, y2, y3, y4 : integer;
P : real;
AB, BC, CD, DA : real;
begin
WriteLn('Iveskite tasko A koordinates formatu x y :');
ReadLn(x1, y1);
WriteLn('Iveskite tasko B koordinates formatu x y :');
ReadLn(x2, y2);
WriteLn('Iveskite tasko C koordinates formatu x y :');
ReadLn(x3, y3);
WriteLn('Iveskite tasko D koordinates formatu x y :');
ReadLn(x4, y4);
AB := sqrt(sqr(x2-x1)+sqr(y2-y1));
BC := sqrt(sqr(x3-x2)+sqr(y3-y2));
CD := sqrt(sqr(x4-x3)+sqr(y4-y3));
DA := sqrt(sqr(x4-x1)+sqr(y4-y1));
P := AB + BC + CD + DA;
WriteLn('Iskilojo keturkampio perimetras yra: ',P:8:2,' ilgio vnt.')
ReadLn;
end.
program sesta;
var skaicius : integer;
n : integer;
i : integer;
mas : array[1..10000] of integer;
begin
WriteLn('Iveskite naturaluji skaiciu :');
ReadLn(skaicius);
n := 1;
for i := 1 to 10000 do
begin
if skaicius mod n = 0
then mas[i] := n;
n := n + 1;
end;
WriteLn('Skaicius ', skaicius,' yra dalus is: ');
for i := 1 to 10000 do
if mas[i] <> 0
then Write(mas[i], ' ');
ReadLn;
end.
program septinta;
var i : integer;
n, m : integer;
mas : array[1..10000] of integer;
begin
WriteLn('Iveskite intervalo pradine reiksme m :');
ReadLn(m);
WriteLn('Iveskite intervalo galine reiksme n :');
ReadLn(n);
for i := m to n do
begin
if i mod 5 = 0
then mas[i] := i;
end;
WriteLn('Skaicius 5 kartotiniai yra: ');
for i := m to n do
if mas[i] <> 0
then Write(mas[i], ' ');
ReadLn;
end.
Paprasciausia butu analizuoti panasius pavyzdzius ir viskas bus lengvai suprantama.
labai jau nesunkios programos, bet jeigu savarankiskai mokaisi tai viskas pateisinama
