Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Перевести с Бейсика на Паскаль две строчки Нужно перевести первые две строчки на Паскаль For x=-1 to 1 step 1 For y=0 to 3 step 1 if x^2*y<0 then U=tan (x) end if if 0<=x^2*y<5 then U=x*sin(y)^2 end if https://www.cyberforum.ru/ pascal/ thread2394462.html Pascal Найти самое длинное слово среди строк, содержащих палиндром
Помогите с задачей, пожалуйста. В текстовом файле требуется найти самое длинное слово среди строк, содержащих палиндром. Напишите код с чтением из текстового файла, т.к. плохо разбираюсь в этой теме.
Pascal Перевести С ++ в паскаль Здравствуйте, нужна помощь в переводе С++ на язык Паскаля) спасибо заранее #include <iostream> #include <stdio.h> #include <math.h> int main() { const int n = 90; int B; int i, S = 0; https://www.cyberforum.ru/ pascal/ thread2394218.html Pascal MAX сумма элементов строк в массиве https://www.cyberforum.ru/ pascal/ thread2394133.html
НЕ складываются отрицательные числа (допустим при вводе массива 3 на 3 заполненного -1 выдаёт в ответе , что максимальная сумма строки = -1 ДОЛЖНО БЫТЬ -3) program P1; uses crt; var n, m:...
Pascal Дано действительное число х .Получить квадратную матрицу порядка n+1
Дано действительное число х .Получить квадратную матрицу порядка n+1.
Pascal Проверка программы https://www.cyberforum.ru/ pascal/ thread2394027.html
Проверьте пожалуйста программу, не пойму, что не так. Program lab10; type TRAIN=record number:integer; destination:string; time:string; end;
Pascal Блок-схема, массив https://www.cyberforum.ru/ pascal/ thread2393997.html
Помогите, пожалуйста, составить блок-схему. В одномерном массиве х (10) найти сумму не положительных, произведение не отрицательных элементов, поменять местами первый и последний элементы. var...
Pascal Имеется 2 типизированных файла x.tip и y.tip содержащих координаты точек (x и y вещественного типа
Имеется 2 типизированных файла x.tip и y.tip содержащих координаты точек (x и y вещественного типа). Если эти файлы содержат одинаковое число величин то прочитать данные из этих файлов, вычислить...
Pascal Определить сколько в строке цифр находящихся по нечётным адресам и найти их сумму В диалоговом режиме организовать ввод строки. Определить сколько в строке цифр находящихся по нечётным адресам и найти их сумму. Вывести результат на экран. https://www.cyberforum.ru/ pascal/ thread2393884.html Pascal В типизированном файле находится матрица записанная по столбцам https://www.cyberforum.ru/ pascal/ thread2393883.html
В типизированном файле находится матрица записанная по столбцам, прочитать элементы этой матрицы, вывести их на экран в виде матрицы, упорядочить все чётные строки матрицы по убыванию....
Pascal В строке вводимой пользователем определить количество цифр находящихся по чётным адресам и вывести и на экран
В строке вводимой пользователем определить количество цифр находящихся по чётным адресам и вывести и на экран, а так же найти произведение данных цифр и вывести результат на экран.
Pascal Проверить правильное расположение скобок в строке В строке, вводимой пользователем, проверить правильное расположение скобок. https://www.cyberforum.ru/ pascal/ thread2393870.html
Почетный модератор
64087 / 47496 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
26.01.2019, 21:19 0

В строке, вводимой пользователем, определить сколько слов в строке, составить новое предложение из чётных слов - Pascal - Ответ 13274707

26.01.2019, 21:19. Показов 1567. Ответов 3
Метки (Все метки)

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

Решение

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
var s,s1,s2,sk,sd:string;
    i,j,k,mn,mx:integer;
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
s:=' '+s; //добавим пробел в начало для удобства
s2:='';
i:=1;
while i<length(s) do//идем по строке
if (s[i]<>' ')and(s[i-1]=' ') then //если не пробел, а перед ним пробел, новое слово
 begin
  s1:='';
  j:=i;
  while(j<=length(s))and(s[j]<>' ') do //составим его
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if length(s1) mod 2=0 then  //если длина четная
  s2:=s2+s1+' ';//в новую строку
  i:=i+length(s1);//перешагиваем через слово
 end
else i:=i+1; //пропускаем пробелы
if s2='' then writeln('В строке нет слов четной длины')
else writeln(s2);
end.


Вернуться к обсуждению:
В строке, вводимой пользователем, определить сколько слов в строке, составить новое предложение из чётных слов Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.01.2019, 21:19
Готовые ответы и решения:

программа для подсчета, сколько N-символьных слов (число N вводится пользователем) содержится во введенной строке символов
нужна программа для подсчета, сколько N-символьных слов (число N вводится пользователем) содержится...

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

Определить, сколько слов в строке начинаются и заканчиваются одной и той же буквой
Решите до завтра.....хотя бы 2 плз

В строке вводимой пользователем определить количество цифр находящихся по чётным адресам и вывести и на экран
В строке вводимой пользователем определить количество цифр находящихся по чётным адресам и вывести...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.01.2019, 21:19

Множества: определить, сколько слов в заданной строке начинается на букву "а"
Здравствуйте, помогите пожалуйста решить задачу : Определить, сколько слов в заданной строке...

Сколько слов в строке имеет четное количество символов, а сколько - нечетное.
в турбопаскале . условие:Введите строку из нескольких слов. Определите, сколько слов в строке...

В строке, вводимой пользователем, найти все скобки и ...
1)В строке, вводимой пользователем, найти все скобки и заменить их на цифру &quot;5&quot;. 2)В строке,...

Задана строка текста длинной не менее 20 символов. Определить, сколько слов, разделенных пробелами имеется в этой строке текста.
Собственно есть задача: Задана строка текста длинной не менее 20 символов. Определить, сколько...

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