wuss

Įmesk ir graph biblioteka :)

Aš būčiau daręs kitaip, susirašai visus simbolius į vieną kintamąjį ir žiūri ar jame yra rastas simbolis:

pvz:

 

simb :=',/.\';][-';
if pos(c,simb) > 0 then k := k +1;

Be to, vietoj k := k +1; gali naudoti k+=1; kiečiau atrodo :)

 

 

O pas tave klaida tame, kad reikia visada lyginti

 

if c=(',')orc=('.')orc=(':')orc=('?')orc=(';')orc= ('"')orc=('!') then k:=k+1;

O tai nerašo kurioje eilutėje klaida? Jeigu net nesukompiliuoja

program matrica;
VAR a : array[ 1 .. 1000, 1..1000] of integer;
m, n, i, j, i2: integer;
begin
//write ('Kiek bus eiluciu ? '); readln(m);	  nereikalingas
write ('Kiek bus stulpeliu? '); readln(n);
m:=0;
for i:=1 to n do
begin
  for j :=1 to m do
begin
a[i,j] := 0;
write(a[i,j],' ');
end;
  for i2 := 1 to n-m do
begin
a[i,i2+m] := i2;
write(a[i,i2+m],' ');
end;
writeln();
m += 1;
end;


end.

Pridėtos 2 naujos temos, įdėtos pamokos bei 3 projektai. Atsirado šioks toks turinys 160 pranešimų. Beje gal yra norinčių keistis back linkais (panašaus turinio svetainės: programavimas, pc, it ...)

Geriau ieškok 2007 delphi, DAUG patogesnis :D

Tik 2009 neapsimoka :D

Na svetainės idėja gera, dažnai pats warez naudojuosi, bet bandžiau kokias 3dienas iš viso ~8-10 kartų, ir visada neveikė, išnaudotas premium ;)

program Noname58;
var n,m,ats1,ats2:integer;
begin
 readln(n,m);
 ats1 := trunc(n / m);
ats2 :=n - ats1*m;
writeln(ats1);
writeln(ats2);
 Readln;
end.

ir viskas ;)

Sveiki, šiuo metu neįeiną i mano svetainę ;) nei į jūsų

Uses graph; 

Var g, m, x, y, x1, y1, s, i: integer; 

Begin 
g := detect; 
Initgraph(g, m, ''); 
Randomize; 
X:=random(1000); 
Y:=random(700); 
for i:= 1 to 10 do 
begin 
X1:=random(1000); 
Y1:=random(100); 
s:= random(15) + 1; 
setcolor(s); 
Line (x, y, x1, y1); 
x:=x1;
y:=y1;
End; 
Readln; 
End

Netestavau, bet turi veikt :huh:

PS: Jei gali atsiųsk graph biblioteka į pm ;)

Būtų daug lengviau jeigu prisegtum tuos failus. O skaityt du masyvus taip turėtų eiti :lol:

i:=1
while not Eol(failas) do
begin
read(failas, masyvas1[i]);
i := i + 1;
end;
readln(failas);
i:=1;
while not Eol(failas) do
begin
read(failas, masyvas21[i]);
i := i + 1;
end;

Perku backlinkus : technologijų, kompiuterių, programavimo tipų svetainėse. Rašykite pasiūlymus į PM :lol:

Pažiūrėk prie kompiuterio dokumentų ar taip instrukcijų, gal yra kas nors parašyta ką tos lemputės reiškia.

Delay veikia, tiesiog priskirk crt biblioteka.

Uses crt; ir viskas :) galėsi naudot delay.

program robotas;
const salys : array[1..4] of string = ('siaure', 'rytai', 'pietus', 'vakarai');
var
d, {kryptis}
k: longint;
c:string;   {salis}
begin
read (c, d);

if c[1] = '0'  then k := 1;
if c[2] = '0'  then k := 2;
if c[3] = '0'  then k := 3;
if c[4] = '0'  then k := 4;

if d = -1 then if k -1 < 1 then k:=4 else k-=1;
if d = 1  then if k + 1 >4 then k:=1 else k+=1;

writeln(salys[k]);
end.

Mano variantas :)

Rekursijos prisiminimui :D pasprendziau :D

