|
|
| Другие темы раздела | |
| Pascal ABC срочно!! нужно подкорректировать. Дан текст, в котором слова отделяются пробелами, в конце стоит точка. Поменять в тексте первое и последнее слово местами. ваще ничего не соображаю в нем.. исправте плизззз.. Program B14_1; Var a,v:string; k,i,n:integer; s,s1:string; Begin Writeln('Введите текст'); Readln(a); k:=length(a); i:=0; s:=' '; https://www.cyberforum.ru/ pascalabc/ thread212098.html |
Паскаль. 10 класс. Массивы. Pascal ABC Помогите, пожалуйста, решить несколько задачек с массивом. Заранее благодарна. 1)Вычисление количества элементов массива по условию (нечетных,четных,положительных,отрицательных,кратных а) 2)Сортировка массива по возрастанию или убыванию 3)Поменять местами миним и максим элемент массива 4)Поменять местами 1-й и послед элемент массива 5)Поменять местами 1-й и миним (максим) элемент массива |
| Pascal ABC найти максимальное среднее геометрическое элементов матриц Использовать подпрограммы (ввода, вывода, обрабатывающей части). Даны 3 матрицы целых чисел: (4*3), (4*4), (3*3). Распечатать ту из них, в которой находится максимальное среднее геометрическое положительных элементов 3-го столбца матриц. Считать, что такая матрица одна. я сделал подобную только с максимальной суммой элементов 3-го столбца матриц. посмотрите плиз и замените на макс... https://www.cyberforum.ru/ pascalabc/ thread212056.html | Pascal ABC Динамическая память Найти произведение отрицательных элементов массива A={a}, удовлетворяющих условию c<=a<=d. Использовать динамическое выделение памяти. https://www.cyberforum.ru/ pascalabc/ thread212052.html |
|
Pascal ABC Составить программу 1) Составить программу для ввода двух одномерных массивов а и б размерностью 20, и вычисления z по формуле z=(a1*b1+a2*b2+...+an*bn)/(a1+a2+...an) 2) Так же: во введенном массиве из 10 вещ-ных чисел отсортировать в порядке убывания все положительные элементы, отрицательные элементы оставить на своих местах. Просьба писать как можно более емко, ибо newbie D |
Pascal ABC составление алгоритма решения + описать функцию в Паскале ребят, ну что поделаешь - не слишком силён в составлении блок-схем.подсобите пожалуйста.заранее спасибо Описать функцию, которая возвращает количество разных цифр входящих в запись числа типа Longint . https://www.cyberforum.ru/ pascalabc/ thread211996.html |
|
Pascal ABC Записи. что не так?
https://www.cyberforum.ru/ pascalabc/ thread211969.html Даны сведения о багаже пассажиров: фамилия пассажира, количество вещей и вес в килограммах каждой вещи. Найти всех пассажиров, у которых вес багажа отличается не более, чем на 5 кг от общего среднего веса багажа пассажиров. program lr8_9; uses crt; type bagazh=record; f:string; v,k:integer; ves:array of integer; end; |
Функции. Решите пожалуйста!) Pascal ABC Вычислить z - сумму значений функций z=f(sin α, a)+f(cos α, a)+f(sin^2 α, a-1)+f(sin α-cos α, a^2 -1)+f(sin^2 α-1,cos α+a), где f(u,t)=u+sin(t), u>0; u+t, u<=0. α=2.3; a=21.3 |
| Pascal ABC матрица (поиск подматрицы) Дана матрица со значениями 1 и 0 найти в матрице квадрат (подматрицу), заполненный нулями https://www.cyberforum.ru/ pascalabc/ thread211858.html |
Pascal ABC распечатать числа
https://www.cyberforum.ru/ pascalabc/ thread211831.html Распечатать все числа от 1 до N, у которых самый большой делитель (не равный числу) есть двухзначное число. |
|
Pascal ABC Вычислить значение функции Привет, кто может написать прогу по данной задаче, напишите пожалуйста.. Дано a . Вычислить значение функции где x изменяется в интервале от 0,8 до 2 с шагом 0,1. Вывести на печать значения функции y>0 . |
Pascal ABC Определить, образуют ли элементы массива убывающую последовательность Дан одномерный массив числовых значений, насчитывающий N элементов. Определить образуют ли элементы массива, расположенные перед первым нулевым эле-ментом убывающую последовательность https://www.cyberforum.ru/ pascalabc/ thread211808.html |
|
0 / 0 / 0
Регистрация: 15.12.2010
Сообщений: 4
|
|
| 0 | |
поменять первое и последнее слова местами - Pascal ABC - Ответ 120678316.12.2010, 00:58. Показов 1146. Ответов 0
Метки (Все метки)
Program B14_1; Var a,v:string; k,i,n:integer; s,s1:string; Begin Writeln('Введите текст'); Readln(a); k:=length(a); i:=0; s:=' '; While a[i]<>' 'do Begin i:=i+1; s:=s+a[i]; End; n:=length(a); s1:=' '; While a[n]<>' ' do Begin n:=n-1 s1:=a[n]+s1; End; tser:=copy(a,i+1...k-i-m); nt:=s1+ ' '+s; Writein(ht); Добавлено через 1 час 0 минут Ну решите ее плизз кто-нибудь!!!! 
Вернуться к обсуждению: поменять первое и последнее слова местами Pascal ABC
0
|
|
|
|
| 16.12.2010, 00:58 | |
|
Готовые ответы и решения:
0
Поменять в слове первое и последнее слово местами
Поменять местами первое и последнее слово: ошибка в коде |
| 16.12.2010, 00:58 | |
|
Помогаю со студенческими работами здесь
0
Требуется поменять местами первое и последнее слово в каждом предложении и сохранить результат в файл Поменять местами первое и третье слова в тексте Что нужно поменять что бы программа меняла местами слова первое с последним второе с предпоследним и т.д? |