Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Процедура поиска студентов по фамилии которая начинается на Б или Г https://www.cyberforum.ru/ pascalabc/ thread1720041.html
Нужно написать процедуру поиска студентов по фамилии, которая начинается на Б или Г. Сама процедура поиска у меня написана, но она немного криво работает. program spisok; uses crt; type student=record number:integer; FI:string; year:integer; year_postup:integer; fiz:integer; mat:integer;
Pascal ABC Вставить анимацию, которая будет появляться только при условии того, что вы выиграли в игре
Помогите вставить анимацию, которая будет появляться только при условии того, что вы выиграли в игре Сам программный код игры: Program a8; Uses Crt; Var d:integer; procedure obnova2; var d:integer; procedure obnova; Var x,y,z:integer; procedure nachalo;
Pascal ABC Сформировать и вывести новый массив, в который поместить в убывающем порядке все отрицательные числа исходного https://www.cyberforum.ru/ pascalabc/ thread1719839.html
Дан произвольный одномерный массив целых чисел. Размерность 15. Сформировать и вывести новый массив, в который поместить в убывающем порядке все отрицательные числа исходного массива. помогите
Pascal ABC Найти уравнение зависимости мгновенного значения тока в проводнике от времени i (t) https://www.cyberforum.ru/ pascalabc/ thread1719809.html
Найти уравнение зависимости мгновенного значения тока в проводнике от времени i (t), если известна функциональная зависимость заряда, протекающего через поперечное сечение проводника от времени q (t). определить значение i (t) при t = 3 с. Построить графики q (t), i (t). q(t) = 3*sin(2*t) + 2*cos(3*t); (K).
Нужна информация о создании форм Pascal ABC
Дайте ссылку(ки) пожалуйста с объяснением создания форм "uses formsABC". Кроме уже известных мне источников: 1)Web справка по модулю FormsABC (сайт Викиучебник) 2)Pascal.ABC.NET.
Pascal ABC Нарисовать радугу https://www.cyberforum.ru/ pascalabc/ thread1719751.html
СРОЧНОО Помогите, пожалуйста нарисовать радугу, как она появляется с одного облака и протягивается до второго облака. Сделать это нужно как анимацию, циклический алгоритм
Pascal ABC Удаление элемента из массива записей по заданному номеру https://www.cyberforum.ru/ pascalabc/ thread1719731.html
Массив записей содержит различные типы данных, один из которых это номер, помогите реализовать удаление записи по этому номеру. Спасибо. Добавлено через 10 часов 27 минут Сделал. procedure delstud(var st: arr); var i, num, c: integer; begin clrscr;
Pascal ABC Установить движение фигуры слева направо или сверху вниз и в обратном направлении
Уже готовый прямоугольник он вращается и двигается по синусоиде вдоль экрана,а нужно как в заголовке. uses graphABC; var a,b,h,xc,yc,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5:integer; x,m,u,u1,u2,r:real; begin xc:=windowwidth div 2; //центр экрана yc:=windowheight div 2; a:=30;//стороны прямоугольника b:=15; r:=sqrt(a*a+b*b);//радиус описанной окружности
Pascal ABC Определить интервалы функционального доминирования https://www.cyberforum.ru/ pascalabc/ thread1719711.html
Определить О-сложность заданного алгоритма. (рис.1) Определить интервалы функционального доминирования для заданных функций сложности. (рис.2)
Pascal ABC Найти в каждой строке матрицы наибольшие элементы и поменять их с элементами главной диагонали https://www.cyberforum.ru/ pascalabc/ thread1719669.html
1. Задача - сделать с помощью трёх подпрограмм или двух подпрограмм и одной функции(желательно) программу, которая создаёт матрицу, находит в каждой её строке наибольшие элементы и меняет их с элементами главной диагонали. Я написал: Program lab6; type MS=array of integer; Procedure VD1 ( n:integer; var mas:MS); var i,j:integer; begin Write ('Введите размерность квадратной матрицы: ');
Определить максимальную сумму значений чисел в паре Pascal ABC
Помогите пожалуйста, завтра зачёт, не успеваю сделать. Заранее огромное спасибо Даны n пар чисел: (a1,b1),(a2,b2)...(an,bn). Определить: а)Максимальную сумму значений чисел в паре; б)Минимальное произведение значений чисел в паре.
Pascal ABC Определить, сколько раз встречается "о" в первом слове строки Определить.Сколько раз встречается "о" в первом слове строки Как искать букву во всей строчки я понял,а как в словах строки непонятно. Прошу помощи https://www.cyberforum.ru/ pascalabc/ thread1719640.html
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
28.04.2016, 14:15 0

Сформировать новую строку, в которую включить все слова, длиной не более 4 символов - Pascal ABC - Ответ 9081277

28.04.2016, 14:15. Показов 2411. Ответов 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
var s,s1,s2:string;
    i,n:integer;
begin
 writeln('Введите строку из слов, разделенных пробелами');
 readln(s);
 n:=length(s);
 s1:=''; s2:='';
 i:=1;
 while i<=n do
  begin
   if s[i]<>' '
     then s1:=s1+s[i]
     else begin
       if (s1>'') and (length(s1)<5)
         then s2:=s2+s1+' ';
       s1:='';
       end;
   i:=i+1;
  end;
 if s2=''
   then write('Нет слов из 1..4 символов')
   else write(s2);
end.


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

Сформировать новую строку, в которую включить слова, состоящие только из латинских букв
Здравствуйте! Есть задача: Задан текст, состоящий из слов, записанных через пробелы или...

Сформировать новую строку, в которую включить все символы исходной строки, стоящие на четных местах
Дана строка символов. Сформировать новую строку, в которую включить все символы исходной строки,...

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

Найти слова в исходной строке длиной не более 3-х символов и составить из них новую строку
найти слова в исходной строке длиной не более 3-х символов и составить из них новую строку, ввод...

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

Найти слова в исходной строке длиной не более 3-х символов и составить из них новую строку
найти слова в исходной строке длиной не более 3-х символов и составить из них новую строку, ввод...

Сформировать строку, в которую попадут только те слова, где одинаковые буквы встречаются более 2 раз
Дан текст состоящий не менее чем из 5 слов,сформировать строку,в которую попадут только те слова...

В новый массив собрать все слова с длиной символов 5 и более
Создать два одномерных массива слов.В первый массив собрать все слов с длиной символов 5 и более.Во...

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

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