program Noname46;
type Tpirm= array of integer;
var ind:integer;  //Kiek radom pirminiu skaiciu
{-----------PIRMINIAI-----------------}
function pirminai_sk(sk:integer):Tpirm;
var i, i2 : integer;
 pirm : boolean;
begin
setlength(pirminai_sk,sk);
ind := 1;
for i := 2 to sk do
  begin
  pirm := true;
  for i2 := 2 to  i-1 do
 if i mod i2 = 0 then pirm := false;
  if pirm then
 begin
 pirminai_sk[ind] := i;
 ind := ind + 1;
 end;
end;
ind := ind - 1;
end;
{-----------PIRMINIAI-----------------}
{-----------KINTAMIEJI----------------}
type TSand = array [1..100] of integer;
var pirm_sk: Tpirm;	 //Pirminiai skaiciai
skaicius,		   //Skaicius kuri turime gauti sudaugine
n,N2,			   //Kelis skaitmenis reikia sudauginti
i:integer;
sandaugos,ats : TSand;
{-----------KINTAMIEJI----------------}
{----------DAUGINIMAS-----------------}
procedure dauginimas (N, skaicius : integer; pirminiai:TPirm; sandaugos : TSand);
var i,i2,san : integer;
begin
if N > 0 then
  begin
  for i:=1 to ind do
 begin
 sandaugos[n] := i;
 dauginimas(n-1,skaicius,pirminiai,sandaugos);
 end;
  end;
san :=1;
for i2:=1 to n2 do
 san:=san * pirminiai[sandaugos[i2]];
 if san = skaicius then  ats := sandaugos;
end;
{----------DAUGINIMAS-----------------}
begin
 readln(skaicius);  //Koki skaiciu turime gauti
 readln(n);		 //kelis skaicius dauginsime
 N2 := N;		   //atsarginis kintamasis (reikalingas dauginimas() procedurai
 pirm_sk := pirminai_sk(skaicius);   //Randame visus pirminius skaicius iki pasirinkto skaiciaus
 dauginimas(n,skaicius,pirm_sk,sandaugos);

 for i:=1 to N do
 write(pirm_sk[ats[i]],'  ');

 Readln;
end.

Man panašiai buvo kai buvau modeme interneto kabeli su televizijos sukeitęs vietomis ^_^

1.

for i:=2 to skaicius-1 do
if skaicius mod i = 0 then suma:=suma+i;
if suma = skaicius then tobulas else netobulas

 

O 3 manau be rekursijos neišeis išspręsti.

Kažkaip įdomiai atrodo, uždavinyje rašo max(a,b), o jūs skaičiuojat sumą :)

neturėtų būti:

 

program namu_darbai;
uses math;
  var a, b, c : integer;
Begin
  writeln('Įveskite tris skaičius');
  readln(a, b, c);
  If max(a,b) < c
   then writeln ('y=',c) 
   else writeln ('y=',-c); {cia ir bus tas atvejas kai a + b >= c}
  readln; {sitas tik ant windows, bet ir tai nebutinas, langa atidaryt galima perziurai, jei uzsidare, ant linux nerasoma tokiu}
end.

Dėkui už kritiką :), bandysim tobulėt.

Sveiki, įvertinkit forumą, ar tinkamos temos. Gal kokių modulių trūksta.

Kaip domenas tokiai svetainei? :)

www.flopikas.com

Arba aš aklas, arba mes šnekam apie skirtingas forumo versijas. Nes nieko nerandu. :)

 

Edit: Dėkuj Impaler ;)

Gal kas žinot kurį failą redaguoti kad eitų skaitliuką įdėti į forumo apačia(į footer) ? Kiek googlinau radau kad reikia eiti į Look & feel pasirinkti temą ir Manage Templates & CSS. O kur toliau. Žinau tik kaip viršuje prie banerio pridėtį. Gal kas galit padėt.

Pinigus kuriuos atiduoda valstybei nereikia kisti i cikla for, nes atiduoda tik 1 karta.

Jei nori kad sustotu, tai reikejo ne for o while naudot ir while salygoj ziuret ar turi pinigu ir kelinti metai.

http://www.ipc.lt/21z/mokymas/mokymopr/el/ek/Paskal8.htm 8.1 2 pavyzdys. :)