FPS programavimas, padėkite.

,

Sitos uzduotys labai lengvos. Jei tokiu neissprendi tai kas veliau bus :unsure:

Stai sprendimai

program sk_santykis;
var skaicius:integer; santykis:real;

procedure suskaiciuok(skaicius:integer; var santykis:real);
begin
{Ismetame pirmaji skaiciu kad mums liktu du paskutiniai}
skaicius:= skaicius mod 100;
{ randame skaiciu santykio kvadrata}
santykis:=sqr((skaicius div 10)/(skaicius mod 10))
end;

begin
 WriteLn('Ivesk trizenkli skaiciu');
 Readln(skaicius);
 suskaiciuok (skaicius, santykis);
 writeln('santykio kvadratas: ',santykis:2:2);
 readln;
end.

program kompiuteriu_skaicius;
var lt,ct,k_lt,k_ct,kompiuteriai:integer; priedai:real;

procedure suskaiciuok(lt,ct,k_lt,k_ct:integer; var priedai:real; var kompiuteriai:integer);
var viso,kaina:longint;
begin
{suskaiciuojame kiek mokykla isviso turi centu}
viso:=lt*100+ct;
{suskaiciuojame kiek centu kainuoja vienas kompiuteris}
kaina:=k_lt*100+k_ct;
{apskaiciuojame kiek kompiuteriu galima nusipirkti uz musu turimus centus}
kompiuteriai:= viso div kaina;
{apskaiciuojame kiek litu kainuos priedai}
priedai:= (viso- kaina*kompiuteriai)/100
end;

begin
 WriteLn('Iveskite mokyklos turimus litus, centus bei kompiuterio kainos litus, centus');
 Readln(lt,ct,k_lt,k_ct);
 suskaiciuok(lt,ct,k_lt,k_ct,priedai,kompiuteriai);
 writeln ('Nupirkti ',kompiuteriai,' kompiuteriai');
 writeln ('Priedai kainavo: ', priedai:2:2,' LT');
 readln;
end.

Zinau, kad lengvos, o neizsprendziu todel, kad gyvenime rimtu Informatikos pamoku iki 9kl nebuvo :)

Didelis aciu tau Flow. Gavai +rep uz pagalba. :unsure:

Einu patestuosiu pazeriusiu kaip gavosi :)

Flow, aisku butu galima ir formatuoti savo koda, nes dabar neperskaitomas :D

Arba sumalta i viena kruva arba per daug isplesta :s

Flow, aisku butu galima ir formatuoti savo koda, nes dabar neperskaitomas :)

 

Arba sumalta i viena kruva arba per daug isplesta :s

Tu teisus, galejau ta koda ir aiskesni padaryti, pora komentaru dadeti, bet cia turbut toks blogas iprotas is mokyklos, kai per pamoka reikia keleta programu parasyti tai nebelieka laiko ir pagrazinimams :lol:

Tu teisus, galejau ta koda ir aiskesni padaryti, pora komentaru dadeti, bet cia turbut toks blogas iprotas is mokyklos, kai per pamoka reikia keleta programu parasyti tai nebelieka laiko ir pagrazinimams ;)

Ka mokykloj moko, vienai programai uztenka penkiu minuciu...

