|
|
| Другие темы раздела | |
|
Turbo Pascal Блок-схема по приведенному коду
https://www.cyberforum.ru/ turbo-pascal/ thread1147038.html Помогите пожалуйста составить блок-схему:cry: Program rgz; const m=5; n=3; Var q:array of integer; i,j,k,t:integer; пойдет? |
Turbo Pascal Поменять местами элементы массива, расположенные в верхнем правом и нижнем левом углах
https://www.cyberforum.ru/ turbo-pascal/ thread1147047.html Дан двухмерный вещественный массив.поменять местами элементы расположенные в верхнем правом и нижнем левом углах Добавлено через 28 секунд помогите volkxan, один вопрос - одна тема. Рекомендую Вам ознакомиться с правилами форума. Для каждого вопроса создаётся отдельная тема, при необходимости привлечь чьё-либо внимание к вновь созданной теме,... |
|
Turbo Pascal Определить минимальный номер строки, состоящей только из чётных элементов
https://www.cyberforum.ru/ turbo-pascal/ thread1147114.html Дан двумерный массив целых чисел. Определить минимальный номер строки, состоящей только из чётных элементов. Принять, что такие строки в массиве есть. |
Заполнить двумерный массив указанным образом Turbo Pascal Заполнить двумерный массив следующим образом: 12 24 ... 120 .................... 2 14 ... 110 1 13 ... 109 uses crt; const m=10; n=12; var a:array of integer; i,j:integer; begin clrscr; for j:=1 to m do for i:=n downto 1 do a:=n-i+(j-1)*n+1; |
|
Turbo Pascal Заполнить двумерный массив размером 7x7 следующим образом
https://www.cyberforum.ru/ turbo-pascal/ thread1147105.html 1001001 0101010 0011100 1111111 0011100 0101010 1001001 Добавлено через 31 секунду помогите Мой вариант.var a: array of byte; i, j: integer; begin for j := 1 to 7 do begin for i := 1 to 7 do begin a := ord((i = j) or (i = 8 - j) or (i = 4) or (j =... |
Turbo Pascal Считать последовательность цифр и преобразовать ее в последовательность соответствующих латинских букв Все что сам смог написать в Паскале Program lit; Var A,N:char; Begin A:=chr(70); N:=A; writeln(ord(N)); Writeln(A); End. var s: string; i: integer; begin s := ''; writeln('Enter ASCII codes, 0 to end:'); repeat write('--> '); readln(i); if i >= ord(' ') then s := s + char(i) |
|
Turbo Pascal Определить, является ли числовая последовательность возрастающей
https://www.cyberforum.ru/ turbo-pascal/ thread1147025.html Дано 12 вещественных чисел. Определить, образуют ли они возрастающую последовательность |
Turbo Pascal Дифференциальное уравнение второго порядка любым методом d2y/dx2+y=0 https://www.cyberforum.ru/ turbo-pascal/ thread1147194.html |
|
Вывести в одну строку все элементы главной диагонали целочисленного массива Turbo Pascal Вывести в одну строку все элементы главной диагонали целочисленного массива,начиная с элемента расположенного в левом верхнем углу(в правом нижнем углу). Помогите Uses crt; Var A:array of integer; i,j,n:integer; Begin ClrScr; Randomize; Write('n='); Readln(n); {ввод размера массива} For i:=1 to n do Begin For j:=1 to n do Begin ... |
Turbo Pascal Вычислить значение выражения
https://www.cyberforum.ru/ turbo-pascal/ thread1147027.html вычислить \sum_{k=1}^{10}\frac{\sum_{n=1}^{k}sin kn}{\large{k!}} uses crt; var i,k,n,f:integer; s1,s:real; begin clrscr; write('n='); readln(n); f:=1; for k:=1 to n do begin |
|
Вычислить интеграл методом средних прямоугольников Turbo Pascal Приближённо вычислить интеграл, используя метод средних прямоугольников при n=100 \int_{a}^{b}f\left( x\right) dx=h\cdot \left где h=\frac{b-a}{n}, \ \ x_k=a+kh- \frac{h}{2} Интеграл: |
Turbo Pascal Ввести 2 целых числа, перебрать в 2 строки, объединить в 1 строку Задали 2 задачи, первую надо решить обязательно, вторую желательно.. 1. Ввести 2 целых числа, перебрать в 2 строки, объединить в 1 строку и вывести на экран. 2. написать прог-му, которая вводит... первая var s1,s2:string; x,y:integer; begin write('Введите первое число: '); readln(x); write('Введите второе число: '); readln(y); str(x,s1); str(y,s2); |
|
0 / 0 / 0
Регистрация: 30.11.2013
Сообщений: 56
|
|
| 0 | |
Описать процедуру, заменяющую в тексте все малые буквы на большие - Turbo Pascal - Ответ 603965013.04.2014, 18:47. Показов 1538. Ответов 2
Метки (Все метки)
Описать процедуру, заменяющую в тексте все малые буквы на большие . В главной программе Дано 2 строки символов S1 и S2. Применить процедуру для строк S1 и S2. Турбо паскаль Вернуться к обсуждению: Описать процедуру, заменяющую в тексте все малые буквы на большие Turbo Pascal
0
|
|
Лучшие ответы (1)
| 13.04.2014, 18:47 | |
|
Готовые ответы и решения:
2
Заменить все малые буквы на большие, а большие на малые. Не используйте встроенную функцию для изменения регистра
|
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
| 13.04.2014, 18:47 | |
|
Помогаю со студенческими работами здесь
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)
|
Наверх