Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal шахматное поле шахматное поле определяется парой натуральных чисел, каждое из каких не перевеличивает восьми: первое число-номер вертикали(с лево на право), второе- номер горизонтали(снизу на верх). Даны натуральные числа a,b,c,d,e, каждое из каких не превеличивает восьми. на поле(a,b) "стоит" белая фигура, на поле(c,d)-чорная. Определить может ли белая фигура пойти на поле (e,f), не попав при этом под удар... https://www.cyberforum.ru/ pascal/ thread150472.html Pascal Вектор
Выяснить, имеются ли в заданном векторе A(N) два подряд идущих нулевых элемента
Pascal Записи - игрушки https://www.cyberforum.ru/ pascal/ thread150469.html
Сформировать запись, имеющую следующую структуру type игрушка=record название:string; цена:integer; возраст1:1..16; возраст2:1..16; end; и определить: o название самой дорогой игрушки; o список игрушек, которые подходят детям данного возраста; o подобрать игрушки на данную сумму денег (все варианты).
Pascal Множество Описать множество Pr(1..20) и поместите в него все простые числа в диапазоне 1..20. в цикле организуйте ввод чисел в диапазоне 1..20 и определите, простые они или нет. Выход из цикла – введенное значение, равное 99 https://www.cyberforum.ru/ pascal/ thread150468.html
Подпрогаммы Pascal
помогите пожалуйста Даны действительные x,y. Определить u = min(x,y), v = min(xy,x+y), z = min(u+v^2, 3.14).
Pascal Задачка на массивы Данные о росте 25 учеников класса, упорядоченные по убыванию, записаны в массиве. В начале учебного года в класс поступили 2 новых ученика. Получить аналогичный массив, учитывающий рост новых учеников. Рассмотреть два возможных случая: 1) известны порядковые номера новых учеников 2) известны значения роста новых учеников https://www.cyberforum.ru/ pascal/ thread150460.html
Pascal проверка многоугольника на правильность, Народ! Помогите, пожалуйста! Уже 2 часа сижу и не понимаю в чем моя ошибка... в общем у меня программулина которая должна проверять многоугольники на правильность, считать их периметры, сортировать периметры по возрастанию (для этого есть функции) выдавать все в файл...НО жду я результат ,а его нет, файл перезаписывается, но в нем пусто! Вот код.Заранее громадное спасибо, кто хоть чем то... https://www.cyberforum.ru/ pascal/ thread150454.html Pascal Двусвязные кольца Pascal
Уважаемые программисты! Помогите плиз решить задачку, бьюсь над не целый день... Создать двусвязанное кольцо, содержащее информацию о графических маркерах. Каждый эле-мент кольца – запись (координаты, цвет, тип маркера). Нарисовать все маркеры на экране, затем удалить из кольца все элементы, содержащие информацию о красных маркерах, очистить экран и снова нарисовать все маркеры, информация...
Pascal Строки и массив https://www.cyberforum.ru/ pascal/ thread150443.html
1. Дана строка S. Определить есть ли в строк повторяющиеся буквы 2. Дан массив из 10-ти записей.Структура записи: наименование товара, количество едениц, цена за еденицу, фирма - поставщик. Определить фирму, которая поставляет товар на наибольшую сумму. Определить товар, запасы которго минимальны Добавлено через 28 секунд Пожалуйста помогите решить, если не трудно быстрее) пожалуйста
Pascal Составить подпрограммы для выполнения операций над векторами Помогите сделать задачу!!! сделаите попроще!!!!составить подпрограммы для выполнения операций над векторами: 1)сложение; 2)вычитания; 3)скалярного умножения векторов; 4)умножение вектора на число; 5)нахождение длины вектора; вектор представить следующ. типом: type Vector=Record X,Y:Real End; https://www.cyberforum.ru/ pascal/ thread150440.html
Дана квадратная матрица A порядка M. Найти среднее арифметическое элементов ее побочной диагонали. Pascal
Как необходимо прописать 25 строку? подмогите плиз... Program maxim; Uses crt; var b:array of real; i,j,n:integer; sum:real; begin clrscr; Writeln (' vvedite razmernost matrici '); Readln (n);
Pascal Дана целочисленная матрица Дана целочисленная матрица A(N,M). Вычислить сумму и произвести тех её элементов, которые при делении на два дают нечётные числа. https://www.cyberforum.ru/ pascal/ thread150434.html
10 / 10 / 4
Регистрация: 30.04.2009
Сообщений: 30
29.06.2010, 22:47 0

Имеется текстовый файл. Переписать его строки в другой файл. - Pascal - Ответ 832920

29.06.2010, 22:47. Показов 4015. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Shark19 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var st:string;
k, i : integer;
f1, f2 : text;
begin
assign(f1,'путь к исходному файлу.txt'); {открытие файла}
 
reset(f1); {устанвливает курсор на первый символ,и переходит в режим чтение файла}
 
assign(f2,'путь куда будет записываться новый файл(например: D:\output.txt)'); {открытие файла}
rewrite(f2); {перезапись файла}
while not eof(f1) do{пока первый файл не закончится перебираем его}
begin
readln(f1, st); {читаем строки из первого файла}
writeln(f2, st); {заносим их во второй файл}
end;
close(f1);
close(f2); {закрываем оба файла}
end.


Вернуться к обсуждению:
Имеется текстовый файл. Переписать его строки в другой файл. Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.06.2010, 22:47
Готовые ответы и решения:

Имеется текстовый файл. Переписать в другой файл все его строки с заменой в них символа 0 на символ 1 и наоборот.
Имеется текстовый файл. Переписать в другой файл все его строки с заменой в них символа 0 на...

Имеется файл, элементами которого являются отдельные слова. Переписать их в другой файл
Имеется файл, элементами которого являются отдельные слова. Переписать их в другой файл. Размер...

Дан текстовый файл F. Переписать файл F в файл G, вставляя в конец каждой строки ее порядковый номер.
решите)

Файл: Переписать текстовый файл в другой, заменяя каждый символ Про на 1 и наоборот
Имеется текстовый файл. Переписать его в другой файл, заменить каждый символ Про на 1 и наоборот

2
29.06.2010, 22:47
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.06.2010, 22:47
Помогаю со студенческими работами здесь

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

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

Создать текстовый файл f и g. Переписать их в файл h чередуя строки
17. Создать текстовый файл f и g. Переписать их в файл h чередуя строки.

Текстовый файл. Переписать файл с длинной строки N знаков
Доброе время суток! Есть задание: Дан текстовый файл, между словами один или больше пробелов, в...

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