Pascalio užduotys

Užduotys 1.a) Parašykite programą, kuri apskaičiuotų funkcijos reiksmę:kai x>0, tai y=1, jei x kita reikšmė, tai y=2. b) . Jei 5>x>0, tai y=1, kai 10>x>=5, tai y=2, kai x>=10, tai y=4. 2. Parašykitė programą, kuri apskaičiuotų stačiakampio žemės sklypo plotą. Ilgis ir plotis ivadami is klaviatūros. 3. Parašytkite programą, kuri tikrintų, ar galima iš trijų klaviatūros ivestų kraštinių ilgių sudaryti trikampi. Trečioji kraštinė negali buti didesnė už kitų dviejų sumą. 4, Parašytkite programą , kuri apskaičiuoja dviženklių, t.y. nuo 10 iki 99 skaičiu sumą. 5. Parašytkite programą, kuri skaičuoja is klaviatūros ivesto sveiko teigiamo nelygaus nuliui ir mažesnio uz 17 skaičiaus faktorialą. 6. Parašytkite programą kuri, šimtą kartų atspausdintų žodį "Labas!". 7. Parašytkite programą kuri, apskaičiuoja visų teigiamų triženklių skaicių (100-999) sumą. 8. . Parašytkite programą kuri, suskaičiuoja visu vienženklių skaičių (0-9) sumą. 9. Parašytkite programą kuri, skaičiuoja visu teigiamų lyginiu dviženklių skaičių sumą. 10. Parašytkite programą kuri skaičiuoja visu teigiamų nelyginių dvženklių skaičių sumą. Atsakymai 1 a)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; b) 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. 2 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 (xc) and ((b+c)>a) and ((a+c)>b) then WriteLn ('Trikampi galima sudaryti!') else WriteLn ('Trikampio sudaryti negalima!'); ReadLn; end. 4 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,'.'); ReadLn; end. 5 Program Faktorialo_skaiciavimas; var n,i:integer; f:longint; begin WriteLn ('Ivesk sveika teigiama nelygu nuliui ir mazesni uz 17 skaiciu:'); ReadLn (n); f:=1; if n

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!