ZADANIE 17: 1. Napíšte program, ktorý vytvorí kópiu zadaného textového súboru, ktorá nebude obsahovať prázdne riadky. V programe použite procedúru.
1. Napíšte program, ktorý vytvorí kópiu zadaného textového súboru, ktorá nebude obsahovať prázdne riadky. V programe použite procedúru.
var t,f:text;
c:char;
procedure zrus_prazne_riadky;
var prazdny:boolean;
begin
assign(t,’k_pr3.txt‘);reset(t);
assign(f,’kopia.txt‘);rewrite(f);
while not eof(t) do
begin
prazdny:=true;
while not eoln(t) do
begin
read(t,c);
write(f,c);
prazdny:=false;
end;
if not prazdny then writeln(f);
readln(t);
end;
close(t);close(f);
end;
begin
zrus_prazne_riadky;
end.
2. Vymenujte základné typy počítačových vírusov, vysvetlite akým spôsobom sa šíria a akým spôsobom sa proti ním môžeme brániť.
