|
|
| Другие темы раздела | |
|
Turbo Pascal В Массиве А[1..N]определить минимальное значение, числа лежащие за минимальным - записать в новый массив
https://www.cyberforum.ru/ turbo-pascal/ thread1274361.html Всем Добрый Вечер господа. помогите пожалуйста решить задачу.Буду очень вам признателен. В Массиве Аопределить минимальное значение. Все числа, лежащие за минимальным значением записать в новый массив B и определить в нем среднее арифметическое положительных чисел. |
Turbo Pascal Реализация аналога Сишной функции strtok Нужна реализация именно на Turbo Pascal аналога Си-шной функции strtok. Помогите. Документация:function <cstring> strtok char * strtok ( char * str, const char * delimiters ); Split string into tokens |
| Turbo Pascal Дана квадратная матрица. Повернуть ее на 90 градусов в + направлении (процедуры) const n=10; Type Atr = array of integer; Procedure matrica (a:Atr); var i,j: integer; begin for i:=1 to n do for j:=1 to n do https://www.cyberforum.ru/ turbo-pascal/ thread1274304.html | Turbo Pascal Распечатать номера автобаз и название марок автомашин Определен набор марок машин, которыми могут быть обеспечены автобазы: Камаз, белаз,газ, лиаз,раф. Ввести с клавиатуры машины, имеющиеся на каждой автобазе и образовать из них множества. Задано количество автоба. Если есть хотя бы две автобазы, у которых набор марок машин полностью совпадает, распечатать номера автобаз и название марок автомашин. https://www.cyberforum.ru/ turbo-pascal/ thread1274274.html |
|
Образовать файл, который содержит информацию о пациентах детской клиники Turbo Pascal Помогите плз, нужно чтобы 2 задачи были в одной :Задача А : Образовать файл , который содержит информацию о пациентах детской клиники . Структура записи : фамилия пациента , пол , возраст , место жительства ( город ) , диагноз. Количество записей произвольная . Задача В : Написать программу , которая выдает следующую информацию: - Количество пациентов , прибывших в клинику из... |
Turbo Pascal Возможно ли переделать код этой программы так, чтобы обойтись без функции? Здравствуйте Возможно ли переделать код этой программы так, чтобы обойтись без функции? uses Crt; var x: real; function f(x:real):real; begin if x<2 then f:= ln(sqr(x-2)) + sqrt(x+3); if x>2 then f:= exp(6-2*x) + 2*cos(x-3)*sqr(cos(x-3)); end; https://www.cyberforum.ru/ turbo-pascal/ thread1274164.html |
|
Turbo Pascal Подсчёт количества нечётных чисел среди десяти введённых с клавиатуры
https://www.cyberforum.ru/ turbo-pascal/ thread1274095.html Здравствуйте! Буду очень признательна за помощь в написании программы: Пользователь вводит с клавиатуры десять чисел и нужно подсчитать количество нечётных. Заранее большое спасибо. |
Программу переделать с пользовательским модулем Turbo Pascal эту программу переделать с пользовательским модулем. заранее спасибо uses crt; var arr : array of integer; i, j, n : byte; function Maximum(a : array of integer) : integer; var Max : integer; k, l : byte; begin |
|
Turbo Pascal Вывести сумму только положительных чисел
https://www.cyberforum.ru/ turbo-pascal/ thread1274041.html данны a,b,c вывести сумму только положительных чисел с помощью блок схем помогите пожалуйста |
Turbo Pascal несколько функций турбо паскаль . ! буду очень признателен
https://www.cyberforum.ru/ turbo-pascal/ thread1274029.html В задании нужно написать несколько программ(4) , кто сможет помочь , прошу написать на мыло Удален адрес почты . буду очень благодарен !) т.к. не могу скинуть задания сюда ( формат не подходящий ) прошу написать на мыло . |
|
Turbo Pascal Блок-схема, для суммы ряда помогите сделать блок схему , а то я запуталась очень сильно ( var r:array of real; n,k,s,f,i,z:integer; x,t:real; begin writeln(‘ввести число n от 1 до 100’); readln(n); writeln(‘ввести число x’); readln(x); |
Turbo Pascal Составить блок-схему для программы [Программа с "счастливыми числами"] Пожалуйста помогите составить блок-схему по программе program lab4; var a, b, c, d, e, f: byte; k: integer; n: real; begin writeln('Введите n'); readln(n); https://www.cyberforum.ru/ turbo-pascal/ thread1274022.html |
|
0 / 0 / 0
Регистрация: 23.09.2014
Сообщений: 13
|
|
| 0 | |
Дан массив слов Вывести на печать слова, начинающиеся на букву "а", заменив в них букву "р" на "*" - Turbo Pascal - Ответ 671366812.10.2014, 16:30. Показов 4251. Ответов 1
Метки (Все метки)
1)Дан массив слов. Вывести на печать слова, начинающиеся на букву "а", заменив в них букву "р" на "*", и заключив каждое слово в кавычки. Написать все программы нужно через строковой тип данных. Заранее спасибо за помощь! Вернуться к обсуждению: Дан массив слов Вывести на печать слова, начинающиеся на букву "а", заменив в них букву "р" на "*" Turbo Pascal
0
|
|
| 12.10.2014, 16:30 | |
|
Готовые ответы и решения:
1
Дан массив слов. Заменить слова, начинающиеся на букву «R» на слово, введённое с клавиатуры Запросить ввести слова и с введенного списка слов вывести слова, начинающиеся на букву "С" и заканчиваются на букву "в".
|
| 12.10.2014, 16:30 | |
| 12.10.2014, 16:30 | |
|
Помогаю со студенческими работами здесь
0
Вывести все слова, заменив в них первую букву на прописную Дан массив слов. Вывести все слова, заканчивающиеся на букву “а” Вывести все слова, предварительно заменив в них первую букву на заглавную Вывести все слова, предварительно заменив в них первую букву на заглавную Вывести сначала все слова, начинающиеся на гласную букву, потом все слова, начинающиеся на согласную букву
|