Code: Select all
program pavardes;
type irasas=record
pav:string;
met:integer;
end;
masyvas=array[1..100] of irasas;
var mas:masyvas; kiek,i:integer; failas:text;
procedure skaito(var mas:masyvas; var kiek:integer);
var failas:text; ch:char; sk:integer; zod:string;
begin
kiek:=0;
assign(failas, 'C:\pavardes.txt');
reset(failas);
while not eof(failas) do
begin
zod:='';
kiek:=kiek+1;
while not eoln(failas) do
begin
read(failas,ch);
if ch<>' '
then zod:=zod+ch
else
begin
mas[kiek].pav:=zod;
read(failas,mas[kiek].met);
end;
end;
readln(failas);
end;
close(failas);
end;
begin
assign(failas, 'C:\rezultatai.txt');
rewrite(failas);
skaito(mas,kiek);
for i:=1 to kiek do
if mas[i].met>20 then
writeln(failas,mas[i].pav);
close(failas);
Readln;
end.
Struktūrinių duomenų tipas.(irasas=record ) ką čia reiškia?
Code: Select all
program amzius;
var kiek : integer;
v : string;
f1,f2 : text;
begin
assign(f1, 'duom.txt');
reset(f1);
assign(f2, 'rez.txt');
rewrite(f2);
while not eof(f1) do
begin
readln(f1,v,kiek);
if kiek > 20 then writeln(f2, v);
end;
close(f1);
close(f2);
end.
Code: Select all
v:string[10];
Code: Select all
program amzius;
var kiek,i : integer;
v : string;
f1,f2 : text;
begin
assign(f1, 'duom.txt');
reset(f1);
assign(f2, 'rez.txt');
rewrite(f2);
while not eof(f1) do
begin
i := 1;
read(f1,v[i]);
while v[i] <> ' ' do
begin
i := i + 1;
read(f1, v[i]);
end;
readln(kiek);
if kiek > 20 then writeln(f2, v);
end;
close(f1);
close(f2);
end.
rezultate nieko neatspausdina kažkodėlA tikrai
Na čia nesunku pataisyt
Code: Select all
program amzius; var kiek,i : integer; v : string; f1,f2 : text; begin assign(f1, 'duom.txt'); reset(f1); assign(f2, 'rez.txt'); rewrite(f2); while not eof(f1) do begin i := 1; read(f1,v[i]); while v[i] <> ' ' do begin i := i + 1; read(f1, v[i]); end; readln(kiek); if kiek > 20 then writeln(f2, v); end; close(f1); close(f2); end.
Code: Select all
while v <> ' ' do
Code: Select all
program amzius;
var kiek,i : integer;
v : char; zod:string;
f1,f2 : text;
begin
assign(f1, 'duom.txt');
reset(f1);
assign(f2, 'rez.txt');
rewrite(f2);
while not eof(f1) do
begin
read(f1,v);
zod:=zod+v;
while v <> ' ' do
begin
read(f1, v);
zod:=zod+v;
end;
readln(f1,kiek);
if kiek > 20 then writeln(f2, zod,kiek);
zod:='';
end;
close(f1);
close(f2);
end.
Code: Select all
program linija;
uses graph;
var gd, gm, x, i : integer;
begin
initgraph(gd, gm, '');
x := 10;
for i := 1 to 10 do
begin;
line(x,10,x+20,10);
x := x + 30;
end;
readln;
closegraph;
end.
Code: Select all
program linij;
uses graph;
var gd, gm, x, y, i, galinis : integer;
begin
initgraph(gd, gm, '');
x := 10;
y := 10;
galinis := 400 ;
for i := 1 to 20 do
begin
line(x,y,galinis,y);
x := x + 20;
y := y + 10;
end;
readln;
closegraph;
end.
Code: Select all
program bylos;
var prad,
pirma: text;
begin
assign(prad, 'E:\PIRMAS.TXT'); rewrite(p
arad);
WriteLn(prad, 'text');
Readln;
Readln;
end.
Return to “Programuotojų kampas”
Users browsing this forum: No registered users and 19 guests