Second Opinion
Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale. Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit. www.neurohope.ro |
prbleme pascal
Last Updated: Dec 19 2016 10:46, Started by
boond
, Dec 13 2016 07:45
·
0
#19
Posted 13 December 2016 - 12:42
Program sir;
var s: string; k,x,j,i: integer; begin writeln('dati textul:'); readln(s); x:=length(s); j:=0; for i:=1 to x do begin if (s[i]<>' ') then begin j:=j+1; end else begin j:=0; end; k:=j; end; if k>j then writeln('Cel mai lung cuvint ',k) else writeln('cel mai lung cuvint ',j); end. nu intelec ce sa scriu in else ca sa pot compara in ultimul if Edited by boond, 13 December 2016 - 12:45. |
#20
Posted 13 December 2016 - 12:51
Ce am iubit la pascal este claritatea codului.
for i:=1 to x do Pentru i de la 1 pana la x executa begin incepe ... end; sfarsit Ce ai pus tu acolo intre incepe si sfarsit e un mister. Deci tu trabuie sa stochezi lungimea celui mai lung cuvant din text si dupa aia o afisezi. hai sa ii zicem lungimeaMaxima ! Il initializezi cu 0 in afara structuri repetitive (for in cazul tau) si dupa aia pt lungimea fiecarui cuvant din text il compari cu lungimeaMaxima, si daca e mai mare o atribui variabilei lungimeaMaxima! La sfarsitul structutii repetitive variabila lungimeaMaxima va avea exact lungimea celui mai luuuuung cuvant. |
#21
Posted 13 December 2016 - 13:01
de ce mister?
daca s[i] nu este spatiu lui j i se mai adauga o unitate dar iata ca mai departe ce sa scriu cind da de spatiu nustiu |
#22
Posted 13 December 2016 - 13:04
Alege o variabila in care pastrezi maximul. O initializezi cu zero inainte de for. Pe ramura else, inainte de a reseta pe j compara acea variabila cu j si pune in ea doar daca j e mai mare ca acea variabila. Asa ai maximul acolo.
Si pune codul formatat, foloseste tagurile [ c o d e ] ... [ / c o d e] ca nu intelege nimeni nimic din acel cod. |
#23
Posted 13 December 2016 - 13:24
Program sir; var s: string; k,x,j,i: integer; begin writeln('dati textul:'); readln(s); x:=length(s); j:=0; k:=0; for i:=1 to x do begin if (s[i]<>' ') then j:=j+1 else j:=0; k:=j; end; if k>j then writeln('Cel mai lung cuvint ',k) else writeln('cel mai lung cuvint ',j); end. eu cam asta am intelesca trebuie de facut |
#24
Posted 13 December 2016 - 13:29
Si unde e mareata lungimeaMaxima de care iti tot vorbim noi ?!?!
Aia pe care o conpari cu lungimea fiecarui cuvant inainte sa o resetezi! ia incearca sa redenumesti i,j,k,x in cuvinte cu inteles. Cred ca o sa te ajute mult! |
#25
Posted 13 December 2016 - 13:42
Pastreaza o variabila in afara for-ului in care tii cea mai mare lungime obtinuta pana la un moment dat, sa-i spunem lungime maxima.
Acolo unde dai de spatiu, verifica daca lungimea curenta e mai mare decat cea maxima, caz in care o inlocuiesti pe cea maxima cu aceasta. Si da, sugestia cu denumirea variabilelor este de departe una salutara. Edited by AllNamesIHaveTriedHaveBeenTaken, 13 December 2016 - 13:43. |
#26
Posted 13 December 2016 - 14:40
#29
Posted 19 December 2016 - 10:46
Programarea nu e pentru toată lumea. Nu vă mai chinuiți, nu vrea să studieze! Probabil și profesorul e slab. Când eram de vârsta lui, făceam din proprie inițiativă programe de zece ori mai complicate decât cele care ni se dădeau ca temă și nu aveam Internetul la dispoziție, aveam doar cartea de tehnici de programare a lui Tudor Sorin și niște cărți albastre care explicau instrucțiunile de bază Pascal. Și mult timp alocat învățatului în loc de mers în club, bineînțeles.
----- @boond Bănuiesc că ați învățat să lucrați cu funcțiile și procedurile de manipulare a șirurilor (adică "length", "pos", "copy", "delete"). Dacă variabila string "s" este textul iar variabila string "s1" este intotdeauna primul cuvant al textului, fă un ciclu cu "repeat" (sau "while"), măsoară s1 de fiecare dată (cu "copy" și "pos"), stochează lungimea lui "s1" într-un integer (să-i zicem "lungime_maxima"), taie "s1" din "s" (cu procedura de șiruri "delete") și repetă ciclul cu "s" până ramâi fără spații (presupunând că textul "s" are numai litere și spații). La fiecare repetare a ciclului testează dacă "lungime_maxima" se modifică. Edited by Spring76new, 19 December 2016 - 10:50. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users