Файлы. Проверить справедливость высказывания: В число входит цифра из соответствующей записи второго файла

@Iriska · Регистрация: 16.04.2012

. В первом файле хранятся произвольные целые числа.
Во втором - цифры в произвольном порядке. Проверить справедливость высказывания для каждой записи первого файла
«В число входит цифра из соответствующей записи
второго файла».

@КонецСвета · 30.05.2012, 13:12

Pascal

uses crt;
var f1: file of integer;
    f2: file of byte;
    i: integer;
    c: byte;
    n: integer;
 
function V (chislo: integer; zifra: byte): boolean;
var b: boolean;
begin
if chislo<0 then chislo:=chislo*(-1);
if chislo<10 then b:=chislo=zifra else
   begin
   b:=false;
   while chislo>1 do
      begin
      if chislo mod 10=zifra then b:=true;
      chislo:=chislo div 10;
      end;
   end;
V:=b;
end;
 
begin
assign(f1,'D:\f1.dta');
assign(f2,'D:\f2.dta');
rewrite(f1); rewrite(f2);
for i:=1 to 20 do
    begin
    n:=random(19999)-9999;
    write(f1,n);
    c:=random(10);
    write(f2,c);
    end;
reset(f1); reset(f2);
while not (eof(f1)) do
      begin
      read(f1,n);
      write(n:6);
      read(f2,c);
      write(c:3);
      writeln(V(n,c):7);
      end;
close(f1);
close(f2);
end.

@Iriska 0 / 0 / 1 Регистрация: 16.04.2012 Сообщений: 30
		1
	Файлы. Проверить справедливость высказывания: В число входит цифра из соответствующей записи второго файла 30.05.2012, 07:43. Просмотров 967. Ответов 1 Метки нет (Все метки) . В первом файле хранятся произвольные целые числа. Во втором - цифры в произвольном порядке. Проверить справедливость высказывания для каждой записи первого файла «В число входит цифра из соответствующей записи второго файла». 0

Опции темы

Файлы. Проверить справедливость высказывания: В число входит цифра из соответствующей записи второго файла

Решение