Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Найти сумму минимального и максимального элементов файла целых чисел https://www.cyberforum.ru/ turbo-pascal/ thread1170281.html
заполнить файл последовательного доступа N действительными числами, полученными с помощью датчика случайных чисел.Найти сумму минимального и максимального элементов этого файла.
Turbo Pascal Формирование файла записей данной структуры
Разработать алгоритм и программу ,которая формирует файл записей данной структуры Type Student=Record Imja:String; Gruppa:String; Bal1:Integer; Ball2:Integer;Ball3:Integer; End; и определяет :- кто лучше всех сдал экзамены; - средний былл по даноному предмету ; -список задолжников. Заранее спасибо
Turbo Pascal Нужно найти ошибку https://www.cyberforum.ru/ turbo-pascal/ thread1170219.html
Помогите исправить ошибку.Программа должна вводить данные про салон связи(оператор,тариф,стоимость,код тарифа и оператора и т.д.), просматривать в таблице, редактировать, сортировать, и осуществлять поиск тарифов и операторов, а также должен быть еще и выход из программы.В первой процедуре при вводе данных появляется ошибка.При выводе текст появляется непонятными символами и без таблицы.Помогите...
Turbo Pascal Определить индексы первого нулевого элемента матрицы https://www.cyberforum.ru/ turbo-pascal/ thread1170177.html
Народ,срочно нужна помощь.Разработать алгоритм и программу решения задачи :" Дана вещественная матрица размерности m*n". Определить индексы первого нулевого элемента матрицы. Обход матрицы осуществлять по столбцам. Помогите кому не трудно,заранее спасибо.
Заданы N чисел. Найти и вывести значение наибольшего из них Turbo Pascal
Помогите с созданием программки Заданы N чисел. Найти и вывести значение наибольшего из них. Метод решения Ввести исходные числа в массив и использовать алгоритм А5 или предложить свой, в котором не используется массив.
Turbo Pascal Заданы N целых чисел. Подсчитать, сколько из них являются квадратами Заданы N целых чисел. Подсчитать, сколько из них являются квадратами. Пояснение: их чисел {8, 9, 33, 46} квадратами являются числа 9 и 36. https://www.cyberforum.ru/ turbo-pascal/ thread1170106.html
Turbo Pascal Программа оценки выступления спортсмена https://www.cyberforum.ru/ turbo-pascal/ thread1170103.html
Программа оценки выступления спортсмена Выступление спортсмена оценивают N судей. Оценка - целое число из диапазона 0..9. Определить и вывести среднюю оценку с точностью до 2х цифр осле запятой. Правило вычисления средней оценки: Из предъявленных отбрасываются одна самая высокая и одна самая низкая, а оставшиеся используются для вычисления среднего арифметического значения, которое и...
Turbo Pascal Ошибка 201
Доброго времени суток, форумчане. Возникла проблема с прогаммным кодом. Выбивает ошибку 201. Порывшись на форумах, узнал, что дело в массивах и прочее, но так найти проблему и не смог. program kursak; Uses GRAPH, CRT; Const A=30; T=0.25; tau=50; n=201; z=27;
Turbo Pascal Флаг Южной Кореи https://www.cyberforum.ru/ turbo-pascal/ thread1170041.html
Помогите пожалуйста написать листинг флага Южной Кореи
Turbo Pascal Вывести график ctg(x^2)/sqrt(x) https://www.cyberforum.ru/ turbo-pascal/ thread1170035.html
помогите создать программу функции ctg(x^2)/sqrt(x) с выводом в модуле graph
Найти максимальное количество четных чисел в заданном наборе, идущих подряд Turbo Pascal
Дано целое число n набор из n из целых чисел.Найти максимальное количество четных чисел в наборе, идущих подряд . Если четные числа в наборе отсутствуют ,то вывести 0.
Turbo Pascal Нарисовать флаг Сингапура Помогите нарисовать флаг Сингапура в паскале. Добавлено через 9 минут 640х480 https://www.cyberforum.ru/ turbo-pascal/ thread1169932.html
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,597
Записей в блоге: 1
09.05.2014, 08:25 0

Подсчитать количество слов в каждой строке - Turbo Pascal - Ответ 6147287

09.05.2014, 08:25. Показов 2971. Ответов 1
Метки (Все метки)

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

Решение

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
Const nmax=30;//max количество строк в файле
Var f:text;
    s,sl:string;
    A:array[1..30] of byte;
    i,n:byte;
Begin
    Assign(f,'in.txt');Reset(f);
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';inc(n);
      While Pos(' ',s)>0 do
      Begin
        sl:=Copy(s,1,Pos(' ',s)-1);
        Delete(s,1,Pos(' ',s));
        if sl<>'' then inc(A[n]);
      End;
    End;
    Close(f);Append(f);
    writeln(f);
    For i:=1 to n do
    Begin
      Str(A[i],sl);
      writeln(f,i,' строка - ',sl);
    End;
    Close(f);
    writeln('Результат в файле "in.txt"');
    readln;
End.


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

Подсчитать количество слов в данной строке, подсчитать количество букв а в последнем слове
Дан текст. а) Подсчитать количество слов в данной строке. б) Подсчитать количество букв а в...

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

Подсчитать количество слов в строке
Дана строка,заканчивающаяся точкой.Подсчитать,сколько слов в строке.

Подсчитать количество слов в строке
Дан файл f. В нем текстовая строка. Нужно подсчитать кол.во слов в строке. Мой код Var text:...

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

Подсчитать количество прописных букв в каждой строке
Задано M строк символов, которые вводятся с клавиатуры.Каждая строка представляет собой текст.

Подсчитать количество положительных элементов в каждой строке
Подсчитать количество положительных элементов в каждой строке матрицы размером МхN, элементы...

Подсчитать количество заданных слов в строке
Разработать подпрограмму обработки исходного предложения на русском языке (из 50÷80 знаков, в...

Подсчитать количество слов в введенной строке
Запросить у пользователя произвольные слова пока не введена точка. Подсчитать кол-во слов. ...

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