II. RF KMF DokuWiki

Ez az oldal csak olvasható. Megtekintheted a forrását, de nem változtathatod meg. Ha úgy gondolod, hogy ez helytelen, kérdezd az Adminisztrátorokat!

====== Genius informatika, programozás, 2017. ======


<code pascal elso.pas>

program elso;
var
  tomb: array [1..10] of integer;
  i, osszeg, szorzat, beolvasott: integer;
  t: text;
begin
  randomize;
  writeln('Hello!');
  (*assign(t, 'adat.txt');
  rewrite(t);
  for i:=1 to 10 do
  begin
    tomb[i]:=random(10);      í
    write(tomb[i]:3);
    writeln(t, tomb[i]);
  end;
  close(t);*)
  //az állomány elemeinek összege és szorzata
  assign(t, 'adat.txt');
  reset(t);
  osszeg:=0;
  szorzat:=1;
  while not eof(t) do
  begin
    readln(t, beolvasott);
    if beolvasott <> 0 then
      szorzat:=szorzat * beolvasott;
    osszeg:=osszeg + beolvasott;
  end;
  close(t);
  writeln('A file elemeinek osszege:  ', osszeg);
  writeln('A file elemeinek szorzata: ', szorzat);
  readln;
end.
</code>

<code txt adat.txt>
0
9
5
7
9
2
5
3
0
7
</code>


**Eredmény:**


>> Hello!
>> A file elemeinek osszege:  47
>> A file elemeinek szorzata: 595350

II. RF KMF DokuWiki

Felhasználói eszközök

Eszközök a webhelyen

Eszközök az oldalon