Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako se dodaje

Program u Turbo Pascalu

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 23 odgovora
  • 6.173 pregleda

Najnovija ↓

Program u Turbo Pascalu 15.05.2012. u 14:19 · pre 176 meseci #1
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...
Re: Program u Turbo Pascalu 15.05.2012. u 19:52 · pre 176 meseci #2
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

Re: Program u Turbo Pascalu 15.05.2012. u 20:04 · pre 176 meseci #3
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...
Re: Program u Turbo Pascalu 15.05.2012. u 21:02 · pre 176 meseci #4
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)
Re: Program u Turbo Pascalu 16.05.2012. u 15:48 · pre 176 meseci
izmenjeno 1 put, poslednji put Expendable883 16.05.2012. u 22:31
Izmene poruke
  1. Expendable88316.05.2012. u 22:31zapis iz teksta poruke
#6
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
Re: Program u Turbo Pascalu 16.05.2012. u 15:54 · pre 176 meseci #7
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......
Re: Program u Turbo Pascalu 16.05.2012. u 18:14 · pre 176 meseci #8
Code:

for i := length(imeprezime) downto 1 do
  write(imeprezime[i]);
Sviđa mi se1
Re: Program u Turbo Pascalu 16.05.2012. u 19:04 · pre 176 meseci #9
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
Re: Program u Turbo Pascalu 16.05.2012. u 19:22 · pre 176 meseci #10
a peti zadatak jel zna od vas tko rijesit....
Re: Program u Turbo Pascalu 16.05.2012. u 19:22 · pre 176 meseci #11
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
Sviđa mi se1
Re: Program u Turbo Pascalu 16.05.2012. u 19:27 · pre 176 meseci #12
hvala ti za 4. ... a peti nemogu nikak rijesit....
Re: Program u Turbo Pascalu 16.05.2012. u 20:21 · pre 176 meseci #13
Ma nista :D, pa 5. ti je napisao reiser...

Citat:
reiser: 
Code:

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

Re: Program u Turbo Pascalu 16.05.2012. u 20:59 · pre 176 meseci #14
aha.. ok... a za ovaj cetvrti kako mislis da moram string ispisati... mislis treba ga definirati ili nest drugo...????
Re: Program u Turbo Pascalu 16.05.2012. u 21:14 · pre 176 meseci #15
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?
Re: Program u Turbo Pascalu 16.05.2012. u 21:21 · pre 176 meseci #16
nisam jos probao.. evo sad cu da uradim...
Re: Program u Turbo Pascalu 16.05.2012. u 21:45 · pre 176 meseci
izmenjeno 1 put, poslednji put Expendable883 16.05.2012. u 22:05
Izmene poruke
  1. Expendable88316.05.2012. u 22:05zapis iz teksta poruke
#17
pa ovo je zadatak broj 2...

nesto nece da mi radi program... ja cu poludit...
Re: Program u Turbo Pascalu 16.05.2012. u 22:11 · pre 176 meseci
izmenjeno 2 puta, poslednji put Expendable883 16.05.2012. u 22:23
Izmene poruke
  1. Expendable88316.05.2012. u 22:23zapis iz teksta poruke
  2. Expendable88316.05.2012. u 22:21zapis iz teksta poruke
#18
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.....!!!!!
Re: Program u Turbo Pascalu 16.05.2012. u 22:44 · pre 176 meseci #19
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
Re: Program u Turbo Pascalu 16.05.2012. u 22:52 · pre 176 meseci #20
jel mi ti mozes napraviti cijeli taj program... ili netko drugi....jer ja nemogu to vise radit....
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme