Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 11.05.2017
Сообщений: 2
1

Написать программу, запрашивающую у пользователя строку и помещающую все слова с заданной длиной в файл

27.05.2017, 21:12. Показов 2114. Ответов 1

Написать программу, запрашивающую у пользователя строку и помещающую все слова с заданной длиной в файл на диске.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.05.2017, 21:12
Ответы с готовыми решениями:

Написать программу, запрашивающую пароль пользователя (целое пятизначное число)
Плз :help::help: помагите мне решить эти задачки : (заранее огромное спасибо) :wall:1) Написать...

Написать программу, запрашивающую дату рождения пользователя и выводящую поздравление, либо число дней до ДР
1. Напишите программу, которая запрашивает дату рождения пользователя и если день рождения в...

Написать программу, запрашивающую пароль у пользователя, чтобы при вводе пароля отображались звездочки
Здравствуйте. Я тут поискал в форуме и в гугл поискал. Но не нашел нужное. Может кто то знает как...

В тексте все слова заданной длины заменить указанной подстрокой, длина которой может не совпадать с длиной заменяемого слова
В процессе изучения C# столкнулась с одной задачей. Все бы ничего, но из-за требований к ее решению...

1
Эксперт Pascal/Delphi
6636 / 4464 / 4746
Регистрация: 05.06.2014
Сообщений: 21,951
27.05.2017, 21:42 2
Лучший ответ Сообщение было отмечено mariromanenko20 как решение

Решение

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
var
  s, s1: string;
  n, i: integer;
  f: text;
 
begin
  assign(f, 'out.txt');
  rewrite(f);
  Write('Введите строку: ');
  readln(s);
  Write('Введите длину строки: ');
  readln(n);
  s := s + ' ';
  s1 := '';
  for i := 1 to length(s) do
  begin
    if s[i] <> ' ' then 
      s1 := s1 + s[i] 
    else
    begin
      if length(s1) = n then 
      begin
        write(f, s1);
        //write(s1); проверка
      end;
      s1 := '';
    end;
  end;
  close(f);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2017, 21:42

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Ввести с клавиатуры строку S1 длиной до семидесяти символов. В строку S2 перенести все слова которые имеют удвоение бук
Ввести с клавиатуры строку S1 длиной до семидесяти символов. В строку S2 перенести все слова...

Написать программу, которая удаляет все слова из заданной строки
Написать программу, которая удаляет все слова из заданной строки длиной более К символов.

ввести строку длиной 70 символов, а в другую строку перенести все слова из этой строки, которые имеют удвоение букв.
помогите сделать .!!!!! нужно ввести строку длиной 70 символов, а в другую строку перенести все...

Перечислить все слова, длиной не более заданной, удовлетворяющие требованиям
Здравствуйте, у меня возникла небольшая неопределенность вида в следующем простом задании: Задан...

Написать процедуру, которая в произвольном предложении находит слова с заданной длиной
Написать процедуру, которая в произвольном предложении находит слова с заданной длиной,...

Написать процедуру, которая в произвольном предложении находит слова с заданной длиной
Написать процедуру, которая в произвольном предложении находит слова с заданной длиной, предложение...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.