Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Turbo Pascal Вводится последовательность Вводится последовательность слов и записывается в файле. Создать односвязный список из слов. Определить количество одинаковых слов в списке. Удалить все одинаковые слова. Вывести на экран список и его получившуюся длину. https://www.cyberforum.ru/ turbo-pascal/ thread1861066.html Turbo Pascal Обработка символьной информации
Дан текст, слова которого отделяются друг от друга пробелами. В тексте вставить пробелы после символа “.” и “...”, если длина самого длинного слова меньше количества слов в тексте. В противном случае текст оставить без изменения. Распечатать исходный текст, количество букв в слово максимальном по длине, количество слов в тексте и полученный текст. Добавлено через 20 часов 44 минуты Помогите...
Turbo Pascal Найти корень уравнения https://www.cyberforum.ru/ turbo-pascal/ thread1860899.html
Найти корень уравнения f(x)=sinx-xcosx=0 в интервале (-3,14;3,14) x=0, f(x)=0 Не представляю как это можно сделать. Каким методом, это находить нам тоже не сказали. Буду рад (подсказкам)помощи и решении. 		Turbo Pascal Диагонали https://www.cyberforum.ru/ turbo-pascal/ thread1860781.html
Что значат диагонали квадратной матрицы? i=j i<j i>j i+j=n+1 i+j<n+1 i+j>n+1
Найти номер максимального элемента и количество элементов этой матрицы кратных ее первому элементу Turbo Pascal
Поиск элементов массива по К ключам. Дано матрицу размерности m х n .Найти номер максимального элемента и количество элементов этой матрицы кратных ее первому элементу. 		Turbo Pascal Поиск элементов массива по одному ключу Дано матрицу размерности m х n .Найти номер максимального элемента этой матрицы. https://www.cyberforum.ru/ turbo-pascal/ thread1860640.html
Turbo Pascal Определить суммы элементов над главной диагональю и под ней Двумерный квадратный массив целых чисел считывается их текстового файла. Программа выводит квадратный массив в консольное окно, определяет суммы элементов над главной диагональю и под ней. Она определяет также, которая из сумм больше. https://www.cyberforum.ru/ turbo-pascal/ thread1860496.html Turbo Pascal Двумерный квадратный массив целых чисел
Всем добрый день,помогите с решением задачи. Двумерный квадратный массив целых чисел считывается из текстового файла. Программа выводит квадратный массив в консольное окно, выдает информацию о минимальных элементах по всем строкам массива. Она также находит минимальный элемент из всех минимальных элементов по строкам. Добавлено через 1 минуту Вся сложность в том,что я не знаю как прочитать...
Turbo Pascal Двумерный массив из файла https://www.cyberforum.ru/ turbo-pascal/ thread1860481.html
Всем добрый день,помогите с решением задачи. Двумерный квадратный массив целых считывается из текстового файла. Программа выводит квадратный массив в консольное окно, выдает информацию о его размере, количестве положительных и отрицательных элементов. 		Turbo Pascal Найти максимальный элемент главной диагонали массива Двумерный квадратный массив целых чисел считывается из текстового файла. Программа выводит квадратный массив в консольное окно, находит максимальный элемент главной диагонали массива. https://www.cyberforum.ru/ turbo-pascal/ thread1860382.html
Программа перемножает два квадратных массива одинаковой размерности Turbo Pascal
Программа перемножает два квадратных массива одинаковой размерности, считанных из двух файлов. В консольное окно выводится информация о считанных массивах и результат их перемножения 		Turbo Pascal Сортировка методом Шелла https://www.cyberforum.ru/ turbo-pascal/ thread1860221.html
Дано квадратную матрицу размерности n x n .Напечатать элементы предпоследнего столбца в порядке убывания.Заранее спасибо.
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
27.11.2016, 09:55 0

Переписать в файл g все строчки файла f, которые состоят из четного количества слов - Turbo Pascal - Ответ 9820207

27.11.2016, 09:55. Показов 521. Ответов 2
Метки (Все метки)

Ответ

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

uses crt;
var f,g: Text;
    s:string;
   i,kil_sl:byte;
begin
clrscr;
assign (f,'F.txt');
reset(f);{файл создаем в Блокноте и сохраняем в папке с пограммой}
assign (g,'G.txt');
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  s:=' '+s;//пробел в начало для удобства
  kil_sl:=0;
  for i:=1 to length(s) do
  if(s[i-1]=' ')and(s[i]<>' ')then inc(kil_sl);
  if kil_sl mod 2=0 then writeln(g,s);
 end;
Close(f);
Close(g);
write('Файл F.txt прочитан, строки с четным количеством слов записаны в файл G.txt');
readln
end.


Вернуться к обсуждению:
Переписать в файл g все строчки файла f, которые состоят из четного количества слов Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 27.11.2016, 09:55
Готовые ответы и решения:

Задан текстовый файл. Переписать в другой файл, те строки из первого файла, которые содержат менее 5 слов
Помогите решить задачу пожалуйста! Заданный текстовый файл. Переписать в другой файл, те строки из...

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

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

Переписать в файл g все строки из файла f, которые начинаются с буквы 'c'.
При открытии и сохранении файла необходимо использовать файловые диалоги. Задание - Дан...

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

Переписать в файл g все рядки файла f, которые имеют больше 30 символов
Всем привет, нид хэлп! 2. Дано текстовый файл f. Переписать в файл g все рядки файла f, которые...

Переписать в третий файл только те строчки, которые есть и в первом, и во втором файлах.
Заданы 2 текстовых файла. Переписать в третий только те строчки, которые есть и в первом, и во...

Переписать содержимое файла в новый файл удваивая пустые строчки
Тема:&quot;Файлы&quot; Переписать содержимое файла в новый файл удваивая пустые строчки Буду...

Переписать содержимое файла в новый файл удваивая пустые строчки
Переписать содержимое файла в новый файл удваивая пустые строчки (Тема:Файлы) Заранее спасибо!

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru