[es] - Program u Turbo Pascalu

Expendable883
Anto Vidošević
Racunalni tehnicar za strojarstvo
Virovitica

Član broj: 303055
Poruke: 14
*.dsl.optinet.hr.

+3 Profil

Re: Program u Turbo Pascalu

^{16.05.2012. u 21:55 - pre 145 meseci}

ma treba mi jednostavno sve objasniti.. sad mi samo rade prvi i drugi zadatak a ovo ostalo nece mi nist radit...

Odgovor na temu

Expendable883
Anto Vidošević
Racunalni tehnicar za strojarstvo
Virovitica

Član broj: 303055
Poruke: 14
*.dsl.optinet.hr.

+3 Profil

Re: Program u Turbo Pascalu

^{16.05.2012. u 22:11 - pre 145 meseci}

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..

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: Program u Turbo Pascalu

^{16.05.2012. u 22:14 - pre 145 meseci}

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.

Odgovor na temu