[ Expendable883 @ 15.05.2012. 13:19 ] @
da li bi mi pomogli da napravim jedan program u turbo pascalu za zavrsni rad....
program treba ovako biti:
1. upisati ime i prezime
2. ispisati broj znakova u imenu i prezimenu
3. ispisati broj samoglasnika u imenu i prezimenu
4. ispisati ime i prezime bez samoglasnika
5. ispisati ime i prezime unatrag

tim redom treba biti izraden program...
bio bi vam zahvalan...
[ Marko Simulak @ 15.05.2012. 18:52 ] @
Pa treba da znas da radis sa stringovima...

Ako si vec radio u paskalu, trebalo bi da znas prva 3 bez problema, za poslednje koristis (copy), a 4 moram da uradim prvo

[ Expendable883 @ 15.05.2012. 19:04 ] @
prvo i drugo sam rijesio ali ostalo ne znam... rijesim program posebno radi ali ovak zajedno sa
ostalim programima nece da radi....
i treci sam rijesio... e sad samo mi trebaju treci i cetvrti...
[ Marko Simulak @ 15.05.2012. 20:02 ] @
Cek, mislis trebaju ti cetvrti i peti, ako si treci resio..?

Resio sam sve, al ipak ovo 4, nekada radi ok, a nekada ne, tako da ustvari nije dobro jos...

5 cak ni ne moras sa (copy), nego kroz for petlju idi od duzine stringa pa do 1 (downto)
[ Marko Simulak @ 16.05.2012. 09:37 ] @
4. uradjeno, ako treba neka pomoc zovi..
[ Expendable883 @ 16.05.2012. 14:48 ] @
program z1;
simbol,ime,prezime:char
i,brSamoglasnika:integer;
st,rijec:string;
n:byte;
1. begin
writeln('Unesi ime');
readln(ime);
writeln('Unesi prezime');
readln(prezime);
end;
2. begin <<<<<<<====================== e ovaj program radi samo sto mi i broji praznine između imena i prezimena...
write('unesi ime i prezime: '); treba mi program koji ne broji praznine a to ne znam uradit....
readln(st); dosta sam se namucio da uradim taj program... cijelo vrijeme nest me zezalo
i:=0; u programu...
for i:=1 to Length(st) do
if (st>='0') and (st<='20') then
inc(i);
writeln('U imenu i prezimenu ima ',i,' znamenaka');
readln;
3. begin <<<<<<<<<<<<<<<<<<<<============== ovaj mi nece da radi....
ClrScr;
brSamoglasnika:=0;
writeln('Unesite ime i prezime koje zavrsava simbolom*: ');
readln(simbol);
while simbol <> ' * ' do
begin
case Upcase(simbol) of
'A','E','I','O','U' : brSamoglasnika:=brSamoglasnika + 1;
end;
read(simbol);
end;
writeln('Broj samoglasnika je: ',brSamoglasnika);
end;
4. begin <<<<<<<<<<<================== e sad ovaj... ovaj program nece da mi se uklopi u one ostale...
n:=0; jednostavno program nece da radi... ali sam ga napisao ovak samog
write('Unesi ime i prezime: '); i onda radi ali ovak sa ostalim programima nece da radi....
readln(rijec);
writeln('Ime i prezime bez samoglasnika glasi: ');
for n:=1 to Length(rijec) do
if Pos(copy(rijec,n,1), 'AEIOUaeiou') = 0
then write(copy(rijec,n,1));
readln;
end;
end;
end.


EVO TO JE SVE STO SAM JA NAPISAO

[Ovu poruku je menjao Expendable883 dana 16.05.2012. u 22:31 GMT+1]
[ Expendable883 @ 16.05.2012. 14:54 ] @
MOLIM TE.... jel mi mozes napisati taj program ovdje da vidim kako si ti uradio... MOLIM TE....treba mi taj zadatak.....BIO BI TI VJECNO ZAHVALAN......
[ reiser @ 16.05.2012. 17:14 ] @
Code:

for i := length(imeprezime) downto 1 do
  write(imeprezime[i]);
[ Aleksandar Đokić @ 16.05.2012. 18:04 ] @
ma 4. samo kopiraj sve osim samoglasnika,

Code:

for i := 0 to length(imeprezime) do
  if imprezime[i]<>'A' AND imeprezime[i]<>'E' and imeprezime[i]<>...then
novoimeprezime=novoimeprezime+novoimeprezime[i]


to bi islo u delphi-ju, ne znam dal pascal ima sve sto treba za ovo
[ Expendable883 @ 16.05.2012. 18:22 ] @
a peti zadatak jel zna od vas tko rijesit....
[ Marko Simulak @ 16.05.2012. 18:22 ] @
Evo samo 4.

Code:

var
   c:array[1..10] of string;
begin
     c[1]:='a';
     c[2]:='e';
     c[3]:='i';
     c[4]:='o';
     c[5]:='u';
     c[6]:='A';
     c[7]:='E';
     c[8]:='I';
     c[9]:='O';
     c[10]:='U';

     writeln('Znakova ima: ',length(s)); //ovo je 2.

     for i:=1 to length(s) do
     begin
          for j:=1 to 11 do
              if s[i]=c[j] then
              begin
                   n:=n+1;
                   delete(s,i,1);
              end;
     end;


Kasnije moras da ispises taj string s
[ Expendable883 @ 16.05.2012. 18:27 ] @
hvala ti za 4. ... a peti nemogu nikak rijesit....
[ Marko Simulak @ 16.05.2012. 19:21 ] @
Ma nista :D, pa 5. ti je napisao reiser...

