Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Написать программу, которая определяет число n, при котором сумма не превысит величину k, введенную с клавиатуры https://www.cyberforum.ru/ pascal/ thread2159353.html Написать программу, которая определяет число n, при котором сумма не привысит велечину k введенную с клавиатуры то есть s>k, где s= sinx/x+sin(в квадрате)x/x(в квадрате)+sin(в кубе)x/x(в кубе)+...+sin(в n-ной степени)x/x(в n-ной степени)	Pascal Используя рекурсию, написать программу перевода натурального числа из двоичной системы счисления в шестнадцатеричную Используя рекурсию написать программу перевода натурального числа из двоичной системы счисления в шестнадцатеричную.(заранее спасибо)
Pascal Вывести список учеников, у которых есть сестры, потом тех, у кого братья https://www.cyberforum.ru/ pascal/ thread2159343.html В программе хранятся данные об учениках класса: фамилия, имя, отчество, адрес (улица, дом, квартира) и наличие братьев и сестер. Вывести список учеников, у которых есть сестры, потом тех, у кого братья, и затем тех. У кого есть и сестра и брат.(заранее спасибо)	Pascal Используя рекурсивную процедуру без параметров выдать сначала все отрицательные числа, затем все положительные Помогите решить задачу в Pascal. Ввводится последовательность ненулевых целых чисел за которыми следует 0. Используя рекурсивную процедуру без параметров выдать сначала все отрицательные числа, затем все положительные. https://www.cyberforum.ru/ pascal/ thread2159322.html
С помощью процедуры вывести строку, сумма элементов которой максимальна Pascal С помощью процедуры вывести строку, сумма элементов которой максимальна.(заранее спасибо)	Pascal Елка в PascalABC https://www.cyberforum.ru/ pascal/ thread2159145.html Написал программу елки, все прекрасно работает на версии Pascal 2017, можно ли как-нибудь переделать это на Pascal 2006-ого года, чтобы была функция или процедура? Нужно запустить на ПК, где старый pascal Хотелось бы узнать, это возможно? upd: еще нужно убрать: Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла program elka_by_pirajog; uses crt; var
Pascal Определить: сколько в файле имеется предложений, состоящих из одного, двух, трех и т. д. слов https://www.cyberforum.ru/ pascal/ thread2159141.html Задан символьный файл. Считая что, каждое его предложение состоит не более чем из 20 слов, определите: сколько в файле имеется предложений, состоящих из одного, двух, трех и т. д. слов.	Pascal Сформировать файл и оставить в файле только числа, находящиеся между минимальным и максимальным Здравствуйте, помогите пожалуйста с написанием кода для следующей задачи на Pascal'е. Задача: Создать типизированный файл целых чисел. Записать в него с консоли последовательность целых чисел, конец последовательности (терминатор) – ноль, который не записывается в файл. Определить минимальное и максимальное числа и их позиции в файле (нумерация данных в файле начинается с нуля)....
Pascal Файлы https://www.cyberforum.ru/ pascal/ thread2159089.html a) Необходимо написать программу-конвертор, которая из исходного текстового файла Input.txt создаст типизованный файл Input.dat (f:file of record) соответствующей структуры. б) Необходимо написать новую программу, решающую следующие задачи: Занесение записей из файла Input.dat в массив записей с одновременным определением числа записей во входном файле. Вывод упорядоченного массива в...	Pascal Представление таблицы в виде бинарного дерева Представить таблицу в виде бинарного дерева. Написать процедуры создания и обхода дерева, а также одну из процедур или функций, приведенных ниже. Значения полей и количество записей в таблице студент выбирает самостоятельно. Программа должна сохранять дерево в файле и создавать его заново при её повторном запуске. вариант 19: Таблица 3.1. Процедуру, которая подсчитывает число вершин на... https://www.cyberforum.ru/ pascal/ thread2159022.html
Представление таблицы в виде линейного списка Pascal Представить одну из приведенных ниже таблиц в виде линейного списка L, элементами которого являются строки таблицы. Написать процедуры организа- ции, добавления элемента в список, исключения элемента из списка, просмотра списка, а также одну из процедур в соответствии с вариантом, приведенным ни- же. Значения и количество записей в таблице студент выбирает самостоятельно. Исходные данные...	Pascal Составить процедуру, вычисляющую сумму элементов главной диагонали матрицы https://www.cyberforum.ru/ pascal/ thread2158691.html Составить процедуру ,вычисляющую сумму элементов главной диагонали матрицы.Применить данную процедуру для двух заданных матриц C(n,n) и P(m,m).Если элементы главной диагонали матрицы равны между собой , то вывести соответствующее сообщение.В противном случае вывести сообщение "Элементы не совпадают"

qwertere

0 / 0 / 0

Регистрация: 17.12.2017

Сообщений: 1

Дан текстовый файл. В каждой строке файла подсчитать среднюю длину слов. В новый файл записать слова с длиной большей - Pascal - Ответ 11954962

17.12.2017, 17:48. Показов 1591. Ответов 1

Метки (Все метки)

Студворк — интернет-сервис помощи студентам

Помогите, пожалуйста.
1) Как вернуть значения n к 0 после подсчета количества слов в предложении?
2) Как отправлять слова на вывод в файл

Pascal

uses crt;
var f1,f2:text;
    s:string;
    n,i:integer;
    z:real;
begin
clrscr;
assign(f1,'Input.txt');
reset(f1);
while not Eof(f1) do begin
Readln(f1,s);
for i := 1 to Length(s) do
if (s[i] <> ' ') and ((i = Length(s)) or (s[i + 1] = ' ')) then Inc(n);
while pos(' ', s)<>0 do
delete(s, pos(' ', s), 1);
writeln ('Количество слов в предложении: ',n);
Writeln('В строке: ', Length(s),' символов');
writeln ('Количество слов в предложении: ',n);
z:= length(s)/n;
writeln ('Средняя длина слов в строке: ' ,length(s)/n);
end;
assign (f2, 'Output.txt');
rewrite(f2,n);
close(f1);
close(f2)
end.

Вернуться к обсуждению:
Дан текстовый файл. В каждой строке файла подсчитать среднюю длину слов. В новый файл записать слова с длиной большей Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.12.2017, 17:48

Готовые ответы и решения:

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

Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный
Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в...

Дан текстовый файл, содержащий целые числа. Определить в каждой четной строке максимальное число и записать результаты в новый текстовый файл
Дан текстовый файл, содержащий целые числа. Определить в каждой четной строке максимальное число и...

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.12.2017, 17:48

Помогаю со студенческими работами здесь

Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством символов больше 4 и меньш 6
Дан текстовый файл g. Создать новый файл f и записать в него все слова файла g с количеством...

Удалить в каждой строке файла слова с наибольшей длиной, результат занести в новый файл
Дан текстовый файл f. Удалить в каждой строке слова с наибольшей длиной, результат занести в файл g.

В каждой строке файла подсчитать среднюю длину слов
Дан текстовый файл. В каждой строке файла подсчитать среднюю длину слов. В новый файл записать...

В каждой строке текста найти слово максимальной длины и записать найденные слова и их длину в новый файл
1) Создать текст, вводя данные с клавиатуры, В каждой строке текста найти слово максимальной длины...

Наверх