Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.

Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть

Презентация на тему ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ

Содержание

8. Program Zadacha1; var h,
9. writeln('Введите компоненты
10. reset(h); s:=0;
11. If s>0 then begin
12. reset(h); writeln('Файл
13. else begin reset(h);
14. reset(g); writeln('Файл
15. Задача 2. Задан числовой файл G. Если
21. Program Zadacha2; var G : file
22. Reset(G); read(G,
23. Reset(G); if imin
24. else begin Reset(G);
25. Скачать презентацию
26. Похожие презентации

Program Zadacha1; var h, g: file of integer; max, a, s: integer;Begin assign(h,‘h.dat'); assign(g,'g.dat'); rewrite(h);

Главная
Разное
ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ

ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ Задача 1. В заданном числовом файле H найти сумму четных

Program Zadacha1; var h, g: file of integer;

writeln('Введите компоненты файла '); write('a=');

If s>0 then begin reset(h); read(h,max);

Задача 2. Задан числовой файл G. Если его минимальная компонента находится в

Program Zadacha2; var G : file of real ; a,

Слайды презентации

Слайд 8 Program Zadacha1;
var
h, g:

Program Zadacha1; var h, g: file of integer; max,

file of integer;
max, a, s: integer;
Begin

assign(h,‘h.dat');
assign(g,'g.dat');
rewrite(h);

Слайд 9
writeln('Введите компоненты файла

');
write('a=');
readln(a);

while a<>999 do
begin
write(h,a);
write('a=');
readln(a);
end;
close(h);

Слайд 10 reset(h);
s:=0;

while not eof(h) do

begin
read(h,a);
if a mod 2=0 then
s:=s+a;
end;
close(h);

Слайд 11 If s>0 then
begin
reset(h);

If s>0 then begin reset(h); read(h,max); while not

read(h,max);
while not eof(h) do

begin
read(h,a);
if max max:=a;
end;
write(h,max);
close(h);

Слайд 12 reset(h);
writeln('Файл H');

while not eof(h) do

begin
read(h,a);
write(a:4);
end;
close(h);
end

Слайд 13 else
begin
reset(h);

rewrite(g);
while not eof(h) do

begin
read(h,a);
if a>0 then
write(g,a);
end;
close(h);
close(g);

Слайд 14 reset(g);
writeln('Файл G');

while not eof(g) do

begin
read(g,a);
write(a:4);
end;
close(g);
end
End.

Слайд 15 Задача 2. Задан числовой файл G. Если его

Задача 2. Задан числовой файл G. Если его минимальная компонента находится

минимальная компонента находится в первой половине файла, то преобразовать

файл следующим образом: минимальную компоненту увеличить в два раза и поменять местами первую и последнюю компоненты файла. В противном случае каждую отрицательную компоненту заменить ее модулем. Результаты вывести на печать.

Слайд 16

Слайд 17

Слайд 18

Слайд 19

Слайд 20

Слайд 21 Program Zadacha2;
var
G : file of

Program Zadacha2; var G : file of real ; a, b,

real ;
a, b, min: real;
imin

: integer;
begin
Assign(G, 'G.dat');
Rewrite(G);
write('a=');
readln(a);
while a <> 999 do
begin
write(G, a);
write('a=');
readln(a);
end;
close(G);

Слайд 22 Reset(G);
read(G, min);

Reset(G); read(G, min); imin:=0; while not

imin:=0;
while not eof(G) do

begin
read(G, a);
if a < min then
begin
min:=a;
imin:=filepos(G)-1
end;
end;
close(G);

Слайд 23 Reset(G);
if imin

begin
seek(G, imin);

min := min*2;
write(G, min);
close(G);
Reset(G);
read(G, a);
seek(G, filesize(G)-1);
read(G, b);
seek(G,0);
write(G, b);
seek(G, filesize(G)-1);
write(G, a);
close(G)
end