- Ја почнал/а темата
- #1
Aleks
Gaining Experience
- 18 мај 2007
- 5,748
- 288
Eve dve programi(sega za sega) koi gi rabotev vo shkolo(t.e. na drug nacin izraboteni), pa pomisliv da gi postiram oti mozebi na nekoj drug kje mu trebaat. Ne se zavrsheni do kraj, koga kje gi zavrsham kje gi smenam ovie
pozz
Programa za naogjanje na sprotiven broj na vneseniot (koristenje na ednodimenzionalna niza, readkey i readkey kodovi (ne e bash shkolski stil, vo shkolo ja rabotev so MOD, DIV ama vaka 1 100 pati polesno)):
Programa za pisuvanje na broevite poodelno i so bukvi (pak isti princip, i pak ne e kako shkolskite programi.. Poednostavna e=) ):
pozz
Programa za naogjanje na sprotiven broj na vneseniot (koristenje na ednodimenzionalna niza, readkey i readkey kodovi (ne e bash shkolski stil, vo shkolo ja rabotev so MOD, DIV ama vaka 1 100 pati polesno)):
Код:
program sprotiven;
uses
crt;
var
niza: ARRAY[1..1024] of char;
N:char; X,A:Integer;
begin
ClrScr;
WriteLn('Vnesete nekoj broj ');
X:=1;
repeat
niza[X]:=readkey;
Write(niza[X]);
N:=niza[X];
X:=X+1;
until(N=#13);
WriteLn;
WriteLn('Sprotivniot broj e: ');
FOR A:=X DOWNTO 1 DO
begin
Write(niza[A]);
end;
ReadLn;
end.
Код:
program test;
uses
crt;
var
niza : array[1..100] of char;
N,V: Char;
X,A: integer;
begin
ClrScr;
X:=1;
WriteLn('Vnesete Eden broj ');
repeat
niza[X]:= readkey;
Write(niza[X]);
N:=niza[X];
X:=X+1
until(N=#13);
WriteLn; WriteLn;
WriteLn('Toj Broj se sostoi od: ');
FOR A:=1 TO X DO
begin
CASE niza[A] of
'1' : WriteLn(niza[A],' - Eden');
'2' : WriteLn(niza[A],' - Dva');
'3' : WriteLn(niza[A],' - Tri');
'4' : WriteLn(niza[A],' - Cetiri');
'5' : WriteLn(niza[A],' - Pet');
'6' : WriteLn(niza[A],' - Sest');
'7' : WriteLn(niza[A],' - Sedum');
'8' : WriteLn(niza[A],' - Osum');
'9' : WriteLn(niza[A],' - Devet');
'0' : WriteLn(niza[A],' - Nula');
end;
end;
WriteLn('Bye Bye =)');
readln;
end.