|
|
| Другие темы раздела | |
|
Free Pascal как найти косинус угла
https://www.cyberforum.ru/ free-pascal/ thread690955.html Как найти косинус если дан угол, а паскаль находит в радианах... |
Строки. Подсчитать результат выражения, записанного в строке Free Pascal Задание 1 Строка – это правильное арифметическое выражение, содержащее только натуральные числа и знаки арифметических операций между ними (+, -, *, /). Подсчитать результат, выполняя арифметические операции в порядке их следования. Входные данные: 5*3-9/3 Выходные данные: 2 Заранее спасибо |
|
Free Pascal Внутренняя сортировка
https://www.cyberforum.ru/ free-pascal/ thread690345.html Здраствуйте, ребятки, помогите програмки написать пожалуйста. Составить подпрограммы и программу для решения задачи по условию заданному в таблице( использовать два "медленных" метода и два быстрых, методы выбрать самостоятельно) Предусмотреть процедуры заполнения и вывода массива. Массив задать константой или заполнить случайными числами. Программа должна выводить исходный массив и... |
Free Pascal Вычислить значение n! для любого n<15 помогите написать прогу: Вычислить значение n! для любого n<15. https://www.cyberforum.ru/ free-pascal/ thread690340.html |
|
Переделать код под процедуру Free Pascal по этой программе выполнить процедуру массивов var a: array of real; i,j:integer; s,c:real; begin writeln ('введите матрицу a(5*3)'); for i:=1 to n do for j:=1 to m do begin |
Free Pascal Задано целое число N. Определить количество различных цифр числа N
https://www.cyberforum.ru/ free-pascal/ thread690083.html Задано целое число N. Определить количество различных цифр числа N.Нужно написать программу с процедурой.Выручайте, народ!!! |
|
Free Pascal Обмен значений двух переменных без использования дополнительной переменной
https://www.cyberforum.ru/ free-pascal/ thread690055.html Как сделать обмен значений двух переменных без использования дополнительной переменной? |
Определить, является ли текст правильной записью римскими цифрами целого числа от 1 до 38 Free Pascal Дан текст из заглавных латинских букв, за которыми следует пробел. Определить, является ли этот текст правильной записью римскими цифрами целого числа от 1 до 38, и, если является, напечатать это числ арабскими цифрами (в десятичной системе). Вот код: Var s:string; n,i:byte; b:boolean; Begin write('Введите текст из заглавных латинских букв: ');readln(s); i:=0;b:=true; ... |
| Free Pascal Написать программу, организующую разбиение заданной строки на несколько строк с выполнением переносов некоторых слов в соответствии с заданным словаре Формулировка примерно такая помогите плиз) Написать программу, организующую разбиение заданной строки на несколько строк с выполнением переносов некоторых слов в соответствии с заданным словарем.Считывание строки и словаря должно осуществляться с экрана и быть реализовано в виде отдельной подпрограммы с передачей параметра-строки по адресу.Форматирование строки должно выполняться в отдельной... https://www.cyberforum.ru/ free-pascal/ thread689896.html |
Free Pascal Среди всех трехзначных чисел найти числа, равные сумме факториалов своих цифр
https://www.cyberforum.ru/ free-pascal/ thread689727.html через связывание с файлами.помогите пожалуйста!!!хоть 1 задачку сдам:) |
|
Free Pascal ошибка 205. нужно очень uses crt; const maxn=2; type matrix=array of extended; vector=array of extended; function f1 (x: extended; y: extended): extended; begin f1:=y-(x-2)/(x-1); end; |
Free Pascal Определить, являются ли три введенных числа х, в, z взаимно простыми
https://www.cyberforum.ru/ free-pascal/ thread689355.html Составить программу, которая определяет, являются ли три введенных числа х, в, z взаимно простыми. Взаимно простыми называются числа, наибольший общий делитель которых равняется 1. Использовать функцию вычисления наибольшего общего делителя этих чисел. Function NOD(a,b:integer):integer; Begin While a<>b do If a>b then a:=a-b else b:=b-a; NOD:=a; End; Скласти програму, яка визначає,... |
|
Фрилансер
|
||||||
| 07.11.2012, 15:30 | 0 | |||||
В строке поменять местами первое и последнее слова - Free Pascal - Ответ 366492207.11.2012, 15:30. Показов 17129. Ответов 3
Метки (Все метки)
 Сообщение было отмечено как решение
Решение
Вернуться к обсуждению: В строке поменять местами первое и последнее слова Free Pascal
7
|
||||||
| 07.11.2012, 15:30 | |
|
Готовые ответы и решения:
3
В заданной строке найти первое и последнее слова и поменять их местами. Дана строка символов Х. Поменять местами первое и последнее слово
|
| 07.11.2012, 15:30 | |
| 07.11.2012, 15:30 | |
|
Помогаю со студенческими работами здесь
0
В каждой строке текстового файла поменять местами первое и последнее слова Файл: в каждой строке поменять местами первое и последнее слова строки. В строке, содержащей не менее двух слов, разделенных пробелом, поменять местами первое и последнее слова |