|
|
| Другие темы раздела | |
|
Turbo Pascal Задача на операции в массиве
https://www.cyberforum.ru/ turbo-pascal/ thread2533489.html Ввести массив A(n). Если в массиве все элементы не образуют возрастающую последовательность, то заменить все отрицательные элементы на 99, иначе - удвоить все элементы. |
Turbo Pascal Накопление сумм и произведений Помогите с заданием:3 Составить циклический алгоритм и программу для вычисления результата по формуле. Для проверки программы X=0,5; n=20. Формула: (x^2+sqrt{x})(sum_{n}^{k=1})* (x^(k-1))/(|ln(kx^2)|+2/3) Надеюсь все понятно в формуле написал:D Добавлено через 36 минут Блин. Там на корне степень 3, а в сумме k=1 |
| Turbo Pascal в паскаль Задача А: Написати програму яка створює файл, що містить інформацію про розклад телепрограм на день. Структура запису: назва програми, час початку програми, час закінчення програми. Задача В: Написати програму, яка дозволяє отримати наступну інформацію: — усю програму телепередач на день; — по введеному з клавіатури часу видати назву програми, котра буде транслюватися в цей час; — назву самої... https://www.cyberforum.ru/ turbo-pascal/ thread2533082.html | Turbo Pascal Найти в строке D число Y, и увеличить его в 3 раза Найти в строке D число Y, и увеличить его в 3 раза, а результат записать в строку D вместо числа Y. Вывести на экран символьную строку до и после изменения. https://www.cyberforum.ru/ turbo-pascal/ thread2533014.html |
|
Turbo Pascal Задачка на if else if Условия примера во вложении. Хочу понять, что я делаю не так? program lab4_1; var x,y:real; begin writeln('Введите x'); readln(x); if x<6 then Write('y= ',(3x-10)*(x+6)); else if x>6 then Write('y= ',(3x-10)/(x-6)); end. |
Turbo Pascal Разработать программу ведения телефонного справочника
https://www.cyberforum.ru/ turbo-pascal/ thread2532439.html Разработать программу ведения телефонного справочника, снабдить программу меню: * дополнить справочник информацией о новом пользователе * изменить номер телефона конкретного абонента * создать справочник * поиск по имени * определить номер телефона по фамилии абонента |
|
Turbo Pascal Дан график. Определите, лежит ли точка Z с координатами (икс;игрек) внутри заштрихованной фигуры?
https://www.cyberforum.ru/ turbo-pascal/ thread2532059.html Дан график. Определите, лежит ли точка Z с координатами (х;y) внутри заштрихованной фигуры? (и блок-схема, пожалуйста) |
Дана таблица А(6,4). Сформировать линейную таблицу В, где В(строка)-значение первого по порядку положительного элемента Turbo Pascal Дана таблица А(6,4). Сформировать линейную таблицу В, где В(Строка) - значение первого по порядку положительного элемента строки таблицы А. Помогите сформировать B. Заранее, премного благодарен. |
| Turbo Pascal Ввести произвольную последовательность чисел. Упорядочить последовательность в порядке возрастания Ввести произвольную последовательность чисел. Упорядочить с помощью процедуры последовательность в порядке возрастания. Пишет встречено '.', a ожидалось ';'. Помогите пожалуйста. var i, n: integer; mas: array of real; procedure sort(l :integer; k: real ); begin for l := 1 to n-1 do for i := 0 to n-l-1 do if mas > mas then begin https://www.cyberforum.ru/ turbo-pascal/ thread2531552.html |
Turbo Pascal Итерационные циклы. уточнение корней уравнений методом половинного деления.
https://www.cyberforum.ru/ turbo-pascal/ thread2531485.html Верно ли решение данного уравнения на интервале, решить решил, а смысл не понял. Вот код программы. Program Yasha; |
|
Turbo Pascal Поменять слова на чётных и нечётных позициях местами Собственно задача в заголовке. Имеется такой код: program slova; uses System.SysUtils; procedure ReadFromFile(var Sentence: String); var FileName: String; IsCorrect: Boolean; InFile: Text; |
Turbo Pascal Однонаправленный список
https://www.cyberforum.ru/ turbo-pascal/ thread2531433.html Задача: Сформировать однонаправленный список, вывести его на друк, поменять все буквы, что идут после цифры 7, местами. Вопрос в том, как поменять рандомно (или нет?) все буквы местами после конкретного символа. Заранее благодарю за ответ! |
|
0 / 0 / 0
Регистрация: 09.11.2019
Сообщений: 125
|
|
| 0 | |
Подсчитать и вывести на экран количество слов,начинающихся с буквы "а" - Turbo Pascal - Ответ 1401138219.11.2019, 20:41. Показов 1226. Ответов 1
Метки (Все метки)
пж Вернуться к обсуждению: Подсчитать и вывести на экран количество слов,начинающихся с буквы "а" Turbo Pascal
0
|
|
|
|
| 19.11.2019, 20:41 | |
|
Готовые ответы и решения:
1
Строки. Посчитать количество слов, начинающихся на "к" и содержащих 2 буквы "а"
Строки: найти количество слов, начинающихся с буквы "b"
|
| 19.11.2019, 20:41 | |
|
Помогаю со студенческими работами здесь
0
Найти количество слов, начинающихся с буквы "б"
|