Citat:
reiser: 
Code:

for i := length(imeprezime) downto 1 do
  write(imeprezime[i]);

[ Expendable883 @ 16.05.2012. 19:59 ] @
aha.. ok... a za ovaj cetvrti kako mislis da moram string ispisati... mislis treba ga definirati ili nest drugo...????
[ Marko Simulak @ 16.05.2012. 20:14 ] @
Pa ispises taj string s...writeln(s)

S tim sto, ja sam bar tako uradio, napravio jos jedan isti string na pocetku..kada unosis readln(s), pa novi string r:= s, jer kada uradis to delete, string s ti se menja, pa ne bi mogao to 5. da uradis, jer ti treba ceo string samo od nazad...

Jesi uspeo da uradis sve u 1 programu?
[ Expendable883 @ 16.05.2012. 20:21 ] @
nisam jos probao.. evo sad cu da uradim...
[ Expendable883 @ 16.05.2012. 20:45 ] @
pa ovo je zadatak broj 2...

nesto nece da mi radi program... ja cu poludit...

[Ovu poruku je menjao Expendable883 dana 16.05.2012. u 22:05 GMT+1]
[ Expendable883 @ 16.05.2012. 21:11 ] @
ajd probaj ti da ubacis taj svoj program u moje ostale... pa da vidis dali to valja... jer meni nece da radi kako treba...




ja nemogu vise to trpit.... poludit cuuuuuuuuuuu.......jednostavno nece da radi...... jel mi mozes napraviti program kako BOG zapovijeda jer ja nemam pojma o ovome.....


sad mi nece ni treci zadatak da radi.....!!!!!

[Ovu poruku je menjao Expendable883 dana 16.05.2012. u 22:21 GMT+1]

[Ovu poruku je menjao Expendable883 dana 16.05.2012. u 22:23 GMT+1]
[ Marko Simulak @ 16.05.2012. 21:44 ] @
Ne razumem sta na sta mislis...

Evo ceo program
Code:

program ime;
uses crt;
var
   s,a,r:string;
   i,n,j:integer;
   c:array[1..10] of string;
begin
     clrscr;
     writeln('Unesi ime i prezime osobe ');
     readln(s);
     a:=s;

     c[1]:='a';
     c[2]:='e';
     c[3]:='i';
     c[4]:='o';
     c[5]:='u';
     c[6]:='A';
     c[7]:='E';
     c[8]:='I';
     c[9]:='O';
     c[10]:='U';

     writeln('Znakova ima: ',length(s));

     for i:=1 to length(s) do
     begin
          for j:=1 to 11 do
              if s[i]=c[j] then
              begin
                   n:=n+1;
                   delete(s,i,1);
              end;
     end;

     writeln('Samoglasnika ima: ',n);

     writeln('Novi string: ',s);

     for i:=length(a) downto 1 do
         write(a[i]);

     repeat until keypressed;
end.


Ako treba neki postupak da ti objasnim, reci

p.s: i da...nemoj se nervirati :D
[ Expendable883 @ 16.05.2012. 21:52 ] @
jel mi ti mozes napraviti cijeli taj program... ili netko drugi....jer ja nemogu to vise radit....
[ Expendable883 @ 16.05.2012. 21:55 ] @
ma treba mi jednostavno sve objasniti.. sad mi samo rade prvi i drugi zadatak a ovo ostalo nece mi nist radit...
[ Expendable883 @ 16.05.2012. 22:11 ] @
jel mi ti to mozes taj program sto si ti napisao sve od pocetka objasniti... da ja to skuzim.... ali ako moze sutra negdje oko 8-9 h navecer..
[ reiser @ 16.05.2012. 22:14 ] @
Code:

function BrojiSamoglasnike(const AString: String): Integer;
var
  C1 : Integer;
  res: Integer;
begin
  res := 0;
  for C1 := 1 to Length(AString) do
    if UpCase(AString[C1]) in ['A', 'E', 'I', 'O', 'U'] then
      Inc(res);
  BrojiSamoglasnike := res;
end;

function IzbaciSamoglasnike(const AString: String): String;
var
  C1 : Integer;
  res: String;
begin
  res := '';
  for C1 := 1 to Length(AString) do
    if not (UpCase(AString[C1]) in ['A', 'E', 'I', 'O', 'U']) then
      res := res + AString[C1];
  IzbaciSamoglasnike := res;
end;

function Unatrag(const AString: String): String;
var
  C1 : Integer;
  res: String;
begin
  res := '';
  for C1 := Length(AString) downto 1 do
    res := res + AString[C1];
  Unatrag := res;
end;

var
  ime, prezime: String;

begin
  Write('Ime: ');
  ReadLn(ime);
  Write('Prezime: ');
  ReadLn(prezime);

  WriteLn('Broj znakova u imenu i prezimenu: ', Length(ime) + Length(prezime));
  WriteLn('Broj samoglasnika u imenu i prezimenu: ', BrojiSamoglasnike(ime) + BrojiSamoglasnike(prezime));
  WriteLn('Ime i prezime bez samoglasnika: ', IzbaciSamoglasnike(ime) + ' ' + IzbaciSamoglasnike(prezime));
  WriteLn('Ime i prezime unatrag: ', Unatrag(ime) + ' ' + Unatrag(prezime));

  ReadLn;
end.


Evo ti program, a ako ne razumes sta radi, Google u ruke pa uci.
[ Expendable883 @ 16.05.2012. 22:26 ] @
OK.. hvala..