Файлы. Не могу понять где ошибка
Создайте файл f, компоненты которого являются целыми числами. Напишите программу подсчета нечетных и четных компонентов файла f, и определите, каких из них больше (почему то ввод с клавы а надо из файла)
program xxx; const n = 5; var f : file of integer; x,y,i : integer; z : array [1..n] of integer; begin assign(f,'C:\Users\я\Desktop\файл111.txt'); rewrite(f); x := 0; y := 0; for i := 1 to n do begin write ('z[',i,']='); readln(z[i]); if z[i] mod 2 = 0 then inc(x) else inc(y); end; if x > y then writeln('Больше четных') else if y > x then writeln('Больше нечетных') else writeln('Поровну'); reset(f); i := 1; while not eof(f) do begin read(f,z[i]); write(z[i],' '); inc(i); end; readln; end. |
const n=6;
var f : file of integer; x,y,i,m : integer; z : array [1..n] of integer; begin assign(f,'C:\Users\я\Desktop\файл111.txt'); rewrite(f); Randomize; for i:=1 to n do begin m:= Random(50)+1; Write(f,m); end; reset(f); for i:=1 to n do read(f,z[i]); for i := 1 to n do if z[i] mod 2 = 0 then inc(x) else inc(y); if x > y then writeln('Больше четных') else if y > x then writeln('Больше нечетных') else writeln('Поровну'); reset(f); i := 1; while not eof(f) do begin read(f,z[i]); write(z[i],' '); inc(i); end; close(f); readln; end. или наполнить файл вручную: const n = 6; var f : file of integer; x,y,i,m : integer; z : array [1..n] of integer; begin assign(f,'C:\Users\я\Desktop\файл111.txt'); rewrite(f); x := 0; y := 0; for i := 1 to n do begin readln(m); Write(f,m); end; reset(f); for i:=1 to n do read(f,z[i]); for i := 1 to n do if z[i] mod 2 = 0 then inc(x) else inc(y); if x > y then writeln('Больше чётных') else if y > x then writeln('Больше нечётных') else writeln('Поровну'); reset(f); i := 1; while not eof(f) do begin read(f,z[i]); write(z[i],' '); inc(i); end; close(f); readln; end. |
Часовой пояс GMT +4, время: 16:38. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.