Файлы: составить из тех цифр, которые не встречаются во входных данных, минимальное число

29.11.2012, 16:27. Показов 2404. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

народ, помогите исправить код пожалуйста, срочно надо, не могу понять, почему выводится -1 во всех случаях, ошибка , скорее всего в 14 строке, пытался уже поставить условие по разному, но результат один(

задание:В исходном текстовом файле записаны строки, содержащие последовательность символов, среди которых встречаются и цифры. Требуется написать, которая для каждой строки исходного файла будет составлять и выводить в результирующий файл из тех цифр, которые не встречаются во входных данных, минимальное число. При составлении итогового числа каждая цифра может быть использована только один раз (первый 0 не выводить). Если во входных данных встречаются все цифры от 0 до 9, то следует вывести "-1".

Pascal

uses Crt;
 
procedure Alg(var s:string; f1,f2:text);
var n,count,sh,fin,sc,dr:integer;
const num=['0'..'9'];
begin
  fin:=0;
  dr:=0;
  for n:=0 to 9 do begin
  dr:=dr+1;
  sh:=0;
  for count:=1 to length(s) do begin
  if s[count] in num then begin
     if (ord(s[count])=dr) then sh:=sh+1;
     end;
  end;
  if ((sh>0) and (n>0)) then
  write(f2,n)
  else fin:=fin+1;
  end;
  if fin=10 then write(f2,'-1');
end;
 
procedure FileToFile(var f1,f2:text);
var s:string;
    c,sh,fin,n:integer;
begin
  reset(f1);
  rewrite(f2);
  while not eof(f1) do begin
    readln(f1,s);
    Alg(s,f1,f2);
  end;
  close(f1);
  close(f2);
end;
var  fname1,fname2:string;
     f1,f2:text;
 
begin
 readln(fname1);
 if FileExists(fname1) then begin
    readln(fname2);
    assign(f1,fname1);
    assign(f2,fname2);
    FileToFile(f1,f2);
    end
 else writeln('Файла не существует');
end.

Добавлено через 7 часов 43 минуты
Всё, вопрос снят, догадался сам)

Заказать работу у эксперта

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

29.11.2012, 16:27

Ответы с готовыми решениями:

Составить из тех цифр, которые встречаются во входных данных, максимальное число
Условие: На вход программе подается последовательность символов, среди которых встречаются и...

Составить минимальное число из тех цифр, которые не встречаются во входной строке
Напишите программу,которая составляет и выводит минимальное число из тех цифр,которые не...

Составить программу, генерирующую слово У, состоящее из тех букв русского алфавита, которые не встречаются при написании слова Х
Русский алфавит задать в ячейках листа Ms Excel.

Даны три 2-значные числа. Из цифр составить минимальное 6-значное число
Помогите, пожалуйста. Нужно написать программу на Си. Даны три двузначных натуральных числа....

	29.11.2012, 16:27

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

29.11.2012, 16:27

Помогаю со студенческими работами здесь

Дан текст, в котором встречаются цифры. Необходимо из всех встречающихся в тексте цифр составить наименьшее число
Дан текст, в котором встречаются цифры. Необходимо из всех встречающихся в тексте цифр составить...

Перечислить все числа заданной последовательности, которые состоят из тех же цифр, что и первое число
Перечислить все числа заданной последовательности чисел ,которые состоят из тех же цифр ,что и...

Дано натуральное число n. Необходимо найти сумму тех цифр этого числа, которые больше 5
B. Сумма «больших» цифр Дано натуральное число n. Необходимо найти сумму тех цифр этого...

Найти сумму тех введенных чисел, в которых встречаются m цифр N
Написал программку,но не могу разобраться в чём ошибка. Задание таково: В числовую переменную...

поменять на противоположные знаки тех эл-в массива,которые встречаются ровно 1раз
поменять на противоположные знаки тех эл-в массива,которые встречаются ровно 1раз

Подсчёт слов в строке и вывод тех, которые встречаются более n раз
Всем доброго времени суток. Прошу помощи в решении задачи. Собственно сама задача: Дано...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи
[Golang] 121. Best Time to Buy and Sell Stock alhaos 28.01.2025 В этой задаче мы получаем слайс целых чисел, которые означают цену акции в разные моменты времени, и должны вернуть максимально возможную прибыль от купли продажи акции. / / . . .	Проектирование и моделирование hw_wired 28.01.2025 Введение в моделирование Моделирование представляет собой один из фундаментальных методов научного познания, который позволяет изучать объекты и явления через создание их упрощенных аналогов. В. . .	Алгоритмы и исполнители hw_wired 28.01.2025 Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .	Хранение информации hw_wired 28.01.2025 Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .	Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .	Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .
Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .	Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .	Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .

Наверх