0 / 0 / 0
Регистрация: 05.12.2014
Сообщений: 12
1

Сделать ввод текстовым файлом Input.txt, а вывод output.txt

05.12.2014, 21:06. Показов 4618. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
    a : longint;
    s : string;
    i, n : integer;
begin
    readln(a);
    str(a, s);
    n := length(s);
    for i := 1 to n - 1 do
        if s[i] < s[i + 1] then begin
            delete(s, i, 1);
            break;
        end;
    if n = length(s) then delete(s, n, 1);
    writeln(s);
end.
необходимо сделать ввод текстовым файлом Input.txt, а вывод output.txt

Добавлено через 4 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
a:longint;
i:integer;
s,r,f:string;
begin
readln(a);
while a>0 do
begin
f:='yes';
str(a mod 2,s);
r:=s+r;
a:=a div 2;
end;
for i:= 1 to length(r) div 2 do
if r[i]<>r[length(r)+1-i] then f:='no';
writeln(f);
end.
признаюсь, я не знаю как это делать, поэтому этот код тоже нуждается в доработке
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2014, 21:06
Ответы с готовыми решениями:

Файлы. В файл output.txt записать максимальное и минимальное числа из файла input.txt
Нужна программа, которая выпишет максимальное и минимальное числа из файла input.txt, содержащего...

Сколько различных символов Данные вводятся с клавиатуры или из файла input.txt, выводятся на экран или в файл output.txt
Ограничение по времени, сек 2 Ограничение по памяти, мегабайт 64 Напишите программу, которая...

Переписать данные файла input.txt в файл output.txt, отсортировав их по убыванию суммы оценок методом "пузырька"
(сумму оценко вывести в файл output.txt для каждого студента)

Считать с файла (input.txt) строку, заменить в строке латинские буквы на русские, записать файл (input.txt) эту строку
Считать с файла (input.txt) строку, заменить в строке латинские буквы на русские, записать файл...

1
26 / 26 / 42
Регистрация: 25.03.2014
Сообщений: 233
05.12.2014, 21:30 2
В начало программы пишите
Pascal
1
2
3
4
assign(input, 'input.txt');
assign(output, 'output.txt');
reset(input);
rewrite(output);
В конец
Pascal
1
2
close(input);
close(output);
В самой программе ничего менять не надо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2014, 21:30
Помогаю со студенческими работами здесь

Сделать так, чтобы входные данные записываются в файл input.txt, а выходные в output.txt
uses crt; const n=5; var a:array of integer; i,p1,p2:integer; Begin clrscr; p1:=1; ...

Найти среднеарифметическое всех чисел(файлы input.txt, output.txt)
В файле input.txt записать числа, сколько их - неизвестно (произвольно ввести в созданный файл...

В input.txt есть числа в столбик, найти min и max и записать их в output.txt.
Уважаемые знатоки, напишите программку, пожалуйста. В input.txt есть числа в столбик, найти min и...

Из текстового файла input.txt с данными вывести информацию в файл output.txt по заданному условию
Дан текстовый файл input.txt содержащий в первой строке кол-во данных, в каждой следующей...

Считать текст из файла Input.txt и вывести в файл Output.txt все предложения в обратном порядке
написать программу, которая считывает текст из файла Input.txt и выводит в файл Output.txt все...

Дописать программу. Output.txt и Input.txt
Здравствуйте! Требуется написать программу, берущую строку из файла, удаляющую лишние запятые и...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru