Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 1
Регистрация: 16.04.2012
Сообщений: 30
1

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

30.05.2012, 07:43. Просмотров 967. Ответов 1
Метки нет (Все метки)

. В первом файле хранятся произвольные целые числа.
Во втором - цифры в произвольном порядке. Проверить справедливость высказывания для каждой записи первого файла
«В число входит цифра из соответствующей записи
второго файла».
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.05.2012, 07:43
Ответы с готовыми решениями:

Проверить, входит ли цифра 9 в заданное 4-значное число
найти ошыбку в коде нужно вести 4-значное число и проверить ли входит цыфра 9 #include<stdio.h>...

Проверить входит ли введенная цифра в заданное натуральное десятичное число
Составить программу,печатающую да или нет в зависимости от того,входит ли введенная цифра в...

4.53. Дано трехзначное число. Определить: а) входит ли в него цифра 6, б) входит ли в него цифра n
4.53. Дано трехзначное число. Определить: а) входит ли в него цифра 6, б) входит ли в него цифра n

Дано двухзначное число. Определить, входит ли в него цифра 3 и входит ли в него цифра 4
Дано двухзначное число. Определить входит ли в него цифра 3 и входит ди в него цифра 4

1
Почетный модератор
7953 / 3924 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
30.05.2012, 13:12 2
Лучший ответ Сообщение было отмечено Iriska как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
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.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.05.2012, 13:12

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дано четырёхзначное число, узнать входит ли в него цифра 4, входит ли в него цифра b
У меня последнее задание осталось буду благодарен если поможете. Вот такое задание: Дано...

Дано целое число n Входит ли цифра 3 в его запись, если входит, то сколько раз
Дано целое число N. Входит ли цифра 3 в его запись, если входит, то сколько раз. Вывести результат....

Дано целое число N .Входит ли цифра 3 в его запись, если входит, то сколько раз
Дано целое число N.Входит ли цифра 3 в его запись если входит , то сколько раз?

Дано двузначное число, входит ли в него цифра 3, входит ли в него цифра а
Задача № 56 Дано двузначное число Определить : а) входной ли в него цифра 3; в) входит ли в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.