Paskalis

Na prisėdau šiemet kogero pirmą, o gal antrą kartą prie informatikos namų darbų ir matau ,kad nieko gero nesigauna su Paskaliu :) :) :(

Pakolkas nelabai ką moko Iš Pasakalio, reikės kada užsiimti ir pradėt mokintis... Gal kas turit patarimų nuo ko pradėti? :D

Ir prie to pačio gal galėtumėt plačiau pakomentuoti kaip rasti skaičiaus skaitmenų sumą ir tai kieks skaitmenų yra tame skaičiuje.

Aš čia bandžiau kažką, bet kogero net ne tą ciklą pasirinkau ? ;/

program skaičiai;

var

x, k, s, p: integer;

begin

WriteLn('Įveskite skaičių');

Readln(x);

while x > 0 do

begin

t := x div 10;

end;

writeLn(t);

end.

Būsiu labai dėkinags jei kas truputį paaiškins.

nesupratau kam tiek kintamųjų aprašei. ciklas tas tik pas tave jis begalinis gaunasi :) čia kaip suprantu bandei ieškoti kiek skaitmenų skaičiuje? jei taip tai kažkas tokio bus:

program skaiciai;
var
x, y: integer;
begin
WriteLn('Iveskite skaiciu');
Readln(x);
y:=0;
while x > 0 do
begin
x := x div 10;
y:=y+1;
end;
writeLn(y);
end.

O čia dar ir skaitmenų sumą paskaičiuoja:

program skaiciai;
var
x, suma, y: integer;
begin
WriteLn('Įveskite skaičių:');
Readln(x);
y:=0;
suma:=0;
while x > 0 do
	begin
		suma:=suma+(x mod 10);
		x := x div 10;
		y:=y+1;
	end;
writeln('Suma: ', suma);
writeLn('Skaitmenų kiekis: ', y);
readln;
end.

Jei kas neaišku - klausk. Bandysim padėti. :)

Prie to pačio gal kas nori išspręsti šį:

http://www.part.lt/img/e95abbd0bb677a4fd0adfdb97676eb1d233.jpg

Kokybė prasta, bet gal suprasite.

Prie to pačio gal kas nori išspręsti šį:

 

http://www.part.lt/img/e95abbd0bb677a4fd0adfdb97676eb1d233.jpg

Kokybė prasta, bet gal suprasite.

Padidink tą nuotrauką, nes skaičių iš viso nesimato...

Aš viską parašysiu.

Skaičiai iš kairės į dešinę: -1, 1 (tas kur pakilęs- y), 0, 1, 2.

Parašykite grafiškai pavaizduotos funkcijos reikšmės radimo, kai įvedama x reikšmė, programą.

Aš viską parašysiu.

Skaičiai iš kairės į dešinę: -1, 1 (tas kur pakilęs- y), 0, 1, 2.

 

Parašykite grafiškai pavaizduotos funkcijos reikšmės radimo, kai įvedama x reikšmė, programą.

Jei gerai supratau, tai taip:

program Bevardė0;
 var x,y:real;
begin
 read(x);
 if x<0 then y:=x+1
 else if x<=2 then y:=1
	else y:=-x+2;
 writeln(y:2:2);
 Readln;
end.

Jei gerai supratau, tai taip:

program Bevardė0;
 var x,y:real;
begin
 read(x);
 if x<0 then y:=x+1
 else if x<=2 then y:=1
	else y:=-x+2;
 writeln(y:2:2);
 Readln;
end.

Ačiū. Mėginsiu praslysti :)

Gal dar kas žino iš kur FPS parsisiųst? Radau, bet ne tokį.

Ačiū. Na aš dabar kai matau atrodo viskas paprasta ir matematiškai lengvai suprantama, bet kai reikia tai apipavidalint Pasakaliu tada gerokai sunkiau...

Gal dar kas žino iš kur FPS parsisiųst? Radau, bet ne tokį.

http://ims.mii.lt/fps/lt/down/index.html

Turėtų tikt.

Sveiki, vėl prireikė pagalbos. Bandau kažką daryti su masyvu. Sąlyga tokia:

0<n<10 surašyta į vienmatyvį sveikųjų skaičių masyvą. Parašykite programą, kuri:

1. Reikšmes nuskaitytų iš duomenų failo duom.txt

2. surasti kiek yra dviženklių skaičių

3. surasti duotų skaičių sumą.

4. atrinkti visus lyginius skaičius.

Štai tiek jau parašiau, lyg iki čia viskas gerai.

program Bevardë64;

type mas=array [1..100] of integer;

var

a :mas;

i, k, n, s, l :integer;

f, g:text;

begin

//nuskaitau

Assign( f,'duom.txt'); Reset(f);

