Kód: Vybrať všetko

program nacitanie;
uses crt;
Var subor:text;
    novysubor:text;
    s:string[80];
    a:array[1..50] of string;
    pocet,i:integer;
    n,dlzka:integer;
    retazec:string;

 begin
clrscr;
Assign(subor,'C:/vstup1.txt');
Reset(subor);
While (not eof(subor)) do begin
                       Readln(subor,s);
                       (*dlzka:=length(s);*)
                       For i:=1 to 50 do
                       If s[i]=' ' then s[i]:='*';
                       Writeln(s);
                       end;
Assign(novysubor,'C:/hviezdicka.txt');
Rewrite(novysubor);
Writeln(novysubor,s);
close(novysubor);
readln;
end.

Kód: Vybrať všetko

program uloha5;
uses crt;
type meno=array[1..20] of string[9];
vyska=array[1..20] of integer;
hmotnost=array[1..20] of integer;
var a:meno;
b:vyska;
c:hmotnost;
i,j,g,d,min,max,najvyzsi,najnizsi,pp2,n:integer;
f:text;
priemhm,priemvys:real;
pp:string;
begin
clrscr;
assign(f,'C:\mena.txt');
reset(f);
d:=0;
priemhm:=0;
priemvys:=0;
repeat
n:=n+1;
read(f,a[i]);
read(f,b[i]);
readln(f,c[i]);
until eof;
n:=n-1;
repeat
g:=0;
for i:=1 to n do begin
priemhm:=priemhm+b[i];
priemvys:=priemvys+c[i];
end;
priemhm:=priemhm/n;
priemvys:=priemvys/n;


until g=0;

for i:=1 to n do begin
write(a[i]);
write(b[i]);
writeln(c[i]);
end;
writeln('priemerna hmotnost je ',priemhm:6:2);
writeln('priemerna vyska je ',priemvys:6:2);
min:=b[i];
max:=b[i];
for i:=1 to n do
if min>b[i] then
najnizsi:=i;
if max<b[i] then
najvyzsi:=i;

writeln('najnizsi hrac je ', a[najnizsi],' ',b[najnizsi],' ',c[najnizsi]);
writeln('najvyzsi hrac je ', a[najvyzsi],' ',c[najvyzsi],' ',c[najvyzsi]);
readln;
end.

Kód: Vybrať všetko

Assign(novysubor,'C:/hviezdicka.txt');
Rewrite(novysubor);
Writeln(novysubor,s);

Kód: Vybrať všetko

program Hviezdy;
uses Crt;
const
  hviezda: char = '*';
var
  zdroj,ciel: file of char;
  znak: char;

BEGIN
  ClrScr;
  Assign(zdroj,'C:\vstup2.txt');
  Assign(ciel,'C:\hviezda.txt');
  Reset(zdroj);
  Rewrite(ciel);
  while (not Eof(zdroj)) do begin
    Read(zdroj,znak);
    if znak = ' ' then
      Write(ciel,hviezda)
    else
      Write(ciel,znak);
  end;
  Close(ciel);
  ReadLn;

END.

Kód: Vybrať všetko

program Ziaci;
uses Crt;
const
  max_ziakov = 255;
type
  Tziak = record
    meno: string[15];
    hmotnost: Real;
    vyska: Byte;
  end;
var
  ziak: array[1..max_ziakov] of Tziak;
  pocet,najvyssi,najnizsi: Byte;
  i: Integer;
  sum_vyska,sum_hmotnost: Real;

BEGIN
  ClrScr;
  Write('Zadajte pocet ziakov: ');
  ReadLn(pocet);
  for i := 1 to pocet do begin
    Write('Meno ',i,'. ziaka: ');
    ReadLn(ziak[i].meno);
    Write('jeho vaha (kg): ');
    ReadLn(ziak[i].hmotnost);
    Write('a vyska (cm): ');
    ReadLn(ziak[i].vyska);
  end;
  najvyssi := 1;
  najnizsi := 1;
  sum_vyska := ziak[1].vyska;
  sum_hmotnost := ziak[1].hmotnost;
  for i := 2 to pocet do begin
    if ziak[i].vyska > ziak[najvyssi].vyska then
      najvyssi := i
    else
      if ziak[i].vyska < ziak[najnizsi].vyska then
        najnizsi := i;
    sum_vyska := sum_vyska + ziak[i].vyska;
    sum_hmotnost := sum_hmotnost + ziak[i].hmotnost;
  end;
  WriteLn ('Najvyssi ziak je ',ziak[najvyssi].meno,' s vyskou ',ziak[najvyssi].vyska,'cm');
  WriteLn ('Najnizsi ziak je ',ziak[najnizsi].meno,' s vyskou ',ziak[najnizsi].vyska,'cm');
  WriteLn ('Priemerna vyska ziakov je ',(sum_vyska / pocet):4:1,'cm');
  WriteLn ('Priemerna hmotnost ziakov je ',(sum_hmotnost / pocet):4:1,'kg');

END.