program perimetras_plotas;

var a,b:integer;

begin

  WriteLn('Iveskite stačiakampio ilgį:');

  Read(a);

  WriteLn('Iveskite stačiakampio plotį:');

  Read(b);

  WriteLn('Plotas:',a*b,'Perimetras:',a+b+a+b);

  Readln;

  ReadLn;

end.

program Bevardė6;

var a,b,c:longint;

begin

  WriteLn('Iveskite a:');

  Read(a);

  WriteLn('Iveskite b:');

  Read(b);

  WriteLn(a*a, b*b, c*c);

  b:=a*a;

  c:=b*b;

  Readln;

end.

program laipsniai;

var a,b,c,rez : longint;

begin

 Write('Įrašykite laipsnio pagrindą: ');

 Readln(a);

 rez:=1;

 Write('Įrašykite laipsnio rodilkį: ');

 Readln(b);

 begin

   for c:=1 to b do

     begin

       rez:=rez*a;

     end;

 end;

 WriteLn(rez);

 ReadLn;

 end.

program laipsniai;

var a:integer;

begin

 Write('Įrašykite skaičių: ');

 Readln(a);

 WriteLn('Pakėlus 9 laipsniu bus ',a*a*a*a*a*a*a*a*a);

 ReadLn;

 end.

 

:1

Writeln('Sveikas');

goto 1

goto 1

goto 1

Readln;

 

 

program Bevardė6;

var a,b,c:longint;

begin

  WriteLn('Iveskite a');

  Read(a);

  a:=a*a;

  b:=a*a;

  c:=b*b;

  Write(c);

end.

Užduotys savarankiškam darbui:

 

1. Duoti du plokštumos taškai A(x1;y1) ir B(x2;y2). Nustatykite, kuris iš jų arčiau abscisių (OX) ašies.

 

2. Duo ti trys sveikieji skaičiai a, b ir c. Nustatykite, ar tarp jų yra lyginių skaičių. 

 

3. Ar tarp skaičių a, b, c yra bent viena pora atvirkštinių skaičių?

 

4. Duotas triženklis skaičius. Nustatykite, ar jo skaitmenys išdėstyti didėjančiai.

 

5. Duotas triženklis skaičius n. Sudarykite naują triženklį skaičių, kurio skaitmenys tokie pat kaip duotojo skaičiaus n, tik išdėstyti mažėjimo tvarka. 

 

6. Duoti trys sveikieji skaičiai a, b, c. Raskite dviejų didesnių sandaugą. 

 

7. Duoti trys sveikieji skaičiai a, b, ir c. Nustatykite, ar galima iš tokio ilgio atkarpų sudaryti statųjį trikampį.

 

---

 

8. Raskite nelygybės ax + b < 0 sprendinius.

 

9. Nustatyti, ar taškas M(x; y) priklauso trikampiui ABC, kurio viršūnėmis yra taškai A(a; 0), B(0; a) ir C(0; 0)? 

 

10. Nustatykite, ar galima rąstą, kurio skersmuo d, išimti pro stačiakampę angą, kurios plotis l ir aukštis h? 

 

11. Raskite lygties ax2 + bx + c = 0 sprendinius. 

 

12. Raskite dviejų tiesinių lygčių su dviem nežinomaisiais sistemos sprendinį: 

 

 

13. Patikrinkite, kuris iš taškų A(x1; y1), B(x2; y2), C(x3; y3) priklauso sričiai:

 

 

14. Laikrodžio rodomą laiką, išreikštą valandomis minutėmis ir sekundėmis padidinkite viena sekunde. Parodykite pradinį ir po sekundes gautą laiką. 

 

15.  Nustatykite galimas apskritimo x2 + y2 = r2 ir tiesės y = kx + b padėtis (kertasi, liečiasi, neturi bendrų taškų).

Užduotys savarankiškam darbui: 

 

Nustatyti, ar skaičius pirminis ar sudėtinis. Jei sudėtinis – rasti jo daliklius ir jų kiekį. 

 

Sugeneruokite skaičių seką iš intervalo [x; y]. Sekoje turi būti 40 narių. Raskite, kurie sekos nariai nesidalija iš 2 ir 7. Kiek tokių skaičių buvo sugeneruota?

 

Taupomasis bankas indėlininkams moka 3% dydžio metines palūkanas, kurios skaičiuojamos kiekvienų metų gale. Sudaryti programą, kuri, nurodžius indėlio dydį ir trukmę metais, suskaičiuotų palūkanų sumą. 

Natūraliojo skaičiaus n skaitmenis užrašykite atbulai ir gautą skaičių ir duotąjį parodykite ekrane. 

Kiek yra natūraliųjų skaičių n (n < 13), kurių ketvirtieji laipsniai baigiasi 6? Parodykite juos ekrane. 

 

