PASCAL

#0 by dimka39

(Power User) (0 mesaje) at 2008-01-28 22:01:29 (889 săptămâni în urmă) - [Link]

PLZ HELP ME

programa pascal :

elaborati un program care afiseaza pe ecran numarul de consoane dintr-un fisier TEXT

va rog sa ma ajutati....cine poate, ii voi fi recunoscator...

cei care au programe sau softuri de intruire in PASCAL puneti pe tracker.....va rog mult.....

Mesaj util ? Da 0 puncte

1
<< Precedenta Următoarea >>

#1 by AndrianG (Power User) (0 mesaje) at 2008-01-29 04:27:20 (889 săptămâni în urmă) - [Link]

Uite iti dau idee tu deja ramine sa asamblezi !
Creeaza un fisier ex: consoane.txt in dosarul bin.

...
var f:file;
c:char;
nc:integer;
...

Begin
assign(f,"consoane.txt");
reset(f);
nc:=0;
While not eof (f) do
Begin
read(f,c);
if ((c='b')or(c='c')...) then inc(nc);
/*eu acum prog in C++ asa ca poate fi c="a"; */
End;

close(f);

writeln("Numarul consoanelor",nc);
writeln;

End.

Succese ! Sa fi fost in C++ poate ca iti dadeam problema gata compilata dar asa numai cei mai important !

Mesaj util ? Da 0 puncte

#2 by Bas (НеГоДяЙ) (0 mesaje) at 2008-01-29 06:20:53 (889 săptămâni în urmă) - [Link]

#1 AndrianG, неправельно)))
#0 Приду из универа напишу прогу те

Mesaj util ? Da 0 puncte

#3 by AndrianG (Power User) (0 mesaje) at 2008-01-29 06:34:24 (889 săptămâni în urmă) - [Link]

Bas
Eu nu i-am scris pas cu pas si poate ceva lipseste , eu i-an dat idei generale ...
Vrei ti-o fac in Delphi la urma urmei sau in C Builder alege !!!

Mesaj util ? Da 0 puncte

#4 by Bas (НеГоДяЙ) (0 mesaje) at 2008-01-29 06:37:38 (889 săptămâni în urmă) - [Link]

#3 AndrianG, hai in C++ Builder

Mesaj util ? Da 0 puncte

#5 by AndrianG (Power User) (0 mesaje) at 2008-01-29 07:19:30 (889 săptămâni în urmă) - [Link]

Si varianta corecta pentru --------------------------------- #2 by Bas

{* Am descris cazul numai pentru 3 consoane nu ramine decit de adaugat *}
Uses Crt;
var
f:text;
c:char;
nc:integer;
Begin
clrscr;
gotoxy(20,5);
TextColor(LightBlue+Blink);
writeln('Special pentru BAS !!! Mura in gura !!!');
writeln('Plus mai repet nu mai programez demult in asa ceva asa ca trebuie sa intelegi');
writeln;writeln;writeln;
assign(f,'consoane.txt');
reset(f);
while not(eof(f)) do
Begin
read(f,c);
if ((c='b')or (c='c') or (c='d')) then inc(nc);
End;
close(f);

TextColor(Green+Blink);
writeln('Numarul de consoane in fisier sunt - ',nc);
writeln;writeln;writeln;
gotoxy(25,15);
TextColor(Red+Blink);
writeln('Succese la scoala si profesorul sa-ti puie o nota buna !!!');

readln;
End.

#2 Bas,

daca doresti fisierul sursa ti-l pot anexa pe torrents.md !!!
Timp nu prea am dar iubesc sa rezol probleme !!!

In C++ Builder caci trebuie sa ma odihnesc si eu !!! Vrei codul ori tot proiectul ?

Miine daca nu voi fi tare obosit ti-l fac in C Builder !!!
Poate imi ceri si in Visual C++ ?

))

Noroc la programistii din MD !!!

Mesaj util ? Da 0 puncte

#6 by metallurgic (Power User) (0 mesaje) at 2008-01-29 11:53:40 (889 săptămâni în urmă) - [Link]

#5 AndrianG, "... TextColor(Green+Blink); ..." - deam tu pre multe ai facut pentru o simpla problema de programare. L-a întreba profesoru pentru ce-i asta, şi el a răspunde că pentru citirea din fişier

#5 AndrianG, "... if ((c='b' :wink:

or (c='c'

or (c='d':wink

then inc(nc); ..." - aici puteai sa folosesti un sir de caractere, unde sa pastrezi consoanele, după care să faci comparaţia caracterului citit din fisier cu fiecare element al şirului de caractere, şi apoi să faci incrementarea. Da aşa e zaipeala mare.

Mesaj util ? Da 0 puncte

#7 by Bas (НеГоДяЙ) (0 mesaje) at 2008-01-29 14:25:39 (889 săptămâni în urmă) - [Link]

#5 AndrianG, eh, citind dimineaţa am crezut ca trebu de numărat fiecare consoană dintr-un file

. Acum am citit şi văd programul ii simplu ca bună ziua)))

Mesaj util ? Da 0 puncte

#8 by dimka39

(Power User) (0 mesaje) at 2008-01-29 23:06:01 (889 săptămâni în urmă) - [Link]

THX.....AndrianG RESPECT :wink:

Mesaj util ? Da 0 puncte

1
<< Precedenta Următoarea >>

Forum Index > Coș cu teme șterse > Soft > PASCAL

You are not permitted to post in this forum.