ReadLn(f, n);

for i:=1 to n do

Read(f,a);

Close(f);

// kiek dvizenkliu

k:=0;

for i:=1 to n do

if (a > 9) and (a < 100) then k:=k+1;

// skaiciu suma

s:=0;

for i:=1 to n do

s:= a + s;

// lyginiai skaiciai

for i:=1 to n do

{ Assign(g, 'rez.txt'); Rewrite(g);

WriteLn(g,'rezultatai');

}

end.

Bet nežinau kaip tliau užbaigti kad atrinktų lyginius. Kiek žinau reikia tikrinti ar yra dalus iš 2 bet neišgalvojau kaip aprašyti, būsiu labai dėkingas jei kasnors padės tai užbaigti.

My bad su dviženkliais :lol:

Su lyginiais skaičiais tai su div, dalini iš 2 ir žiūri ar lieka liekana ar ne.

program Bevarde64;

type mas=array [1..100] of integer;

var

a :mas;

i, k, n, s, l :integer;

f, g:text;

begin

//nuskaitau

Assign( f,'duom.txt'); Reset(f);

ReadLn(f, n);

for i:=1 to n do

Read(f,a);

Close(f);

// kiek dvizenkliu

k:=0;

for i:=1 to n do

if (a > 9) and (a < 100) then k:=k+1;

// skaiciu suma

s:=0;

for i:=1 to n do

s:= a + s;

// lyginiai skaiciai

for i:=1 to n do

if a mod 2 = 0 then writeln (a);

//tikrinimas

writeln ('Rezultatai:');

writeln ('Kiek dviženklių ',k);

writeln ('Suma ' ,s);

{ Assign(g, 'rez.txt'); Rewrite(g);

WriteLn(g,'rezultatai');

}

//read (s);

end.

program Bevarde64;

type mas=array [1..100] of integer;

var

a :mas;

i, k, n, s, l :integer;

f, g:text;

begin

//nuskaitau

Assign( f,'duom.txt'); Reset(f);

ReadLn(f, n);

for i:=1 to n do

Read(f,a);

Close(f);

// kiek dvizenkliu

k:=0;

for i:=1 to n do

if (a > 9) and (a < 100) then k:=k+1;

// skaiciu suma

s:=0;

for i:=1 to n do

s:= a + s;

// lyginiai skaiciai

for i:=1 to n do

if a mod 2 = 0 then writeln (a);//tikrinimas

writeln ('Rezultatai:');

writeln ('Kiek dviženklių ',k);

writeln ('Suma ' ,s);

{ Assign(g, 'rez.txt'); Rewrite(g);

WriteLn(g,'rezultatai');

}

//read (s);

end.

Vat to ir reikėjo, ačiū labai.

Prie to pačio turiu jums tris užduotėles. Reikia iki rytojaus ~11h.

Ačiū iš kart.

1.

Raskite kiek intervale nuo [m,n] yra skaičių, kurių paskutinis skaitmuo yra 0.

Atsakymai rašomi taip:

m n Dalių iš yra:

2 33 3

2.

Raskite visus triženklius skaičius, kurių skaitmenys sudaro kvadratinės lygties koeficientus, kuri turi du sprendinius. Kam lygūs tie sprendiniai?

Atsakymai rašomi taip:

154 x1=-4; x2=-1;

.......................................

3.

Apskaičiuokite sumą:

S=1*2+2*3+...+n(n+1);

Sveiki,

reikia dar vienos paskalio užduoties ;)

Parašykite programą, visų natūraliojo skaičiaus skaitmenų, išskyrus nulius, sandaugai rasti.

Sveiki,

reikia dar vienos paskalio užduoties ;)

Parašykite programą, visų natūraliojo skaičiaus skaitmenų, išskyrus nulius, sandaugai rasti.

Prašom: :D

program programa1;
var sandauga, skaicius: longint;
begin
sandauga := 1;
readln(skaicius);
while skaicius > 0 do
	begin
		if not (skaicius mod 10 = 0) then
			sandauga := sandauga * (skaicius mod 10);
		skaicius := skaicius div 10;
	end;
 WriteLn(sandauga);
 Readln;
end.

T-Mix> Ačiū ir vėl. ;)

Labai prašau padėkit parašyt projekteli ;)

Iveti datą: metai, menuo, diena, savaitės dieną. Išvesti vakardienos datą ir savaitės dieną.

Is anksto aciu! ;)

Ir vėl prireikė Jūsų pagalbos ;)

Duotas natūralusis skaičius. Duomenys yra duom.txt , jis atrodo taip

1583 5

taigi man reikia , kad iš pirmojo skaičiaus būtų išbrauktas antras ir į rez.txt faila būtų yrašomas naujas skaišius, tai yra: 183.

