Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Построить и напечатать множество, элементами которого являются встречающиеся в строке Дана непустая строка символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в строке: буквы от ‘а ‘ до ‘ж’ и цифры от ‘4’ до ‘9’ https://www.cyberforum.ru/ pascalabc/ thread1269286.html Pascal ABC Вывести сумму денег, получаемую авиакомпанией от продажи билетов на рейс
Три четверти пассажиров самолета имеют билеты второго класса стоимостью Х рублей каждый. Остальные пассажиры имеют билеты первого класса, которые стоят в два раза дороже билетов второго класса. Напишите программу которая выведет сумму денег ,получаемую авиакомпанией от продажи билетов на этот рейс, если салон самолета рассчитан на V пассажиров. помогите пожалуйста в программировании 0
Pascal ABC Заданы радиус основания и высота цилиндра. Вычислить площадь основания и объем заданы радиус основания и высота цилиндра. вычислить площадь основания и объем. площадь основания вычисляется по формуле. объем цилиндра равен v=s*h https://www.cyberforum.ru/ pascalabc/ thread1269220.html Pascal ABC Составить программу которая определяет сколько времени в минутах потратит школьник составить программу которая определяет сколько времени в минутах потратит школьник на дорогу из школы до стадиона если известна длина этого расстояния S км и средняя скорость движения школьника v км\ч https://www.cyberforum.ru/ pascalabc/ thread1269198.html
Найти по формуле последовательность элементов массива Pascal ABC
Помогите с задачкой пожалуйста. При заданных элементах массива X: X1,X2,Xn,Xn+1; Найти по формуле Yk=XkXk+1, последовательность элементов массива Y:Y1,Y2,.....,Yn
Pascal ABC Написать программу, которая в двоичном представлении символов английского алфавита инвертирует все биты написать программу, которая в двоичном представлении символов английского алфавита инвертирует все биты, выводит полученные коды и соответствующие им символым коды https://www.cyberforum.ru/ pascalabc/ thread1269112.html
Pascal ABC Нарисовать звезду, используя линии Добрый день! Надо нарисовать звезду. Используя линии. Как сделать чтобы эта звезда стала в 5 раз меньше ? SetBrushColor(clYellow); Line(290, 111, 240, 190); Line(240, 190, 171, 190); Line(170, 190, 241, 250); https://www.cyberforum.ru/ pascalabc/ thread1269078.html Реализовать формальный язык в паскале Pascal ABC
Здравствуйте, вот какое задание L(G)={ab.b | a принадлежит {+, -}, b принадлежит {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}+} насколько я понял, нужно вводить любые символы, а программа должна искать нужные и выводить их в таком виде ab.b. Т.е из строки sdfkjherg2344sjdf+1233 должно выводиться +1.1 вот текст моей проги которую написал, к сожалению после запуска ничего не происходит . program laba1;...
Pascal ABC Написать программу вычисления суммы факториалов всех чётных чисел от 2 до 8 Решить задачу, используя процедуру и функцию Написать программу вычисления суммы факториалов всех чётных чисел от 2 до 8. с помощью функции нашел как делается Program faktroial; var i,m,n,s:integer; function f(x:integer):integer; var k:integer; begin k:=1; https://www.cyberforum.ru/ pascalabc/ thread1269044.html Pascal ABC Из внешнего файла, содержащего исходные данные, переписать в другой список абитуриентов, сдавших экзамены Тема: Текстовые файлы Задание. Из внешнего файла, содержащего исходные данные, переписать в другой список абитуриентов, сдавших экзамены с 2-мя оценками 4 и остальными оценками 5. делал подобное задания по теме: Обработка файловых структур данных type abit=record fam:string; ocen:array of integer; end; var f:file of abit; https://www.cyberforum.ru/ pascalabc/ thread1269016.html
Количество чисел, меньших заданного H и лежащих ниже главной диагонали матрицы Pascal ABC
Program matrica; var N, i, j, p:integer; a: array of integer; begin writeln ('Введите количество строк и столбцов'); readln (N); writeln ('Введите значения элементов матрицы'); for j:=1 to N do for i:=1to N do
Pascal ABC Найти элементы, которых нет одновременно во всех трех массивах https://www.cyberforum.ru/ pascalabc/ thread1268907.html
Даны три одномерных массива из целых чисел. Найти элементы, которых нет одновременно во всех трех массивах.
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
06.10.2014, 12:53 0

Вывести на экран слова, содержащие одновременно буквы ‘а’ и ’о’ - Pascal ABC - Ответ 6686627

06.10.2014, 12:53. Показов 2594. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Var
  St    : String;
  n1,n2 : Byte;
Begin
  St:='  Закономерность - это проявление      закона   на   поверхности   явлений   в    виде    правильной    повторяемости       явлений     при    определенных    условиях.  Строка закончилась.';
  While Pos('  ',St)<>0 do Delete(St,Pos('  ',St),1);
  n1:=1;
  While (n1<Length(St)) and (St[n1]<>'.') do
  Begin
    If St[n1]=' ' then Inc(n1) else
      Begin
        n2:=n1+1;
        While (n2<Length(St)) and (not (St[n2] in [' ','.'])) do Inc(n2);
        If (Pos('а',Copy(St,n1,n2-n1))<>0) and (Pos('о',Copy(St,n1,n2-n1))<>0) then Writeln(Copy(St,n1,n2-n1));
        If St[n2]='.' then Halt;
        n1:=n2;
      end;
  end;
end.


Вернуться к обсуждению:
Вывести на экран слова, содержащие одновременно буквы ‘а’ и ’о’ Pascal ABC
1
Заказать работу у эксперта

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.10.2014, 12:53
Готовые ответы и решения:

Вывести на экран слова, содержащие 3 буквы
Ввести строку, содержащую текст с точками. В тексте до второй точки посчитать количество и вывести...

Вывести на экран слова, содержащие три буквы
дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три...

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

Вывести на экран слова, содержащие три буквы
1.Дана строка. Подсчитать количество букв k в последнем ее слове. 2.Дана строка, содержащая текст,...

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

Вывести на экран слова, содержащие три буквы, и подсчитать их количество
Здравствуйте!!! Помогите пожалуйста решить задачи!(( 2)дана строка, состоящая из...

Ввести строку Вывести на экран слова, содержащие три буквы
2.Ввести строку. Вывести на экран слова, содержащие три буквы.

Дана строка содержащая текст заканчивающийся точкой. Вывести на экран слова содержащие 3 буквы
Дана строка содержащая текст заканчивающийся точкой. Вывести на экран слова содержащие 3 буквы. ...

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

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