Системы счисления

@91Kensei91 · Регистрация: 05.04.2009

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

Помогите с программой пожалуйста.
Условие. Есть исходный файл, в каждой строке которого лишь одно число в системе счисления, основание которой вводится с клавиатуры, количество цифр в числе не более 3. Строка с числом может содержать любое количество пробелов как до, так и после числа. Системы счисления с основаниями 2 до 20.
Задача. Написать программу, используя процедуры:
1) осуществляющую запись в другой файл этих чисел в десятичной системе счисления
2) Запись в третий файл этих чисел в системе счисления, основание которой задается с клавиатуры.
Я уже создавал тему, но ответа конкретного по задаче так и не получил, короче тема умерла, помогите пожалуйста. Процедуры на перевод из одной системы счисления в другую вроде есть, а вот с удалением пробелов, переводом строки в число и записью в файлы проблема.

@Puporev · 03.05.2009, 22:04

1.Удаление пробелов.
while pos(' ',s)>0 do delete(s,pos(' ',s),1);
2.Перевод строки в число.
str(s,t); s-строка, t- число.
3.Запись в текстовый файл.
а) в строку write(f,t);
б) в столбец writeln(f,t);

@91Kensei91 · 03.05.2009, 22:52 **[ТС]**

Что write(f,t) я это знаю, мне надо чтобы из процедуры как то в файл писала прога, а то программа стирает пробелы в процедуре, а в другую, где перевод числа снова дает всю строку. Как мне вынуть строку из одной процедуры и запихнуть ее в другую?

@Puporev · 04.05.2009, 05:17

Pascal

 
while not eof(f) do
  begin
   readln(f,s);
   while pos(' ',s)>0 do delete(s,pos(' ',s),1);
   write(g,s);
end;

@91Kensei91 0 / 0 / 0 Регистрация: 05.04.2009 Сообщений: 8
		1
	Системы счисления 03.05.2009, 21:06. Показов 680. Ответов 3 Метки нет (Все метки) Помогите с программой пожалуйста. Условие. Есть исходный файл, в каждой строке которого лишь одно число в системе счисления, основание которой вводится с клавиатуры, количество цифр в числе не более 3. Строка с числом может содержать любое количество пробелов как до, так и после числа. Системы счисления с основаниями 2 до 20. Задача. Написать программу, используя процедуры: 1) осуществляющую запись в другой файл этих чисел в десятичной системе счисления 2) Запись в третий файл этих чисел в системе счисления, основание которой задается с клавиатуры. Я уже создавал тему, но ответа конкретного по задаче так и не получил, короче тема умерла, помогите пожалуйста. Процедуры на перевод из одной системы счисления в другую вроде есть, а вот с удалением пробелов, переводом строки в число и записью в файлы проблема. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	03.05.2009, 22:04	2
	1.Удаление пробелов. while pos(' ',s)>0 do delete(s,pos(' ',s),1); 2.Перевод строки в число. str(s,t); s-строка, t- число. 3.Запись в текстовый файл. а) в строку write(f,t); б) в столбец writeln(f,t); 0

@91Kensei91 0 / 0 / 0 Регистрация: 05.04.2009 Сообщений: 8
	03.05.2009, 22:52 [ТС]	3
	Что write(f,t) я это знаю, мне надо чтобы из процедуры как то в файл писала прога, а то программа стирает пробелы в процедуре, а в другую, где перевод числа снова дает всю строку. Как мне вынуть строку из одной процедуры и запихнуть ее в другую? 0

Опции темы