Можно с объяснинеями плз
Определи количество пикселей (суммарно). Запиши правильный ответ.
Разрешение монитора 466×288
Ответы на вопрос:
var G,F:file of integer;
i,j,n:integer;
s:integer;
c,c1,c2:integer;
begin
writeln;
write('Vvedite n:');
readln(n);
Assign(G,'C:\g.txt');
Assign(F,'C:\f.txt');
Rewrite(F);
for i:=1 to n do
begin
c1:=1;
c2:=1;
for j:=1 to i+1 do begin
if j<i+1 then c1:=c1*2;
c2:=c2*3;
end;
c:=c1+c2;
write(F,c);
end;
Close(F);
Reset(F);
Rewrite(G);
s:=0;
while not Eof(f) do
begin
read(F,c);
if c>0 then c:=c*(-1);
write(G,c);
s:=s+c;
end;
write(G,s);
close(F);
close(G);
reset(G);
writeln('Komponenty fajla j:');
while not Eof(G) do
begin
read(G,c);
write(c);
end;
readln;
end.
Приклад.Виведення таблиці значень функції у файл.
Програма:
program file_of_values;
var
х : Real;
k : Word;
out_file : Text; {тип Text відповідає файлу. що складається із рядків тексту}
function F(x: Real): Real;
begin
F := x/d.O + x);
end;
begin
Assign(out_file, 'c:\user\ivanov\table.dat');
Rewrite(out_file);
x := 0.0;
WriteLn(out_file, 'Таблиця значень функції F(x) = x/(l + x)');
WriteLn(out_file);
WriteLn(out_file, 'x':9, 'F(x)':19);
WriteLn(out_file);
for k := 0 to 50 do
begin
WriteLn(out_file, x:9:3, F(x):19:9);
x := x + 0.1:
if k mod 10 = 9 then WriteLn(out_file);
end;
Close(out_file);
end.
Популярно: Информатика
-
borovitskii201425.12.2021 20:08
-
daniil35825.03.2020 03:42
-
Polya0906200920.06.2021 17:08
-
ismailovigbal1322.07.2020 03:08
-
2kkdKristina14.10.2021 10:02
-
Валентинаг867559708.05.2023 04:34
-
DimaVlasov110.04.2023 15:58
-
lol103919.03.2021 13:11
-
алик13718.03.2021 11:46
-
AngelInna22832208.12.2020 03:00