|
|
Другие темы раздела | |
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
Вывести все слова, заменив в них первую букву на прописную Дан массив слов. Вывести все слова, заканчивающиеся на букву “а” Вывести все слова, предварительно заменив в них первую букву на заглавную Вывести все слова, предварительно заменив в них первую букву на заглавную Вывести сначала все слова, начинающиеся на гласную букву, потом все слова, начинающиеся на согласную букву Вывести из текстового файла на экран слова, начинающиеся на букву 'а' и заканчивающиеся на букву 'в'. В строке, состоящей из слов, найти и вывести на экран все слова, начинающиеся на букву w |