Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal ABC Вывести фамилии сотрудников, номера телефонов, которые начинаются с цифр 361,362 или 273 https://www.cyberforum.ru/ pascalabc/ thread1744319.html
Сведения состоят из фамилий сотрудников и их телефонов. Вывести фамилии сотрудников, номера телефонов, которые начинаются с цифр 361,362 или 273. 		Pascal ABC Сформировать структуру данных очередь, элементы которой содержат сведения о времени пребывания i-го покупателя
У прилавка в магазине выстроилась очередь из покупателей (максимальное количество 30). Время обслуживания продавцом i-го покупателя задано случайно, и изменяется в диапазоне от 5 до 15 минут. Сформировать структуру данных очередь, элементы которой содержат сведения о времени пребывания i-го покупателя в очереди. Указать номер покупателя, для обслуживания которого продавцу потребовалось самое...
Pascal ABC Удалить из стека все элементы, кратные 5 https://www.cyberforum.ru/ pascalabc/ thread1744317.html
Создать динамическую структуру – стек, содержащий максимально 50 случайных целочисленных элементов. Упорядочить элементы стека по убыванию. Удалить из стека все элементы, кратные 5. Затем оставшиеся элементы переписать в два стека: в первый четные значения, во второй – нечетные с сохранением относительного порядка их следования. 		Pascal ABC Переставить местами первую и последнюю цифры этого числа https://www.cyberforum.ru/ pascalabc/ thread1744313.html
Дано натурально число n. Переставить местами первую и последнюю цифры этого числа. В программе использовать любой цикл
Pascal ABC Найти сумму первой и последней цифры числа
Дано натуральное число n. Найти сумму первой и последней цифры этого числа. В программе использовать case 		Pascal ABC Заменить в файле все элементы, равные lit, на пробел Люди добрые помогите пожалуйста) Задан текстовой файл и некоторая литера lit. Написать программу, которая заменяет в файле все элементы, равные lit, на пробел. есть кое-какие наработки, Program lab08; Var f:file of char; s:char; i:integer; m:string; https://www.cyberforum.ru/ pascalabc/ thread1744090.html
Pascal ABC Операция 'and' не применима к типу KeyValuePair<real,integer> Показывает ошибку "Операция 'and' не применима к типу KeyValuePair<real,integer>" VAR X, X1, Y1, Y : REAL; begin WRITELN ( ‘ВВЕДИ X:’); READLN (X); Y:= EXP ((-X+1)*LN (3) ) * SIN (X); WRITELN (‘ При Х=’, X: 8:3, ‘Y=’, Y: 8:4); WRITELN (‘ Y11=’, TRUNC (Y): 4, ‘Y22=’, ROUND (Y): 4); WRITELN (‘ВВЕДИ КООРДИНАТЫ: Х1, Y1’); https://www.cyberforum.ru/ pascalabc/ thread1744082.html Найти максимальные элементы в каждом столбце матрицы и записать их в последнюю строку матрицы Pascal ABC
C клавиатуры вводится матрица n*m 1.найти максимальные элементы в каждом столбце матрицы и записать их в последнюю строку матрицы . 2.найти сумму чисел кратным трем в каждой строке матрицы и записать эту сумму в последний столбец . 3.с клавиатуры вводится номер столбца упорядочить по убыванию элементы в этом столбце.
Pascal ABC Получить гистограмму длин строк файла Заданный текстовый файл. Получить гистограмму длин строк этого файла. вот что мне удалось написать. program fajly; var f:text; a:array of string; len:array of integer; max,i,n,m,j:integer; begin assign(f,'f.txt'); rewrite(f); readln(n); close(f); reset(f); https://www.cyberforum.ru/ pascalabc/ thread1744012.html Pascal ABC Найти сумму элементов главной диагонали матрицы Дан двумерный массив n*m. Найти сумму элементов главной диагонали при n=m. https://www.cyberforum.ru/ pascalabc/ thread1743870.html
Написать программу, которая находит максимальное значение и умножает его на минимальное значение Pascal ABC
Дан двумерный массив, размером n*m. Написать программу, которая находит максимальное значение и умножает его на минимальное значение. 		Pascal ABC Составить программу, которая находит сумму четных элементов массива Дан двумерный массив от 1 до n. Составить программу ,которая находит сумму четных элементов массива. https://www.cyberforum.ru/ pascalabc/ thread1743868.html
0 / 0 / 0
Регистрация: 15.11.2015
Сообщений: 36
0

Вывести только те слова из предложения в которых есть буквосочетание 'ни' - Pascal ABC - Ответ 9183869

24.05.2016, 19:00. Показов 896. Ответов 0
Метки (Все метки)
Студворк — интернет-сервис помощи студентам
Вводится произвольное предложение , слова разделены пробелами после последнего точка. Вывести только те слова из этого предложения в которых есть буквосочетание 'ни'.
Исправьте пожалуйста:
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
  st: string;
  st2: array [1..130] of string;
  k, ns, b, l, i, y: integer;
 
begin
  readln(st);
  st := ' ' + st;
  l := length(st);
  for i := 1 to l - 1 do 
  begin
    if (st[i] = ' ') and (st[i + 1] <> ' ') then ns := i + 1;
    if (st[i] <> ' ') and ((st[i + 1] = ' ') or (st[i + 1] = '.')) then k := k + 1;
    st2[k] := copy(st, ns, i - ns + 1);
  end;
  for i := 1 to k do 
  begin
    b := 0;
    for y := 1 to length(st2[i]) do
      if (St2[i][y] = 'ни') then b := b + 1;
    if (i = k) and (b = 1) or (b > 1) then write(st2[i]);
  end;
end.


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

Вывести только те слова из предложения, в которых буква 'а' встречается только(ровно) 2 раза
Вводится произвольное предложение, слова в котором разделены пробелами, после последнего точка....

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

Вывести слова из предложения, в которых есть буква, встречающийся четыре и более раз
Задачка по С++. С клавиатуры ввести предложения. Напечатать те слова из введенного предложения, в...

Строка: Вывести слова предложения, префикс которых есть одним из слов 'a','ab','abc'.
Дано массив слов , в каждному слове от 1 до 8 малых латинских букв.вывести те слова префикс которых...

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

Вывести все слова, в которых встречается заданное буквосочетание
Дан текст, слова в котором разделены одинарным символом пробела (символ «–» в тексте отсутствует)....

Вывести только те слова строки, в которых есть и буквы и цифры
Задача написать программу которая получает строку а выводит только те слова в которых есть и буквы...

Ввести строку, ввести слово. Вывести из строки только те слова, в которых есть хоть одна буква из введённого слова
Здравствуйте, товарищи программисты. Я не смогла смириться с поражением и это снова привело меня к...

Прочитать текст из файла и вывести в другой файл только те строки, в которых есть слова, начинающиеся с буквы А
Прочитать текст из файла и вывести в другой файл только те строки, в которых есть слова,...

Прочитать текст из файла и вывести в другой файл только те строки, в которых есть слова, начинающиеся с буквы М
Прочитать текст из файла и вывести в другой файл только те строки, в которых есть слова,...

Даны два предложения. Напечатать слова, которые есть только в одном!
Даны два предложения. Напечатать слова, которые есть только в одном! Из них (из них в том числе...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru