|
|
| Другие темы раздела | |
| Turbo Pascal В соответствие с заданным вариантом исходных данных разработать алгоритм сканера Всем Доброго Времени суток. Помогите закончить программу..я вроде начал а дальше что то запутался.. Задание-В соответствие с заданным вариантом исходных данных разработать алгоритм сканера. Ключевые слова-PROGRAM, INPUT, OUTPUT, VAR, INTEGER, BEGIN, IF, THEN, ELSE. Служебные знаки-«:», «,», «;», «:=», «<», «>», «(», «)». Другие лексемы-идентификаторы с количеством сим-волов не более 5.... https://www.cyberforum.ru/ turbo-pascal/ thread1252102.html |
Turbo Pascal Составить определение заданного понятия в БНФ Доброго времени Суток.. Такое хитрое задание,сижу ломаю голову но ничего не выходит.. Само задание: Составить определение заданного понятия в БНФ. Подмножество языка Pascal. Допускается: – в описаниях – переменные целого типа; – в операторной части – оператор присваивания и оператор IF ... THEN. Заранее спасибо. |
| Turbo Pascal В случайном множестве точек соединить прямой линией две наиболее удаленные друг от друга Поисковая система показала мне одну программу, решающую нечто подобное. Я был удивлён. Судя по всему там был создан массив от массива (если я что-то понял). Я не понял, как это делается и как с ним обращаться? Задача. Задано 20 случайных точек. Надо определить две из них, наиболее удаленные друг от друга. И эти точки соединить прямой линией. Поскольку точки плохо смотрятся, я нарисовал... https://www.cyberforum.ru/ turbo-pascal/ thread1252026.html | Turbo Pascal Можно ли считатать запись (record) прообразом класса ООП? program zapisi; type zapis = record den, mes : byte; god : word; end; var a, b : zapis; begin readln(a.den); https://www.cyberforum.ru/ turbo-pascal/ thread1251846.html |
|
Признак того что точка принадлежит треугольнику Turbo Pascal Треугольник и точка задаются рандомно своими координатами. Программа работает нестабильно. В половине случаев Паскаль выдаёт ошибку: runtime error 215, указывая при этом на функцию s() . Есть к этой программе ещё один вопрос. Как позиционировать функцию OutText()? Оператор writeln на неё не действует ... Program O; |
Turbo Pascal Упростить программу, в матрице ищется элемент наиболее часто повторяющийся
https://www.cyberforum.ru/ turbo-pascal/ thread1251633.html Дана квадратная матрица состоящая из натуральных чисел. Требуется найти элемент матрицы, который встречается чаще всего. После этого все остальные элементы обнуляются Если в матрице есть два и более элементов в равных количествах, то они остаются в исходной матрице. Я подумал, что задачу можно решить проще. Тут пришла в голову вздорная мысль: а что если сначала провести сортировку... |
| Turbo Pascal Переправа на другой берег Туристы(отец, мать,2 сына) должны переправиться через реку. В их распоряжении есть маленькая лодка, которая вмещает только одного взрослого или двоих детей. Как организовать переправу, если и взрослые и дети умеют грести? Алгоритм решения есть: Сначало 2 брата садятся в лодку и переплывают на другой берег, один брат остаётся на берегу, другой возращается к отцу и матери. Потом в лодку садится... https://www.cyberforum.ru/ turbo-pascal/ thread1251436.html |
Turbo Pascal Обращение к массиву не через переменную, а через константу. Возможно ли? Интересно не ради практики, но принципа. Матрица объявляeтся как пользовательский тип. type matrix : array of byte; var a : matrix; Если же захотеть представить массив константой, то сложность возникнет от того, что в константе не указан тип. Но все же хотельсь бы нечто такое осуществить : program matrix_const; |
|
Turbo Pascal Ошибка "Error 10: Unexpected end of file"
https://www.cyberforum.ru/ turbo-pascal/ thread1251323.html Помогите отредактировать программу, выдает ошибку error 10 type kind = (student, professor); men = record fio: string; address: string; sex: char; case member: kind of student: (spec: string; |
Turbo Pascal Составить программу вычисления значения функции при любом значении а x=\sqrt{\frac{(2a+\sin \left|3a \right|)}{3,56}} https://www.cyberforum.ru/ turbo-pascal/ thread1251288.html |
|
Вычислить значение выражения Turbo Pascal а) x=\arccos(\sqrt{\beta \gamma} - \alpha) б) y=\begin{cases}2a+b & \text{ if } x\leq 2; \\ 2a-b & \text{ if } x>2. \end{cases} |
Turbo Pascal Преобразовать квадратную матрицу в треугольную: можно ли это сделать минуя линейный массив?
https://www.cyberforum.ru/ turbo-pascal/ thread1251221.html Дана квадратная матрица. Требуется преобразовать ее в матрицу треугольного вида. Иными словами, переписать ее, строка за строкой. Нулевые элементы не принадлежащие матрице на экран не выносить. Program O; uses Crt; const n = 7; type |
|
0 / 0 / 0
Регистрация: 07.09.2014
Сообщений: 2
|
|
| 07.09.2014, 09:50 [ТС] | 0 |
Удалить все буквы "а" предшествующие первой запятой, а все буквы "q" после первой запятой заменить на "!" - Turbo Pascal - Ответ 658336207.09.2014, 09:50. Показов 1897. Ответов 2
Метки (Все метки)
Ответ
Спасибо огромное, все получилось!))
Вернуться к обсуждению: Удалить все буквы "а" предшествующие первой запятой, а все буквы "q" после первой запятой заменить на "!" Turbo Pascal
0
|
|
| 07.09.2014, 09:50 | |
|
Готовые ответы и решения:
2
Удалить все буквы А из расположенных перед первой запятой Удалить все запятые, предшествующие первой точке и заменить символом + все цифры 3, встречающиеся после первой точки Ввести строку. Удалить все пробелы до первой запятой, а после нее заменить каждую точку многоточием
Напечатать все символы предшествующие первой запятой |
| 07.09.2014, 09:50 | |
| 07.09.2014, 09:50 | |
|
Помогаю со студенческими работами здесь
0
Дано предложение. Напечатать все его символы, предшествующие первой запятой Дано предложение. Напечатать все его символы, предшествующие первой запятой.
Все символы, расположенные после первой запятой, заменить на символ с кодом большим на 2 |