Kiek metų reikia laikyti pinigus taupomajame banke, kad, mokant 5% metinių palūkanų, pradinis indėlis padvigubėtų?

 

Raskite dviejų natūraliųjų skaičių m ir n didžiausią bendrą daliklį.

 

Apskaičiuokite sumą: 

S = 1×n + 2×(n-1) + 3×(n-2) +...+ (n-1)×2 + n×1

Užduotys savarankiškam darbui: 

 

Parašykite funkciją, nustatančią, ar skaičius baigiasi dviem vienodais skaitmenimis, nelygiais nuliui (pvz.: 133 arba 1244). Sudarykite programą, kuri rastų visus dviženklius skaičius, kurių kvadratas baigiasi dviem vienodais skaitmenimis, nelygiais nuliui (pvz.: 122=144). Kiek tokių dviženklių skaičių yra? 

 

Funkcija nustato, ar trys natūralieji skaičiai gali būti stačiojo trikampio kraštinėmis. Raskite visus triženklius skaičius, kurių skaitmenys yra stačiojo trikampio kraštinių ilgiai. 

Funkcija nustato, ar duotas natūralusis skaičius pirminis. Raskite visus intervalo [x; y] pirminius skaičius. Jeigu pirminių intervale nėra - informuokite.

Funkcija apskaičiuoja duotojo sveiko skaičiaus faktorialą. Pasinaudodami funkcija patikrinkite, ar teisinga nelygybė, kai n duotas skaičius:

 

Procedūra nustato, ar natūralusis skaičius n dalosi iš jo skaitmenų kvadratų sumos? Parodykite visus triženklius skaičius, pasižyminčius šia savybe. 

Procedūra nustato, ar natūralusis skaičius n dalosi iš jo daliklių, nelygių 1 ir n, sumos? Parodykite visus dviženklius skaičius, nepasižyminčius tokia savybe. 

Procedūra nustato, ar triženklio skaičiaus kvadrato paskutinieji skaitmenys sudaro tą patį skaičių? Parodykite visus triženklius skaičius, pasižyminčius šia savybe.

Užduotys savarankiškam darbui:

 

1. Parodykite ekrane tuos masyvo elementus, kurie patenka į intervalą [x; y]. Jeigu tokių nėra - informuokite.

 

2. Duotas realiųjų skaičių masyvas iš n elementų. Raskite masyvo elementų aritmetinį vidurkį. 

 

3. Sugenerukite du vienmačius realiųjų skaičių masyvus, turinčius po n elementų: 

raskite tų masyvų atitinkamų elementų sandaugų sumą; 

raskite tų masyvų atitinkamų elementų sumų sandaugą; 

nustatykite ar lygūs tų masyvų atitinkami elementai. 

 

4. Į naują masyvą sudėkite tuos duoto masyvo elementus, kurių paskutinis skaitmuo lygus 5. Abu masyvus parodykite.

 

5. Duotas realiųjų skaičių masyvas a iš n elementų. Sudarykite naują masyvą b, kurio elementai apskaičiuojami pagal formulę: b[i]=(a[i]+a[n])/2.

 

6. Duotas vienmatis masyvas a iš n skirtingų elementų ir vienmatis masyvas b iš m skirtingų elementų. Raskite tokius masyvo a elementus, kurių nėra masyve b.

 

7. Duotas vienmatis realiųjų skaičių masyvas iš n elementų. Į naują masyvą sudėkite tik tuos elementus, kurių numeriai yra sudėtiniai skaičiai.

 

8. Duotas vienmatis sveikųjų skaičių masyvas iš n elementų. Raskite duoto masyvo medianą (Mediana vadinamas sutvarkyto masyvo vidurinis elementas, kai masyvo elementų kiekis nelyginis, ir dviejų vidurinių elementų aritmetinis vidurkis, kai masyvo elementų kiekis - lyginis).

 

9.Duotas vienmatis realiųjų skaičių masyvas iš n elementų. Masyvo elementai gali būti 0, 1 arba 2. Sutvarkykite masyvo elementus taip, kad pradžioje būtų vienetai, po to nuliai, o pabaigoje dvejetai.

Užduotys savarankiškam darbui:

Duoti trys žodžiai. Iš jų sudarykite sakinį ir parodykite ekrane. 

Duotas sakinys. Kiek jame skyrybos ženklų? 

Kiek duotame sakinyje žodžių, kurie prasideda ir baigiasi raide 's'? 

Pirmą sakinio žodį sukeiskite su paskutiniuoju. 

Duotas sakinys. Nustatykite, ar jame yra žodis x. Jeigu žodis yra, pakeiskite jį žodžiu y. Pakeistą sakinį parodykite ekrane.

Raskite ilgiausią duotojo sakinio žodį.