Būčiau labai dėkingas, jei kas parašytų bent pačius pagrindus, tą cikliuką, o pradžią ir pabaigą, manau sugebėsiu pats :D

Čia kažką bandžiau, bet kogero nieko gero...

program Išbraukimas;

var

sk, k, i, l, n, b, t,a :integer;

f, g:text;

begin

//nuskaitau

Assign( f,'duom.txt'); Reset(f);

ReadLn(f,x,b);

sk:=x;

while sk <> 0 do begin

l:= sk mod 10;

if l <> b then begin

k:=1;

n:=0;

n:=l*k + n ;

k:= k * 10;

end;

for a:=1 to t do begin

sk mod 10:=l;

if l <> b then

Ir vėl prireikė Jūsų pagalbos ;)

Duotas natūralusis skaičius. Duomenys yra duom.txt , jis atrodo taip

1583 5

taigi man reikia , kad iš pirmojo skaičiaus būtų išbrauktas antras ir į rez.txt faila būtų yrašomas naujas skaišius, tai yra: 183.

program Išbraukimas;
var prad, rez: text;
sk, naujasSk, skaitmuo: longint;
begin
// Skaitom
Assign(prad, 'duom.txt');
Reset(prad);
readln(prad, sk, skaitmuo);
Close(prad);

// Šalinam skaitmenis
naujasSk := 0;
while sk <> 0 do
	begin
		if (sk mod 10) <> skaitmuo then
			naujasSk := naujasSk * 10 + sk mod 10;
		sk := sk div 10;
	end;

// Apverčiam
sk := 0;
while naujasSk <> 0 do
	begin
		sk := sk * 10 + naujasSk mod 10;
		naujasSk := naujasSk div 10;
	end;

// Išvedam
Assign(rez, 'rez.txt');
Rewrite(rez);
Writeln(rez, sk);
Close(rez);
end.

Jei antras skaičius visą laiką yra vieno ženklo ilgio (t.y. skaitmuo), tai veikia tokia programa: :D

program Išbraukimas;
var prad, rez: text;
sk, naujasSk, skaitmuo: longint;
begin
// Skaitom
Assign(prad, 'duom.txt');
Reset(prad);
readln(prad, sk, skaitmuo);
Close(prad);

// Šalinam skaitmenis
naujasSk := 0;
while sk <> 0 do
	begin
		if (sk mod 10) <> skaitmuo then
			naujasSk := naujasSk * 10 + sk mod 10;
		sk := sk div 10;
	end;

// Apverčiam
sk := 0;
while naujasSk <> 0 do
	begin
		sk := sk * 10 + naujasSk mod 10;
		naujasSk := naujasSk div 10;
	end;

// Išvedam
Assign(rez, 'rez.txt');
Rewrite(rez);
Writeln(rez, sk);
Close(rez);
end.

Ačiū labai ;)

reiktu pagalbos... kaip surasyti kad man programa rasytu automatiskai "VYTKA" isdestytas raides "X" pridedu pvz. jei pavyks jum pamatyti... labai prasau atsiliepkit kasnors :)

Vytka.rar

reiktu pagalbos... kaip surasyti kad man programa rasytu automatiskai "VYTKA" isdestytas raides "X" pridedu pvz. jei pavyks jum pamatyti... labai prasau atsiliepkit kasnors :)

labai paprasta ;)

program Vytka;
begin
 Writeln('X	X   X   X   XXXXX   X  X	 XX');
 Writeln('X	X	X X	  X	 X X	  XX');
 Writeln(' X  X	  X	   X	 XX	  X  X');
 Writeln(' X  X	  X	   X	 XX	  XXXX');
 Writeln('  XX	   X	   X	 X X	X	X');
 Writeln('  XX	   X	   X	 X  X   X	X');
 Readln;
end.

Kas galite užduotėlę išspręsti:

Jūs norite įsidarbinti, tačiau bėda. Yra dvi firmos siūlančios patrauklų darbą. Firma A siūlo 25000lt. per metus ir kasmet padidinti 1200lt. atlyginimą. Firma B siūlo 28000lt. ir kasmet padidinti 800lt. Po kiek metų pinigai gauti iš vienos firmos bus daugmaž lygūs gautiems iš kitos firmos? Paskalio pagalba parašykite procedūrą (funkciją), kuri paskaičiuotų kiek metų reikės laukti.

Geriausia būtų jog atsakymus parušiuotų pagal metus:

Pvz.: Firma A po 2 metų bus xxx lt., firma B po 2 metų bus xxx lt.

Reikia panaudoti ir funkciją, ir procedūrą.

Ačiū :)