Neurochirurgie minim invazivă
"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv. Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice. www.neurohope.ro |
Program in pascal
Last Updated: Mar 29 2015 19:56, Started by
andrystefan
, Mar 29 2015 16:40
·
0
#1
Posted 29 March 2015 - 16:40
Vreau sa fac un program care dintr-un fisier text cu elementele pe o singura linie imi spune de cate ori se repeta aceleasi elemente.
am facut programul, a mers la cateva rulari iar acum nu mai vrea sa afiseze nimic. ecranul este negru si nu se vede decat cursorul. asa arata programul: uses crt; var v:array [1..80]of integer; aux,n,c,j,i:integer; f:text; begin assign(f,'Loto.txt'); n:=80; reset(f); for i:=1 to 80 do v[i]:=0; while not eoln(f) do begin read(f,c); v[c]:=v[c]+1; end; for i:= 1 to n do if v[i]>7 then writeln(i,'= ',V[i],' '); readln; ClrScr; close(f); end. In fisierul loto.txt am pe un rand numere separate prin spatiu. Sunt numerele extrase la loto grecia unde sunt numere de la 1 la 80. De ce a mers decat de cateva ori si dupa nu mai apare nimic pe ecran? E ceva gresit in cod? Sau e din cauza ca pascalul e antic si de demult? |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users