![]() |
|
Другие темы раздела | |
Turbo Pascal В список кодв вставить коды наиболее используемых псевдографических символов В список, состоящий из кодов разделительных символов, вставить (произвольно) коды ниболее часто используемых псевдографическх символов (количество символов выбрать самостоятельно). https://www.cyberforum.ru/ turbo-pascal/ thread395027.html |
Turbo Pascal Арифметичесская сумма
https://www.cyberforum.ru/ turbo-pascal/ thread395045.html Здравствуйте,есть вот такой пример подскажите как его решить?? Меня скорей интересует как пощитать ту сумму,а не весь пример? |
Turbo Pascal Среди чисел найти первое число, большее n Среди чисел найти первое число, большее n Вот основной кусок кода: write('n: '); readln(n); for i:=1 to NUMBERS_COUNT do if a > n then Begin writeln('1-е число больше n = ',a); break; End; https://www.cyberforum.ru/ turbo-pascal/ thread395016.html |
Вывести на экран сначала элементы массива, стоящие на четных местах, затем на нечетных Turbo Pascal ВЫвести элементы массива в обратном порядке Добавлено через 2 минуты Дан массив. Вывести на экран сначала его элементы, стоящие на четных местах, затем на нечетных ВЫвести элементы массива в обратном порядке uses crt; var a,b:array of integer; i:integer; begin clrscr; Writeln('Èñõîäíûé ìàññèâ: '); |
Turbo Pascal сформировать 2 новых массива. Добрый вечер многоуважаемые программисты, прошу помочь мне. не знаю как решить следующую задачу. Задача:Вывести 1-мерный массив А целого типа Сформировать два новых массива В и С переписав в массив... uses crt; var a,b,c: array of integer; n,i,k,l: integer; begin write('Укажите размер массива'); readln(n); k:=1;l:=1; writeln('Массив А'); for i:=1 to n do begin https://www.cyberforum.ru/ turbo-pascal/ thread395109.html | Turbo Pascal Найти произведение четных элементов массива дан одномерный массив Y(n); n=10. Сформировать массив X из элементов массива Y расположенных после максимального. Найти произведение четных элементов массива Y. Использовать различные операторы цикла. const n=10; type arr=array of integer; var y,x:arr; i,j,imax:integer; p:longint; isX,isP:boolean; begin https://www.cyberforum.ru/ turbo-pascal/ thread395113.html |
Turbo Pascal Помогите с решение задачи. даны числа А1,В1,С1,А2,В2,С2. НАпечатать координаты точек пересечения прямых: А1х+В1у=С1 и А2х+В2у=С2, либо сообщить,что прямые совпадают,не пересекаются или вовсе отсутствуют. Будьте так любезны..:( https://www.cyberforum.ru/ turbo-pascal/ thread395107.html |
Turbo Pascal Составьте программу которая будет вращать круг относительно начала координат То есть должно получится, что круг будет вращаться по кругу :) Изначальное положение точки центра круга в точке(0,1) радиус постоянен. делаем цикл (к сожалению не помню функций рисования в turbo paskale, поэтому буду делать в общем виде) x:=0; y:=1; while... |
Turbo Pascal одномерный массив. Начало изучения. Сортировать каждый второй элемент массива в порядке возрастания значений. блок сортировки: ... for i:=1 to n-1 do for j:=1 to n-i do if x>x then begin k:=x; Вот алгоритм сортировки for i:=1 to n-1 do for j:=i+1 to n do if (i mod 2 = 0) and (j mod 2 = 0) and (a > a) then Begin swap:=a; a:=a; a:=swap; End; https://www.cyberforum.ru/ turbo-pascal/ thread394997.html |
Turbo Pascal Найти все трехзначные простые числа
https://www.cyberforum.ru/ turbo-pascal/ thread395025.html Найти все трехзначные простые числа(простым считается натуральное число, большее 1, не имеющее других делителей, кроме единицы и самого себя) Через оператор цикла procedure resheto(n : longint); var b, i : longint; begin fillchar(p, sizeof(p), true); //устанавливаем все значения = true p := false; for b := 2 to n do... |
Turbo Pascal сделать программу которая найдёт неизвестные x1 и x3 сделать программу которая найдёт неизвестные x1 и x3 методом Гаусса — Жордана. r, V-вводятся с клавиатуры x1-x3=V1/r2+V2/r1 x3 -x1=V3/r5-V2/r1+V4/r4 помогите пожалуйста |
Turbo Pascal Переместить последний отрицательный элемент массива на первое место Задан одномерный массив a, переместить последний отрицательный элемент массива на первое место, сдвинув соответственно остальные элементы массива Помогите пожалуйста решить данную задачу, понимаю,... const n=10; var a:array of integer; i:integer; begin for i:=1 to n do begin a:=random(2); https://www.cyberforum.ru/ turbo-pascal/ thread395059.html |
![]() 1 / 1 / 1
Регистрация: 06.02.2011
Сообщений: 76
|
|
0 | |
Вывести все гласные буквы встречающиеся в тексте в алфавитном порядке - Turbo Pascal - Ответ 222855829.11.2011, 22:15. Показов 2793. Ответов 1
Метки (Все метки)
дан текст за которым следует точка. вывести все гласные буквы встречающиеся в тексте в алфавитном порядке, помогите пожалуйста
Вернуться к обсуждению: Вывести все гласные буквы встречающиеся в тексте в алфавитном порядке Turbo Pascal
0
|
29.11.2011, 22:15 | |
Готовые ответы и решения:
1
Вывести на экран все буквы, встречающиеся в строке, в алфавитном порядке |
29.11.2011, 22:15 | |
Помогаю со студенческими работами здесь
0
Перечислить в алфавитном порядке все слова, встречающиеся в этом тексте.
Напечатать в алфавитном порядке все гласные буквы, входящие в строку
|
Новые блоги и статьи
![]() |
||||
Исследование байт-кода Python: подключаем дизассемблер
stackOverflow 19.02.2025
Многие знают, что Python - интерпретируемый язык, но мало кто задумывается о том, что происходит между написанием кода и его выполнением. На самом деле Python использует промежуточное представление. . .
|
Исследование байт-кода Python: компиляторы против интерпретаторов
stackOverflow 19.02.2025
Понимание байт-кода Python - основополагающий аспект для разработчиков, стремящихся глубже понять внутренние механизмы языка и оптимизировать производительность своих программ. Байт-код представляет. . .
|
Comprehensions в Python - что это такое?
stackOverflow 19.02.2025
Когда речь заходит о Python, одной из его самых красивых и мощных возможностей являются списковые включения или comprehensions. Это особые синтаксические конструкции, позволяющие создавать новые. . .
|
Python правда такой медленный? Развенчиваем миф о медлительности
stackOverflow 19.02.2025
Когда речь заходит о выборе языка программирования для нового проекта, вопрос производительности часто становится одним из ключевых факторов. Python, несмотря на свою популярность и простоту. . .
|
Динамические формы в Flask
stackOverflow 19.02.2025
Работа с веб-формами часто требует гибкости в отношении количества полей, которые пользователь может заполнить. Представьте ситуацию, когда вам нужно создать форму для ввода контактных данных, где у. . .
|
Обнаружение объектов в реальном времени на Raspberry Pi с OpenCV и Movidius NCS
stackOverflow 19.02.2025
Технология обнаружения объектов в реальном времени становится все более востребованной в различных областях - от систем безопасности до автономных транспортных средств. Особый интерес представляет. . .
|
где chromium хранит пароли и как их обнулить в пожарном варианте
jigi33 19.02.2025
Where is the chromium browser stores passwords for a sites
где chromium-подобный браузер хранит пароли и как их обнулить в пожарном варианте
(see screenshot)
|
howto get access to external internet resources with kinit
jigi33 19.02.2025
Решение проблемы с необходимостью доп. авторизации по Керберос для автоотработки аутентификации на прокси-сервер
(see screenshot)
|
Отслеживание автомобилей и определение скорости с OpenCV и Python на Raspberry Pi
stackOverflow 19.02.2025
В этой статье мы рассмотрим создание системы отслеживания транспортных средств и определения их скорости с использованием компьютерного зрения и библиотеки OpenCV. Наше решение основано на принципе. . .
|
ENV (environments) valid paths in linux
jigi33 19.02.2025
Environments paths
(see screenshot)
|