Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Помогите написать прогу Очень нужно реализовать на паскале. https://www.cyberforum.ru/ turbo-pascal/ thread396698.html Найти в массиве первое вхождение отрицательного элемента Turbo Pascal
Задание: Написать программу которая создаёт динам. массив размерность от 1 до 10000 элементов случайным образом и находим в нём первое вхождение отрицательного элемента,если такой имеется, то надо вывести его номер и значение, если такого элемента, то ни чего не пишем. Собственно вот моя программа: uses CRT; var a:array of ^integer; sr,i,n:integer; sc:integer; begin clrscr;...
Turbo Pascal Найдите все простые числа из промежутка (a,b) https://www.cyberforum.ru/ turbo-pascal/ thread396695.html
Здравствуйте. Я только учусь программировать. Запуталась с одной задачкой. Помогите, пожалуйста. Найдите все простые числа из промежутка (a,b).
Turbo Pascal изображение паровоза, движущегося со скоростью, задаваемой генератором случайных чисел https://www.cyberforum.ru/ turbo-pascal/ thread396683.html
Постройте на экране компьютера изображение паровоза, движущегося со скоростью, задаваемой генератором случайных чисел
Turbo Pascal Помогите с файлами!!!
На аптечном складе хранятся лекарства. Сведения о лекарствах содержатся в специальной ведомости: наименование лекарственного препарата, количество, цена, срок хранения ( в месяцах). Выяснить , сколько стоит самый дорогой и самый дешевый препарат, сколько препаратов хранится на складе, какие препараты имеют срок хранения более 3 месяцев, сколько стоят все препараты , хранящиеся на складе. ...
Turbo Pascal определить значения функции y=sqrt(x+a)/2 Функция y=sqrt(x+a)/2 определена на интервале (-3;3). Дельта x=0.1, а вводится с клавиатуры , определить значения функции и вывести их на экран. https://www.cyberforum.ru/ turbo-pascal/ thread396648.html
Turbo Pascal Вставить в массив после первого отрицательного элемента значение -1 https://www.cyberforum.ru/ turbo-pascal/ thread396645.html
Вставить в массив S(N)(N<=50) после первого отрицательного элемента значение -1
Turbo Pascal Найти сумму элементов массива с номерами большими, чем у последнего положительного
Найти сумму элементов массива Т(30) с номерами большими, чем у последнего положительного.
Turbo Pascal Постройте прямоугольный треугольник, вращающийся вокруг своей стороны https://www.cyberforum.ru/ turbo-pascal/ thread396635.html
Постройте на экране компьютера прямоугольный треугольник, вращающийся вокруг своей стороны. интересно как будит выгледить программа
Turbo Pascal Стандартные подпрограммы Graph Создайте программу вывода изображений двух туч. При нажатии клавиши Enter тучи начинают двигаться друг к другу. При столкновении издать звук. https://www.cyberforum.ru/ turbo-pascal/ thread396622.html
Com port и паскаль Turbo Pascal
Здравствуйте дорогие форумчане. Начальство мне на работе поставило задачу, написать небольшую программку которая бы считывала информацию из com порта и записывала бы это все в какой-либо файл, в частности считывала бы входное напряжение с ИБП который подключен к системнику через com порт и записывала бы его хотя бы в текстовый файл, но так как я ни разу ничего подобного с портами не делал то...
Turbo Pascal С погрешностью 0,001 вычислить exp(x) для x = 1,3 Тема. Программирование циклических процессов. С погрешностью 0,001 вычислить\exp (x)=\sum_{n=0}^{\propto }{x}^{n}/n! для x = 1,3. Решение: program expon; const e=0.001; x=1.3; var x, n,: integer; begin for n:=0 to n-1 do begin https://www.cyberforum.ru/ turbo-pascal/ thread396558.html
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
01.12.2011, 21:34 0

Дано предложение. Дано предложение.Определить, есть ли в нем буквосочетания чу или щу - Turbo Pascal - Ответ 2236476

01.12.2011, 21:34. Показов 3094. Ответов 1
Метки (Все метки)

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

Решение

первая
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var s,sc: string;
    i,n: integer;
begin
write('s=');
readln(s);
if (pos('чу',s)=0) and (pos('щу',s)=0) then
   writeln('Буквосочетания отсутствуют') else
   if (pos('чу',s)<pos('щу',s)) and (pos('чу',s)<>0) then writeln('Первое вхождение ',pos('чу',s))
      else writeln('первое вхождение ',pos('щу',s));
      readkey
end.


Вернуться к обсуждению:
Дано предложение. Дано предложение.Определить, есть ли в нем буквосочетания чу или щу Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.12.2011, 21:34
Готовые ответы и решения:

Дано предложение. Определить, есть ли буква а в нем
Дано предложение. Определить, есть ли буква а в нем. В случае положительного ответа найти также...

Дано предложение. Заменить в нем все вхождения буквосочетания про на нет
Дано Предложение. Заменить в нем все вхождения буквосочетания про на нет!

Строки символов. Дано предложение.Заменить в нем все вхождения буквосочетания ах на ух
1)Дано предложение.Заменить в нем все вхождения буквосочетания ах на ух (задача по теме Строки...

Дано предложение. Определить, есть ли в нём буква "а".
Помогите пожалуйста: Дано предложение. Определить, есть ли в нём буква &quot;а&quot;. В случае положительного...

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

Дано предложение. Определить число вхождений в него некоторого буквосочетания
Дано предложение. Определить число вхождений в него некоторого буквосочетания.

дано предложение,вывести все имеющиеся в нем буквосочетания"нн"
помогите пжл!!!!дано предложение,вывести все имеющиеся в нем буквосочетания&quot;нн&quot;

Дано предложение. Заменить в нем каждое третье вхождения буквосочетания 'про' на 'нет'
Дано предложение. Заменить в нем каждое третье вхождения буквосочетания про на нет.

Дано предложение. Определить число вхождений в него некоторого буквосочетания
Дано предложение. Определить: а) число вхождений в него буквосочетания ро; в) число вхождений в...

Дано предложение. Вывести все имеющиеся в нем буквосочетания "нн"
Дано предложение. Вывести все имеющиеся в нем буквосочетания нн. НА JAVA(String)

Дано предложение, вывести все имеющиеся в нем буквосочетания "нн"
надо вывести все буквосочетания нн из предложения

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