Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Program u Turbo Pascalu

[es] :: Pascal / Delphi / Kylix :: Program u Turbo Pascalu

Strane: 1 2

[ Pregleda: 4119 | Odgovora: 23 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Expendable883
Anto Vidošević
Racunalni tehnicar za strojarstvo
Virovitica

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



+3 Profil

icon Program u Turbo Pascalu15.05.2012. u 13:19 - pre 145 meseci
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...
 
Odgovor na temu

Marko Simulak
123456adada

Član broj: 272268
Poruke: 104



+1 Profil

icon Re: Program u Turbo Pascalu15.05.2012. u 18:52 - pre 145 meseci
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

 
Odgovor na temu

Expendable883
Anto Vidošević
Racunalni tehnicar za strojarstvo
Virovitica

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



+3 Profil

icon Re: Program u Turbo Pascalu15.05.2012. u 19:04 - pre 145 meseci
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...
 
Odgovor na temu

Marko Simulak
123456adada

Član broj: 272268
Poruke: 104



+1 Profil

icon Re: Program u Turbo Pascalu15.05.2012. u 20:02 - pre 145 meseci
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)
 
Odgovor na temu

Marko Simulak
123456adada

Član broj: 272268
Poruke: 104



+1 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 09:37 - pre 145 meseci
4. uradjeno, ako treba neka pomoc zovi..
 
Odgovor na temu

Expendable883
Anto Vidošević
Racunalni tehnicar za strojarstvo
Virovitica

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



+3 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 14:48 - pre 145 meseci
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]
 
Odgovor na temu

Expendable883
Anto Vidošević
Racunalni tehnicar za strojarstvo
Virovitica

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



+3 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 14:54 - pre 145 meseci
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......
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 17:14 - pre 145 meseci
Code:

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

Aleksandar Đokić

Član broj: 13478
Poruke: 4793
*.dynamic.isp.telekom.rs.



+638 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 18:04 - pre 145 meseci
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
 
Odgovor na temu

Expendable883
Anto Vidošević
Racunalni tehnicar za strojarstvo
Virovitica

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



+3 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 18:22 - pre 145 meseci
a peti zadatak jel zna od vas tko rijesit....
 
Odgovor na temu

Marko Simulak
123456adada

Član broj: 272268
Poruke: 104



+1 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 18:22 - pre 145 meseci
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
 
Odgovor na temu

Expendable883
Anto Vidošević
Racunalni tehnicar za strojarstvo
Virovitica

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



+3 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 18:27 - pre 145 meseci
hvala ti za 4. ... a peti nemogu nikak rijesit....
 
Odgovor na temu

Marko Simulak
123456adada

Član broj: 272268
Poruke: 104



+1 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 19:21 - pre 145 meseci
Ma nista :D, pa 5. ti je napisao reiser...

Citat:
reiser
Code:

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

 
Odgovor na temu

Expendable883
Anto Vidošević
Racunalni tehnicar za strojarstvo
Virovitica

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



+3 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 19:59 - pre 145 meseci
aha.. ok... a za ovaj cetvrti kako mislis da moram string ispisati... mislis treba ga definirati ili nest drugo...????
 
Odgovor na temu

Marko Simulak
123456adada

Član broj: 272268
Poruke: 104



+1 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 20:14 - pre 145 meseci
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?
 
Odgovor na temu

Expendable883
Anto Vidošević
Racunalni tehnicar za strojarstvo
Virovitica

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



+3 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 20:21 - pre 145 meseci
nisam jos probao.. evo sad cu da uradim...
 
Odgovor na temu

Expendable883
Anto Vidošević
Racunalni tehnicar za strojarstvo
Virovitica

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



+3 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 20:45 - pre 145 meseci
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]
 
Odgovor na temu

Expendable883
Anto Vidošević
Racunalni tehnicar za strojarstvo
Virovitica

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



+3 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 21:11 - pre 145 meseci
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]
 
Odgovor na temu

Marko Simulak
123456adada

Član broj: 272268
Poruke: 104



+1 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 21:44 - pre 145 meseci
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
 
Odgovor na temu

Expendable883
Anto Vidošević
Racunalni tehnicar za strojarstvo
Virovitica

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



+3 Profil

icon Re: Program u Turbo Pascalu16.05.2012. u 21:52 - pre 145 meseci
jel mi ti mozes napraviti cijeli taj program... ili netko drugi....jer ja nemogu to vise radit....
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Program u Turbo Pascalu

Strane: 1 2

[ Pregleda: 4119 | Odgovora: 23 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.