Rašant tekstą „drebėjo“ ranka ir kai kur pasirašė vietoje vienos raidės kelios tos pačios. Išmeskite iš teksto tas nereikalingas raides. 

Sakinyje be raidžių yra ir skaitmenų. Tuos skaitmenis išrinkite ir sudarykite didžiausią galimą sveiką skaičių. 

Duotas masyvas, kurio elementai Jūsų grupės draugų vardai. Papildykite masyvą dviem naujais vardais, sutvarkykite naują sąrašą abėcėlės tvarka ir parodykite ekrane. 

Duotojo sakinio žodžius išdėstykite abėcėlės tvarka. 

Duotas sakinys, kuriame yra skaičių. Nustatykite, ar sakinyje yra bent vienas skaičius, kuris dalijasi iš 3. 

Duota data užrašoma pilnu formatu (pvz. 2007 m. rugsėjo mėn. 10 d.). Sudarykite programą, kuri duotą datą užrašytų sutrumpintu formatu (pvz. 2007.09.10).

Užduotys savarankiškam darbui: 

Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Nustatykite, ar skaičius x yra duotame masyve. Jeigu taip, nustatykite, kurioje eilutėje ir kuriame stulpelyje jis stovi.

Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite didžiausią šio masyvo elementą. Kiek kartų didžiausio elemento reikšmė pasikartoja duotame masyve? 

Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite kiekvienos eilutės didžiausią elementą. 

Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite kiekvieno stulpelio sumą ir nustatykite, kurio stulpelio suma mažiausia. 

Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Masyvo elementai simboliai. Apskaičiuokite kiekvieno simbolio pasikartojimo dažnį. 

Dvimačio masyvo, sudaryto iš n eilučių ir m stulpelių elementus sukeiskite horizontalios simetrijos ašies atžvilgiu. 

Sudarykite dvimatį masyvą iš n eilučių ir m stulpelių, kurio elementai:

a[i,j]=i j . 

Duotas dvimatis masyvas, sudaryta iš n eilučių ir n stulpelių. Raskite didžiausią kiekvienos eilutės elementą ir sukeiskite vietomis su tos eilutės elementu, esančiu šalutinėje įstrižainėje. 

Duotas dvimatis masyvas, sudarytas iš n eilučių ir m stulpelių. Išbraukite masyvo k–tąją eilutę ir p–tąjį stulpelį.

Duotas dvimatis masyvas, sudarytas iš n eilučių ir n stulpelių. Rasti teigiamų elementų, esančių po pagrindine įstrižaine, sumą ir neigimų elementų, esančių po šalutine įstrižaine, sandaugą.

Užduotys savarankiškam darbui: 

Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Nustatykite, ar skaičius x yra duotame masyve. Jeigu taip, nustatykite, kurioje eilutėje ir kuriame stulpelyje jis stovi.

Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite didžiausią šio masyvo elementą. Kiek kartų didžiausio elemento reikšmė pasikartoja duotame masyve? 

Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite kiekvienos eilutės didžiausią elementą. 

Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Raskite kiekvieno stulpelio sumą ir nustatykite, kurio stulpelio suma mažiausia. 

Duotas dvimatis masyvas turintis n eilučių ir m stulpelių. Masyvo elementai simboliai. Apskaičiuokite kiekvieno simbolio pasikartojimo dažnį. 

Dvimačio masyvo, sudaryto iš n eilučių ir m stulpelių elementus sukeiskite horizontalios simetrijos ašies atžvilgiu. 

Sudarykite dvimatį masyvą iš n eilučių ir m stulpelių, kurio elementai:

a[i,j]=i j . 

Duotas dvimatis masyvas, sudaryta iš n eilučių ir n stulpelių. Raskite didžiausią kiekvienos eilutės elementą ir sukeiskite vietomis su tos eilutės elementu, esančiu šalutinėje įstrižainėje. 

Duotas dvimatis masyvas, sudarytas iš n eilučių ir m stulpelių. Išbraukite masyvo k–tąją eilutę ir p–tąjį stulpelį.

Duotas dvimatis masyvas, sudarytas iš n eilučių ir n stulpelių. Rasti teigiamų elementų, esančių po pagrindine įstrižaine, sumą ir neigimų elementų, esančių po šalutine įstrižaine, sandaugą.

program laipsnis;

 var a,laip: integer;

begin

 writeln ('Iveskite skaiciu: ');

  readln (a);

  laip:=sqr(a);

  writeln('pakelus ',a ,' kvadratu, gauname: ',laip);

  Readln;

end.

program sandauga;

var a,b,san : real; {nes kad galetum per kableli daugint}

begin

  WriteLn('iveskite pirma skaiciu: ');

  Readln (a);

  WriteLn('iveskite antra skaiciu: ');

  Readln (b);

  san:=a*b;

  writeln ('atsakymas : ',san:2:2);

  readln;

end.