Pascal užduotys

Sveiki, rašau su prašymu. Rytoj dalyvausiu informatikos olimpiadoje ir noriu šiek tiek pasitreniruoti. Taigi jei jums nesunku, sugalvokite man keletą uždavinių 10-11 kursui. Ačiū :)

Aš irgi ruošiuosi :D Sėkmės :)

http://mariaus.net/asm/IMG_9757.JPG

Dėkui, bet atsiprašau, pamelavau - nepridėsiu pliuso, nes neturiu reikiamų teisių (nemačiau to seniau), bet skolingas neliksiu ;)

Gali sukurti kokią nors programą atsiliepimai ir, kad tos programos kokią info suveda, tai išsisaugoja faile kokiam nors, o per tą programą atsiliepimus būtų galima pažiūrėti. Čia viskas tik šeip, niekur nenaudosiul

Gali sukurti kokią nors programą atsiliepimai ir, kad tos programos kokią info suveda, tai išsisaugoja faile kokiam nors, o per tą programą atsiliepimus būtų galima pažiūrėti. Čia viskas tik šeip, niekur nenaudosiul

Bet taip įdomiai parašei, lyg kokiai web scriptingo kalbai, bet pabandysiu :P

gal kas 11-12 klasių uždavinukų turit

Aš irgi ruošiuosi :D Sėkmės :)

http://mariaus.net/asm/IMG_9757.JPG

Jei reikia - sprendimai

program Knygos_puslapiu_numeravimas;
{--Apsirašomi kintamieji--}
var
 n,                 			//Puslapių skaičius
 i,                 			//Ciklo kintamasis
 p_suma:integer;                //Puslapių skaičių suma
 s:string;                      //Ciklo kintamasis prilygintas "string" tipo kintamajam
{--Pagrindinė programos dalis--}
begin
 write('Puslapių skaičius: ');
 readln(n);
 writeln;
 for i:=1 to n do   			//Ciklas skirtas apaskaičiuoti puslapių skaičių sumai
  begin
  str(i,s);         			//Ciklo kintamasis "i" prilyginamas "s" kintamajam
  p_suma:=p_suma+length(s);
  end;
 writeln('Atsakymas: ',p_suma); //Spausdinamas atsakymas
 readln;
end.

program Skaiciu_rasymas_stulpeliais;
{--Masyvo aprašymas--}
type
 atmintis = array[1..100] of integer;
{--Kintamųjų aprašymas--}
var
 masyvas:atmintis;
 i,                                    //Ciklo kintamasis
 q:integer;                            //Ciklo kintamasis
{--Skaičių rūšiavimas mažėjimo tvarka, kai yra suvestas nelyginis skaičių skaičius--}
procedure rusiavimas_nelyginiam;
var
 y,
 z,
 x:integer;
begin
 for y:=1 to i do
  for z:=1 to i do
   begin
   if masyvas[y]>masyvas[z]
	then
     begin
     x:=masyvas[y];
     masyvas[y]:=masyvas[z];
     masyvas[z]:=x;
     end;
   end;
end;
{--Skaičių rūšiavimas didėjimo tvarka, kai yra suvestas lyginis skaičių skaičius--}
procedure rusiavimas_lyginiam;
var
 y,
 z,
 x:integer;
begin
 for y:=1 to i do
  for z:=1 to i do
   begin
   if masyvas[y]<masyvas[z]
	then
     begin
     x:=masyvas[y];
     masyvas[y]:=masyvas[z];
     masyvas[z]:=x;
     end;
   end;
end;
{--Spausdinami gauti rezultatai vartotojui, kai yra suvestas nelyginis skaičių skaičius--}
procedure spausdinimas_lyginiams;
begin
 for q:=1 to (i div 2) do
  begin
  write(masyvas[q],' ',masyvas[(i div 2)+q]);
  writeln;
  end;
end;
{--Spausdinami gauti rezultatai vartotojui, kai yra suvestas lyginis skaičių skaičius--}
procedure spausdinimas_nelyginiams;
begin
 for q:=1 to (i div 2) do
  begin
  write(masyvas[q],' ',masyvas[(i div 2)+q+1]);
  writeln;
  end;
  writeln(masyvas[(i div 2)+1]);
end;
{--Pagrindinė programos dalis--}
begin
 write('Įveskite skaičius: ');
 i:=1;
 while not eoln do         			//Ciklu nuskaitomi vartotojo įvesti duomenis
  begin
  read(masyvas[i]);
  if masyvas[i]=0
   then i:=i
   else i:=i+1;
  end;
  i:=i-1;
 readln;
 writeln;
 writeln;
 if i mod 2<>0             			//Tikrinama, ar suvestas skaičių skaičius yra nelyginis
  then
   begin
   rusiavimas_nelyginiam;              //Kreipiamasi į procedūra, tam, kad būtų surūšiuoti skaičiai
   spausdinimas_nelyginiams            //Kreipiamasi į procedūra, tam, kad būtų spausdinami rezultatai
   end
  else
   begin
   rusiavimas_lyginiam;                //Kreipiamasi į procedūra, tam, kad būtų surūšiuoti skaičiai
   spausdinimas_lyginiams; 			//Kreipiamasi į procedūra, tam, kad būtų spausdinami rezultatai
   end;
 readln;
end.