Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
8 / 6 / 3
Регистрация: 03.06.2018
Сообщений: 119
1

Вычисление чисел в тхт файле в другой тхт

23.11.2018, 20:26. Показов 665. Ответов 3
Метки нет (Все метки)

Здравствуйте!
я начал интересоваться паскалем, так вот один мой программный код, который должен открыть файл (input.txt) там храняться много-строковые цифры, после этого открываться файл (output.txt) его дело умножить на то самое число, и записать на другой файл...
Pascal
1
2
3
4
5
6
7
8
9
10
11
var t:text;
    b:text;
    a:integer;
Begin
    assign(t,'input.txt');
    reset(t);
    readln(t,a);
    assign(b,'output.txt');
    a:=t*t;
    writeln(a);
    end.
помогите срочно нужно...
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.11.2018, 20:26
Ответы с готовыми решениями:

преобразование АВС.ТХТ в файл 123.ТХТ
Написать программу, преобразующую файл АВС.ТХТ в файл 123.ТХТ. Строки изменяются по следующему...

график по точкам из .тхт файла
Помогите пожалуйста - мне задали написать программу, которая строит график по точкам из .тхт файла....

Расширение *.ТХТ вместо *.тхт
С недавнего времени стало так, когда создаешь текстовый документ. Остальные, хранящиеся файлы в...

Печать из списка в ТХТ файле
Доброго дня. Есть список чисел от Н01001 до Н01250 , как в Corel сделать макет это не делая все...

3
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
23.11.2018, 21:26 2
Цитата Сообщение от RnD10 Посмотреть сообщение
много-строковые цифры,
Это значит многоразрядное число, типа
123456785632598532365656236?
И на что его нужно умножить?
0
8 / 6 / 3
Регистрация: 03.06.2018
Сообщений: 119
23.11.2018, 21:32  [ТС] 3
Сорян, не так обьяснил спешу)
файл input.txt
Код
6
4
2
7
5
3
45
453
И эти числа нужно умножить дважды и что бы они записались в другой файл output.txt, мне почему то сложно рассказать ситуацию...
0
Эксперт Pascal/Delphi
6750 / 4529 / 4797
Регистрация: 05.06.2014
Сообщений: 22,351
24.11.2018, 09:50 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  t, b: text;
  a: integer;
 
begin
  assign(t, 'input.txt');
  reset(t);
  assign(b, 'output.txt');
  rewrite(b);
  while not eof(t) do
  begin
    readln(t, a);
    a := sqr(a);
    writeln(b, a);
  end;
  close(b);
  close(t);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.11.2018, 09:50

Замена текста в тхт файле
Добрый день! Помогите отредактировать файл. Есть текстовик c 100500 строками, нужно в каждой строке...

Перенести 1000 строк в другой тхт
Нужно вырезать первые 1000 строк из одного тхт и вставить в другой тхт эти строки. Вроде не...

Поиск, замена и удаление символов в ТХТ файле
Доброго времени суток. Подскажите как можно осуществить замену и удаление определенных наборов...

Ping и сохранения в полученных отчётов ТХТ файле
Добрый день, я новенький прошу не судить строго( Как на С# через консолку создать приложение...


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

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

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