Temos pavadinimas: WordPress, Shopify ir PHPFusion programuotojų bendruomenė :: Reikia Ispresti [Sugalvoti]
Parašė Edvinas.· 2010 Sau. 13 18:01:30
#1
Reikia Sugalvoti uzduoti ir ja ispresti,
Joje turi buti veiksmai, saliginis sakinys, ir panaudotas ciklas: for ir wile
Turi buti darytas su :
Paskaliu Ar kaip cia pasakyti vnz su
Paskaliu
Redagavo Edvinas.· 2010 Sau. 13 18:01:12
Parašė ibodom· 2010 Sau. 13 18:01:03
#2
Kas jum su tuo paskaliu, bliot ? :] Kiek mokėsi? Turi ir for ir while, ar arba tas arba tas?
Redagavo ibodom· 2010 Sau. 13 18:01:24
Parašė new· 2010 Sau. 13 18:01:26
#3
paziurek vadoveli daug uzdaviniu yra
Parašė ozzWANTED· 2010 Sau. 13 18:01:27
#4
if as_esu_girtas = 1
writeln('taip');
else
writeln('ne');
while c < 5 do
begin
c := c+1;
end
Kažkas taip turbūt, su tūpa archajiška mirusia paskalio sintakse.
Redagavo ozzWANTED· 2010 Sau. 13 18:01:58
Parašė ozzWANTED· 2010 Sau. 13 18:01:52
#5
Vo radau kompe savo senutėlę 1-am kurse rašytą programėlę pascal'iu.
Pakopinsiu jos dalį - vieną iš procedūrų. Joje yra viskas ko tau reikia(ir nereikia :D):
{****** [PRADZIA]: ATMINITES MASYVO Rem_aibe bazes keitimo algoritimas skirtas naujai baziu sumai paskaiciuoti ******}
procedure keisti_baze(var rem_aibe: Masyvas; blevel,n : longint; operaciju_skaicius : longint);
var max_limit,keiciama_baze,einamoji_baze : longint;
begin
max_limit := n-1;
einamoji_baze := blevel;
{***************************** TESTO PRADZIA ********************************}
{***} if(TEST_MODE >= 2)
{***} then Writeln(' Ein. baze: ', einamoji_baze, '; Rem_aibe[',einamoji_baze,']: ', rem_aibe[einamoji_baze], '; Bazes riba: ', max_limit);
{***************************** TESTO PABAIGA ********************************}
while(rem_aibe[einamoji_baze] = max_limit) do // jei pirmas narys yra max. galimas, tai jau lygio o ne bazes keitimas, todel pirma atmetam
begin
{***************************** TESTO PRADZIA ********************************}
{***} if(TEST_MODE >= 2)
{***} then Writeln(' :: 1-oji keiciama baze: ', einamoji_baze, ', Bazes maks. riba: ', max_limit);
{***************************** TESTO PABAIGA ********************************}
if(einamoji_baze = 1)
then break;
max_limit := max_limit-1;
einamoji_baze := einamoji_baze-1;
end;
keiciama_baze := einamoji_baze;
{***************************** TESTO PRADZIA ********************************}
{***} if(TEST_MODE >= 1)
{***} then if(keiciama_baze = blevel)
{***} then Writeln(' Keiciama baze: ties ', keiciama_baze)
{***} else Writeln(' Keiciamos bazes: nuo ', keiciama_baze,' iki ', blevel);
{***************************** TESTO PABAIGA ********************************}
for einamoji_baze:=keiciama_baze to blevel do
begin
if(einamoji_baze = keiciama_baze)
then if(rem_aibe[1] = max_limit)
then rem_aibe[1] := 1
else rem_aibe[einamoji_baze] := rem_aibe[einamoji_baze]+1
else rem_aibe[einamoji_baze] := rem_aibe[einamoji_baze-1]+1;
end;
{***************************** TESTO PRADZIA ********************************}
{***} if(TEST_MODE >= 2)
{***} then begin
{***} Write(' rem_aibe(pr. ',operaciju_skaicius+1,' oper.): ');
{***} for einamoji_baze:=1 to blevel do
{***} Write('[B',einamoji_baze,']: ',rem_aibe[einamoji_baze],', ');
{***} end;
{***************************** TESTO PABAIGA ********************************}
end;
{****** [PABAIGA]: ATMINTIES MASYVO lygio keitimo algoritmo [PABAIGA] ******}
Redagavo ozzWANTED· 2010 Sau. 13 18:01:16
Parašė ibodom· 2010 Sau. 13 18:01:01
#6
Tikrai ne persunkų jam davei :]
Parašė ozzWANTED· 2010 Sau. 13 18:01:21
#7
iBodom parašė:
Tikrai ne persunkų jam davei :]
Nu nakui(
said in joke level), jau pačią trumpiausią ir paprasčiausią procedūrą iškirpau ir įpastinau. Nes visur kitur visokių unitų integravimų, iteratorių ir pointerių prikištą ir žmogui būtų neaišku.
Redagavo ozzWANTED· 2010 Sau. 13 18:01:59
Parašė t0mas· 2010 Sau. 13 19:01:36
#8
Cia keli paprasti pascalio uzdavinukai. Gali dasikurt ir dadet while cikla. vis kas nors :)
//duotas intervalas nuo n iki m
//parasyti programa kuri surastu kiek skaiciu kurie turi lygiai k dalikliu.
program programa;
var m,n,k,d,i,j,sk :integer;
begin
WriteLn('Iveskite N,M skaicius:');
Readln(n,m);
Writeln('iveskite k skaiciu:');
Readln(k);
sk:=1;
for i:=n to m do
begin
d:=0;
for j:=1 to i do
if i mod j=0 then d:=d+1;
if k=d then begin
writeln( i);
sk:=sk+1;
end;
end;
writeln('kiekis ', sk);
Readln;
end.
-----------------------------
program programa;
var a, b,s,i,s1 :integer;
begin
WriteLn('Iveskite Skaicius a,b:');
Readln(a,b);
S:=0;
S1:=1;
for i:=a to b do
if i mod 2=0 then s:=s+i
else s1:=s1*i;
Writeln('Suma:', s);
Writeln('Sandauga:',s1);
Readln;
end.
--------------------------------
Cia susikursi dar tekstini failiuka
program programa;
var s,sk,n:integer;
f,g :text;
begin
assign(f,'failas.txt');reset(f);
assign(g,'rez.txt');rewrite(g);
n:=0;
while not eof(f) do
begin
n:=n+1;
s:=0;
while not eoln(f) do
begin
read(f,sk);
s:=s+sk;
end;
Readln(f);
WriteLn(g,n, 'Suma:', s);
end;
Close(f);
Close(g);
Readln;
end.
Parašė Edvinas.· 2010 Sau. 13 20:01:37
#9
Aciu, T0mas ir Ozz , Ozz biski per gudriai :DD , T0mas Tiko :) Dekui abiem +10 :)
Parašė Edvinas.· 2010 Sau. 15 22:01:56
#10
//duotas intervalas nuo n iki m
//parasyti programa kuri surastu kiek skaiciu kurie turi lygiai k dalikliu.
program programa;
var m,n,k,d,i,j,sk :integer;
begin
WriteLn('Iveskite N,M skaicius:');
Readln(n,m);
Writeln('iveskite k skaiciu:');
Readln(k);
sk:=1;
for i:=n to m do
begin
d:=0;
for j:=1 to i do
if i mod j=0 then d:=d+1;
if k=d then begin
writeln( i);
sk:=sk+1;
end;
end;
writeln('kiekis ', sk);
Readln;
end.
-----------------------------
program programa;
var a, b,s,i,s1 :integer;
begin
WriteLn('Iveskite Skaicius a,b:');
Readln(a,b);
S:=0;
S1:=1;
for i:=a to b do
if i mod 2=0 then s:=s+i
else s1:=s1*i;
Writeln('Suma:', s);
Writeln('Sandauga:',s1);
Readln;
end.
--------------------------------
Cia susikursi dar tekstini failiuka
program programa;
var s,sk,n:integer;
f,g :text;
begin
assign(f,'failas.txt');reset(f);
assign(g,'rez.txt');rewrite(g);
n:=0;
while not eof(f) do
begin
n:=n+1;
s:=0;
while not eoln(f) do
begin
read(f,sk);
s:=s+sk;
end;
Readln(f);
WriteLn(g,n, 'Suma:', s);
end;
Close(f);
Close(g);
Readln;
end.
Gal galit Parasyti is ko jis susideda ka reiskia Ka daro nu kaska panasaus :) pasikinima kas kaip padaryta :)
Redagavo Edvinas.· 2010 Sau. 15 22:01:36