Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal дан текстовый файл input.txt, найти количество непустых строк в нем и записать в файл output.txt https://www.cyberforum.ru/ pascal/ thread295487.html
помогите! дан текстовый файл input.txt, найти количество непустых строк в нем и записать в файл output.txt
Написание псевдокода Pascal
Помогите написать псевдокод для программы, буду очень благодарен:) Задание: составить программу для обучения устному счету. На каждом шаге должны предлагаться числа и арифметические действия,...
Pascal Вертикальное меню Добрый день. При написании меню через CRT не могу осуществить выход из выбранного пункта. Для теста вставил в Задача №1 программу для создания массива случайных чисел. После выполнения программы она... https://www.cyberforum.ru/ pascal/ thread295462.html Pascal Ввести числа 1 и 2. Из текста кусок, заключенный между позициями 1 и 2 вывести на экран. А в тексте перевернуть его заголовок наперед. Задание - Ввести числа №1 и №2. Из текста выбрать кусок, заключенный между позициями №1 и №2, вывести его на экран. А в тексте перевернуть его заголовок наперед. В принципе я все сделал, кроме... https://www.cyberforum.ru/ pascal/ thread295386.html
Pascal составьте программу используя массив
дан массив найти максимальный элемент из каждой строки и найти их сумму
Pascal составить алгоритм и программу вычисления значений элементов одномерного массива X1,X2, ..., Xm-1 Помогите решить сложное задание Дана переменная B и матрица А, состоящая из m строк и m столбцов. Задано C1 и разность R арифметической прогрессии, которую образуют эти числа . Требуется составить... https://www.cyberforum.ru/ pascal/ thread295330.html
Pascal Изменить матрицу, увеличив каждый элемент, которой меньше элемента главной диагонали, находящегося с ним в одной строке Дан массив C1,C2,...,Cn. Изменить матрицу, увеличив каждый элемент, которой меньше элемента главной диагонали, находящегося с ним в одной строке, на Ci, где i - номер строки. Подсчитать общее число... https://www.cyberforum.ru/ pascal/ thread295322.html подсчитать число случаев равенства элементов пары; одновременно найти средне арифметическое элементов Х1,Х2,...,Хn. Pascal
При заданных Х1,Х2,...,Хn и Y1,Y2,...,Yn(массив), проверяя на равенство элементы пар (Х1,Y1),(Y1,Y2),...,(Xn,Yn) подсчитать число случаев равенства элементов пары; одновременно найти средне...
Pascal Количество групп одинаковых чисел, ко-во разных чисел в последовательности Доброго времени суток! Пишу пост в надежде на Вашу помощь. Даны 20 чисел, образующие неубывающую последовательность. Несколько чисел, идущие подряд, равны между собой. Найти количество таких... https://www.cyberforum.ru/ pascal/ thread295192.html Pascal найти вектор (матрицу, строку) X люди Help!!!! дана функция: z=xy\div \sqrt{1+{y}^{2} x y m=n=10 с ней над: https://www.cyberforum.ru/ pascal/ thread295136.html
Не могу понять где ошибка. Pascal
У меня в программе пользователь должен ввести 4 точки в декартовых координатах, а программа должна вычислить площадь прямоугольника образованного этими точками, так как показано на рисунке ...
Pascal Написать подпрограмму поиска суммы четных элементов матрицы,стоящих на нечетных строках. https://www.cyberforum.ru/ pascal/ thread295097.html
Написать подпрограмму поиска суммы четных элементов матрицы,стоящих на нечетных строках.Для проверки подпрограммы создать драйвер,в котором выполнить ввод матриц,заменить ею элементы главной...
4 / 4 / 1
Регистрация: 14.03.2011
Сообщений: 31
14.05.2011, 20:19  [ТС] 0

Запись из файла в файл - Pascal - Ответ 1649597

14.05.2011, 20:19. Показов 763. Ответов 4
Метки (Все метки)

Ответ

не прокатит, у строки диапазон 1..255, а у меня во втором файле 5000 слов. так что это не вариант

Добавлено через 14 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
uses crt;
var
c:string; i,j,k,d,h,p:integer;
s:array[1..100] of string[20];
s1:array[1..100] of string[20];
s2:array[1..100] of string[20];
f1,f2:text;
Begin
assign(f1,'C:\file1');
assign(f2,'C:file2');
reset(f1);
reset(f2);
k:=0;
while not eof(f1) do begin
k:=k+1;
readln(f1,s[k]);
end;
d:=0;
p:=0;
while not eof(f2) do begin
d:=d+1;
readln(f2,s1[d]);
end;
writeln(d);
h:=0;
for i:=1 to k do
 begin
  for j:=1 to d do
   begin
    if s[i]<>s1[j] then inc(h);
    if h=d then
     begin
      inc(p);
      s2[p]:=s[i];
     end;
   end;
 end;
append(f2);
for i:=1 to p do
 begin
 writeln(f2,s2[p]);
 end;
close(f1);
close(f2);
end.
Вот тщетная попытка решить проблему, но вот записывается только первое слово и всё.

Вернуться к обсуждению:
Запись из файла в файл Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.05.2011, 20:19
Готовые ответы и решения:

Запись в 2 файла, сравнение и запись в 3-ий файл
Нуждаюсь в помощи с программами, написаны, вот надо готовить отчеты, но проблема в том, что у нас...

Надо организовать чтение из файла и запись в файл
Есть массив m на n, надо организовать чтение из файла и запись в файл

Запись - чтение двумерного массива в файл - из файла
Ребят, помогите пожалуйста к задаче https://www.cyberforum.ru/pascal/thread100714.html написать...

Запись подготовленных данных во внешний файл и программа обработки созданного внешнего файла.
ВОт надо программку написать)а я хз как( Подготовить данные об абитуриентах, поступающих в...

4
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.05.2011, 20:19

Переписать с сохранением порядка следования компоненты файла а1 в файл f2 а файла f2 в файл f1
Помогите пожалуйста товарищи программисты решить мой вариант на тему файлы... Вариант 5 1. Даны...

Запись чисел из файла 1, и запись в файл 2 в отсортированном виде
Задание: Есть файл 1, в нем находятся числа, нужно их отсортировать по возрастанию и записать в...

Чтение из файла А, выборка и запись в файл В (текстовые)
Нужно считывать из файла file1.txt данные. сразу сравнить и записать. Как это реализовать? Сразу на...

Вычислить среднее арифметическое чисел из файла и запись всех чисел меньших него в файл B.txt
Напишите программу, в которой происходит чтение целых чисел из файла A.txt (произведите проверку на...

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