sveiki :( zmones, bukit geri padekit!! turiu padaryt paskalio uzduoti, bet net neisivaizduoju kaip ja daryt :) gal kas galetumet padet??? buciau labai labai dekinga! :(

Parašyti programą, kuriose būtų aprašytas savas įrašo tipas (record, struct) ir bent viena funkcija arba procedūra. Procedūra ar funkcija privalo gauti duomenis ir juos grąžinti tik naudodama parametrus:

Įvedami 3 taškai (jų koordinatės). Patikrinti, ar jie yra stataus trikampio viršūnės.

sveiki :( zmones, bukit geri padekit!! turiu padaryt paskalio uzduoti, bet net neisivaizduoju kaip ja daryt :( gal kas galetumet padet??? buciau labai labai dekinga! :(

 

Parašyti programą, kuriose būtų aprašytas savas įrašo tipas (record, struct) ir bent viena funkcija arba procedūra. Procedūra ar funkcija privalo gauti duomenis ir juos grąžinti tik naudodama parametrus:

Įvedami 3 taškai (jų koordinatės). Patikrinti, ar jie yra stataus trikampio viršūnės.

Atlygis? :)

Atlygis? :(

Alaus galiu pasiulyt.. ? :(

Gal kas galetu padeti su paskaliu, buciau labai dekingas.

Krepsinio kamuolio skersmuo D.Turime daug deziu,kuriu vidaus aukstis,plotis ir ilgis zinomi.Reikia nustatyti,keliose is deziu telpa tas kamuolys

Gal kas galetu padeti su paskaliu, buciau labai dekingas.

Krepsinio kamuolio skersmuo D.Turime daug deziu,kuriu vidaus aukstis,plotis ir ilgis zinomi.Reikia nustatyti,keliose is deziu telpa tas kamuolys

Eini per visas dėžes, jei dėžės ilgis, aukštis ir plotos yra didesni arba lygūs kamuolio skersmeniui, kamuolys tilps. Gal būt galima būtų tikrint ir tūrius skaičiuojant...

tai galetum ispresti gal?

tai galetum ispresti gal?

program dezes;
var aukstis, plotis, ilgis, skersmuo: real;
telpa, kiek, i: integer;
begin
telpa := 0;
writeln('Įveskite kamuolio skersmenį D:');
readln(skersmuo);
writeln('Įveskite kiek turite dėžių:');
readln(kiek);
for i := 1 to kiek do
	begin
		writeln('Įveskite ', i, ' dėžės ilgį, plotį ir aukštį: ');
		readln(ilgis, plotis, aukstis);
		if (ilgis >= skersmuo) and (plotis >= skersmuo) and (aukstis >= skersmuo)
			then telpa := telpa + 1;
	end;
WriteLn('Kamuolys tilps į ', telpa, ' dėž.');
Readln;
end.

didelis dekiuj!! !!+1

gal kas galetumet ispresti panaudojant masyva

duotasX(n).apskaiciuoti teigiamu elementu artimetini vidurki, neigiamu elementu sandauga ir nuliniu elementu kieki

ir dar antras uzdavinis

plokstumoje duota n tasku.ju kordinates saugomos masyvuoseX(n),Y(n).nurodyti taskus,esancius pirmame ketvirtyje.

Jo, šitas gali daug kam padėti.

Kas galetu padeti?

Uzduotis: Parasykite programa, kuri gautu pradinius duomenis - du sveikus skaicius, isimintu juos kintamuosiuose a ir b, o poto ju reiksmes padaugintu is a ir b vidurkio

program vidurkis;
var a,b,c: real;
begin
read(a, b);
c:=(a+b)/2;
a:=a*c;
b:=b*c;
writeln(a:0:2, ' ', b:0:2);
end.

šitaip? ;)

Gal galite padėti išsiperti uždavinį. Duoti trys skaičiai rasti mačiausią. Bučiau labai dėkingas jei padėtumėt. ;)

P.S Gali ir knygą atsiverst, pirmuose puslapiuose AŽ paaiškinta, neturi? http://www.google.lt?q=pascal

Gal galite padėti išsiperti uždavinį. Duoti trys skaičiai rasti mačiausią. Bučiau labai dėkingas jei padėtumėt. ;)

program issipertimas;
var a, b, c, maciausias : integer;
begin
ReadLn(a, b, c);
if (a < b) and (a < c)
 then maciausias := a
 else if (b < a) and (b < c)
	   then maciausias := b
	   else maciausias := c;
writeln('MAČIAUSIAS skaičius yra: ', maciausias);
end.

P.S. Kaip paklausei, taip ir atsakiau. ;) (turiu galvoj prašymą IŠSIPERTI (?) uždavinį ir rasti MAČIAUSIĄ skaičių ;)).

program issipertimas;
var a, b, c, maciausias : integer;
begin
ReadLn(a, b, c);
if (a < b) and (a < c)
 then maciausias := a
 else if (b < a) and (b < c)
	   then maciausias := b
	   else maciausias := c;
writeln('MAČIAUSIAS skaičius yra: ', maciausias);
end.

 

P.S. Kaip paklausei, taip ir atsakiau. ;) (turiu galvoj prašymą IŠSIPERTI (?) uždavinį ir rasti MAČIAUSIĄ skaičių ;)).

Vienas paprasčiausių iš matytų uždavinių ;)

Didelis didelis ACIU ;) ;)

Gal galetumete man taip pat isspresti uzduotis?

1)Tekstiniame faile yra duotas daugiazenklis skaicius n. Rasti skaiciaus n skaitmenų kubų sumą. sprendimui panaudoti funkciją. atsakymą spausdinti i tekstini faila. N=123 ats.:36

2) Tekstiniame faile yra duotas realus skaicius n. Ištraukti is skaiciaus n šaknį ir atsakymui pateikti tik sveikąją dalį. Sprendimui panaudoti funkciją. Atsakymą spausdinti į tekstinį failą. N=2.5 ats.:1

labai reikitu siu uzdaviniu sprendimu iki rytdienos. Aciu

function skaitmenusuma (n : integer) : integer;
begin
 skaitmenusuma := 0;
 while n > 0 do
begin
  skaitmenusuma += n mod 10;
  n := n div 10;
end;
end;

function antra (n : real) : integer;
begin
 antra := trunc(sqrt(n));
end;