Turbo Pascal: Creati un program care intr-un fisier secvential de numere intregi, calculeaza suma numerelor ce se temina in 3 si ce se divide la 7
Răspunsuri la întrebare
Răspuns:
program citireFisier;
var f: file of integer;
num, suma:integer;
str: string;
begin
write('Dati numele fisierului care trebuie de citit: ');
readln(str);
assign(f,str);
reset(f);
suma:=0;
while not eof(f) do
begin
read(f,num);
if (num mod 10=3)and(num mod 7=0) then inc(suma,num);
end;
close(f);
writeln('Suma numerelor ce se temina in 3 si ce se divide la 7 este ',suma);
end.
Explicație:
fişierul cu date, adică cu numere, trebuie să existe în dosarul unde vei plasa fişierul pascal care citeşte numerele. Şi trebuie să ştii numele lui. Acel fişier secvenţial se crează tot cu ajutorul altui program pascal, pe care eu îl plasez mai jos...
program crearesuma3div7;
var f:file of integer;
num,i:integer;
str:string;
begin
write('Dati numele fisierului care tr. de creat: '); read(str);
assign(f,str); rewrite(f);
writeln('introduceti 5 numere ');
for i:=1 to 5 do
begin
read(num);
write(f,num);
end;
close(f);
end.
Notă. Numere întroduci câte vrei. Vezi, eu am introdus 5. Vei introduce numele fişierului secvenţial, ce va conţine numere şi el se va salva automat în dosarul unde este salvat fişerul pascal ce crează fişierul secvenţial. Fişierului secvenţial eu i+am dat numele suma.in, dar tu poţi să-i dai şi alt nume.