Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Дан текстовый файл, содержащий строки. Подсчитать количество слов в строке, имеющих нечетное количество букв https://www.cyberforum.ru/ pascalabc/ thread2149799.html
Дан текстовый файл, содержащий строки. Подсчитать количество слов в строке, имеющих нечетное количество букв
Нарисуйте блок-схему, пожалуйста Pascal ABC
var s,sl:string; i,x:integer; begin write('Введите текст: '); readln(s); s:=s+' '; writeln ('треть слово заканчивается на букву:'); repeat inc(i); if s<>' ' then sl:=sl+s else inc(x);
Pascal ABC Определить на какую букву заканчивается третье слово в строке PASCAL https://www.cyberforum.ru/ pascalabc/ thread2149699.html
определить на какую букву заканчивается третье слово в строке PASCAL срочно пожалуйста, если можно еще и блок схему
Pascal ABC Преобразование символьной информации составить программу, которая из строки 'БЕЙСИК, ФОРТРАН, ПАСКАЛЬ' формирует текст: 'БЕЙСИК появился позже, чем ФОРТРАН; ПАСКАЛЬ позже всех'. Помогите, пожалуйста, с заданием https://www.cyberforum.ru/ pascalabc/ thread2149666.html
Найти произведение элементов, стоящих на главной диагонали Pascal ABC
Уважаемые господа, помогите, пожалуйста, с заданием Дана квадратичная таблица. найти произведение элементов стоящих по главной диагонали.
Pascal ABC Дан текстовый файл, содержащий строки Дан текстовый файл, содержащий строки Даны слова, напечатать те, в которых нет повторяющихся букв https://www.cyberforum.ru/ pascalabc/ thread2149646.html
Pascal ABC Дан текстовый файл, содержащий строки, во всех словах удалить все предыдущие вхождения последней буквы https://www.cyberforum.ru/ pascalabc/ thread2149645.html
Дан текстовый файл, содержащий строки, во всех словах удалить все предыдущие вхождения последней буквы
Pascal ABC Дан текстовый файл, содержащий строки. Напечатать слова в порядке убывания
Дан текстовый файл, содержащий строки. Напечатать слова в порядке убывания
Pascal ABC Дан текстовый файл, содержащий строки. В каждой строке вывести слова, которые повторяются https://www.cyberforum.ru/ pascalabc/ thread2149643.html
Дан текстовый файл, содержащий строки. В каждой строке вывести слова, которые повторяются
Pascal ABC Дан текстовый файл, содержащий строки. Вывести все слова, каждое с новой строки https://www.cyberforum.ru/ pascalabc/ thread2149641.html
Дан текстовый файл, содержащий строки. Вывести все слова, каждое с новой строки
Pascal ABC В каждой строке поменять слова 1-2, 3-4, 5-6, 7-8 и так далее, если количество слов нечётно, то последним выводится
Дан текстовый файл, содержащий строки. В каждой строке поменять слова 1-2, 3-4, 5-6, 7-8 и так далее, если количество слов нечётно, то последним выводится последнее слово То есть поменять слова первое со вторым, третье с четвертым и т.д
Pascal ABC Объединить массивы так, чтобы результирующий массив С (размеры 10) остался упорядоченным по возрастанию https://www.cyberforum.ru/ pascalabc/ thread2149587.html
Даны два массива А и В размера 5, элементы которых упорядочены по возрастанию. Объединить эти массивы так, чтобы результирующий массив С(размеры 10) остался упорядоченным по возрастанию.
1 / 1 / 7
Регистрация: 04.12.2017
Сообщений: 74
0

Дан текстовый файл, содержащий строки. Вывести все слова в строке, которые содержат менее 4-х символов - Pascal ABC - Ответ 11912875

04.12.2017, 23:19. Показов 1277. Ответов 1
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Дан текстовый файл, содержащий строки. Вывести все слова в строке, которые содержат менее 4-х символов

Добавлено через 1 час 8 минут
Вот правильное решение
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
var a:array [1..100] of string;
f:text;
s:string;
i,n:integer;
begin
assign(f, 't1.txt');
reset(f);
while not eof(f) do begin
  readln (f,s);
  s:=s+' ';
  n:=0;
  while (pos(' ',s)>0) do begin
    if (copy(s,1,pos(' ',s)-1)<>'') then begin
      n:=n+1;
      A[n]:=copy(s,1,pos(' ',s)-1);
    end;
    delete(s,1,pos(' ',s));
  end;
  for i:=1 to n do
    if (length(a[i])<4) then write(A[i], ' ');    
    writeln();
  end;
  close(f);
end.


Вернуться к обсуждению:
Дан текстовый файл, содержащий строки. Вывести все слова в строке, которые содержат менее 4-х символов Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.12.2017, 23:19
Готовые ответы и решения:

Дан текстовый файл, содержащий строки. В каждой строке вывести слова, которые повторяются
Дан текстовый файл, содержащий строки. В каждой строке вывести слова, которые повторяются

Дан текстовый файл, содержащий строки. Вывести все слова, каждое с новой строки
Дан текстовый файл, содержащий строки. Вывести все слова, каждое с новой строки

Дан текстовый файл. Выведите все строки, которые содержат хотя бы один пробел
Дан текстовый файл. Выведите все строки, которые содержат хотя бы один пробел. Формат входных...

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

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

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

Дан текст. Найти все слова, которые содержат символ «t» и встречаются в тексте не менее 2 раз
Дан текст. Найти все слова, которые содержат символ «t» и встречаются в тексте не менее 2 раз

Вывести слова в строке, которые содержат больше 6 символов
Привет. Пробывал использовать strlen для подсчета количества символов,но считывает всю длину...

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

Дан символ 'C' (прописная латинская буква) и текстовый файл. Создать строковый файл, содержащий все слова из исходного файла
Дан символ 'C' (прописная латинская буква) и текстовый файл. Создать строковый файл, содержащий все...

Дан текстовый файл, содержащий строки. Исключить из файла слова begin и end
Дан текстовый файл, содержащий строки. Исключить из файла слова begin и end. Окно работающего...

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