Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Rename SQL column

Achiziționare tuner TV !

Din ce este facuta terasa asta?

Cum accesez site-ul CNAS ?
 Algoritm simplu de calculare al u...

Bitdefender Total Security ș...

casa verde 2024

Intrerupator cu N - doza doar cu ...
 Incalzire casa fara gaz/lemne

Incalzire in pardoseala etapizata

Suprataxa card energie?!

Cum era nivelul de trai cam din a...
 probleme cu ochelarii

Impozite pe proprietati de anul v...

teava rezistenta panou apa calda

Acces in Curte din Drum National
 

Program in pascal

- - - - -
  • Please log in to reply
2 replies to this topic

#1
andrystefan

andrystefan

    Member

  • Grup: Members
  • Posts: 447
  • Înscris: 24.12.2008
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?

#2
dani.user

dani.user

    Guru Member

  • Grup: Senior Members
  • Posts: 30,197
  • Înscris: 24.02.2007
http://www.freepascal.org/

#3
Ombilic

Ombilic

    Member

  • Grup: Members
  • Posts: 641
  • Înscris: 01.04.2011
clrscr de la sfarsit
ClearScreen

Anunturi

Neurochirurgie minim invazivă 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

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate