![]() |
|
Другие темы раздела | |
Turbo Pascal Шифр Цезаря предложите более быстрый алгоритм
https://www.cyberforum.ru/ turbo-pascal/ thread694749.html Так-с, задачу-то я решил, но мне интересно, есть ли более шустрые варианты. Кто не знает, что такое шифр Цезаря: есть символ - буква, есть ключ - число. Надо выдать символ, который находится в... |
Составьте программу, складывающую две обыкновенные дроби Turbo Pascal Помогите, пожалуйста, Составить программу, складывающую две обыкновенные дроби. Только сокращать самому придётся. program Project2; uses crt; var a1, a2, b1, b2, c1, c2: Integer; begin Writeln ('Enter the numerator of the first fraction: '); Readln(a1); |
Turbo Pascal Определить, какой элемент – максимальный или первый нулевой– стоит ближе к началу массива Вообщем нужно написать программу, которая должна определять, какой элемент – максимальный или первый нулевой (по порядку расположения в массиве) – стоит ближе к началу массива. Очень нужна помощь.... uses crt; const n=20; var a: array of byte; i,imax,inul: byte; begin imax:=1; inul:=0; for i:=1 to n do begin a:=random(7); https://www.cyberforum.ru/ turbo-pascal/ thread694458.html | Turbo Pascal Найти сумму и произведение всех элементов одномерного массива, больших заданного числа Найти сумму и произведение всех элементов одномерного массива, больших заданного числа. writeln('Введите число для сравнения'); readln(t); for i:=1 to n do readln(mas); ввожу 20 https://www.cyberforum.ru/ turbo-pascal/ thread694652.html |
Turbo Pascal Найти количество цифр данного числа, больших А 1.Дано натуральное число: -найти количество цифр данного числа, больших А(А вводится с клавиатуры); -верно ли, что данное число принадлежит промежутку от А до В и кратно 3, 4 и 5 (А и В вводятся с... 1) uses crt; var n:longint; a,k:byte; begin clrscr; repeat write('Введите натуральное число n='); readln(n); until n>0; |
Turbo Pascal Дана последовательность из n целых чисел. Найти номер максимального элемента последовательности Условие: Дана последовательность из n целых чисел. Найти номер максимального элемента последовательности. Вот что у меня получилось.. Program Kovtun_laba3_1; uses crt; var ... Rinse, да у вас почти все правильно, только 1) вместо первого элемента вы снова считываете n, в итого меняется число элементов последовательности, а максимальный элемент остается нулевым 2)... |
Turbo Pascal Перевести задачу из функции на процедуру uses crt; var a,b,c,d,e,f,g,M:real; function Sl(x,y,z:real):real; var p:real; begin p:=(x+y+z)/2; sl:=sqrt(p*(p-x)*(p-y)*(p-z)); end; uses crt; var a,b,c,d,e,f,g,pl1,pl2,pl3,M:real; procedure Sl(x,y,z:real; var pl: real); var p: real; begin p:=(x+y+z)/2; pl:=sqrt(p*(p-x)*(p-y)*(p-z)); end; https://www.cyberforum.ru/ turbo-pascal/ thread694539.html |
Turbo Pascal Реализовать в виде модуля набор подпрограмм для выполнения операций над числами в двоичной системе счисления Необходимо реализовать в виде модуля набор подпрограмм для выполнения следующих операций над натуральными числами в двоичной системе счисления: 1) сложения; 2) деления; 3) умножения; 4) функций,... |
Процедуры или функции: Найти все простые числа,лежащие в заданном диапазоне и их сумму Turbo Pascal Пользователь вводит два натуральных числа. Найти все простые числа,лежащие между ними и их сумму. Использовать процедуры или функции. uses crt; function Prost(n:longint):boolean; var i:longint; f:boolean; begin if n<2 then f:=false else begin f:=true; i:=2; |
Turbo Pascal Треугольник задан координатами своих вершин. Составить программу для вычисления его площади
https://www.cyberforum.ru/ turbo-pascal/ thread694745.html Треугольник задан координатами своих вершин.Составить программу для вычисления его площади Нужно с использованием основных операторов для организации работы с подпрограммами-процедурами. Помогите... остался один штришок program test; var x1,x2,x3,y1,y2,y3,s,a,b,c,p:real; procedure dlina(q,w,e,r:real; var d:real); begin d:=sqrt(sqr(q-w)+sqr(e-r)); end; begin readln(x1,x2,x3,y1,y2,y3);... |
Turbo Pascal Разработать библиотечный модуль из ранее созданных программ. Составить программу, вызывающую процедуры и функции созданного модуля
https://www.cyberforum.ru/ turbo-pascal/ thread694590.html Пытался сделать сам, но нечего из этого не получилось.... Разработать библиотечный модуль из ранее созданных программ. Составить программу, вызывающую процедуры и функции созданного модуля. Вот... Вроде сделал проверьте работает или нет: Модуль: unit lb9; interface Type mas=array of integer; mass=array of integer; var p:mas; q:mass; function z1:real; function z2:integer; |
Заменить нулями элементы массива между минимальным и максимальным, кроме их самих Turbo Pascal Заменить нулями элементы массива между минимальным и максимальным, кроме их самих. Вот похожая задача думаю переделать не проблема.... https://www.cyberforum.ru/turbo-pascal/thread410410.html |
Почетный модератор
![]() 7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
|
||||||
11.11.2012, 18:36 | 0 | |||||
Дана строка с несколькими запятыми. Получить слово между первой и второй запятыми - Turbo Pascal - Ответ 368374011.11.2012, 18:36. Показов 3104. Ответов 2
Метки (Все метки)
![]() Решение
Вернуться к обсуждению: Дана строка с несколькими запятыми. Получить слово между первой и второй запятыми Turbo Pascal
0
|
11.11.2012, 18:36 | |
Готовые ответы и решения:
2
Удалить из предложения все символы, расположенные между первой и второй запятыми
|
11.11.2012, 18:36 | |
Помогаю со студенческими работами здесь
0
Regex: получить подстроки между запятыми
|
Новые блоги и статьи
![]() |
||||
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
|
Создаем REST API в Laravel с аутентификацией через Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
|
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
|
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
|
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
|
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
|
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
|
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
|
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
|
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
|