|
Решения задач на Паскале!Срочно нужно!
|
|
Quote (anyka) ПОМОГИТЕ режить на паскаде ПОЖАЛУЙСТА!!!!!!!!!!!!!
Ввести произвольную символьную цепочку. Отсортировать её символы в порядке неубывания (по алфавиту). Вывести полученную цепочку в обратном порядке.
var
s:string;
i,j:integer;
c:char;
begin
readln(s);
for i:=1 to length(s) do
for j:=1 to length(s)-1 do
if a[j]>a[j+1] then begin
c:=a[j+1];
a[j+1]:=a[j];
a[j]:=c;end;
for i:=length(s) downto 1 do
write(s[i]);
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (alenka999) Помогите пожалуйста!!!
В двумерном массиве, состоящем из целочисленных элементов,поменять местами в каждом столбце первый и последний отрицательные элементы.
а менять их местами в случае если они оба отрицательные или всё равно отрицательные они или нет, всё равно менять?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
var
a:array[1..10,1..10]of integer;
i,j,n,q:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
for j:=1 to n do
if (a[1,j]<0)and(a[n,j]<0)then begin
q:=a[n,1];
a[1,j]:=a[n,j];
a[n,j]:=q;end;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j],' ');
writeln;end;
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:). Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Еще одна задачка, помогите пожалуйста!!!
Составить программу обработки строки, выводящую через запятую слова, состоящие из одинаковых символов (например, ааа, ееее и т.п.)
|
|
|
|
Пример ввода-вывода давай))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Quote (alenka999) я же не программист(
ну тогда ты и не человек, раз не понял(а) моей просьбы))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Сказал(а) как отрезал(а) )))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите решить задачу по массивам:
Условие: Вывести на экран массив, каждый элемент какого есть кубом соответствующего элемента заданного массива.
|
|
|
|
Помогите, пожалуйста, решить задачи!
1)составить программу вычисления и выдачи на печать суммы (или произ¬ведения) N элементов бесконечного числового ряда y=42-40+38-36+... Здесь и далее следует пользоваться операторами цикла FOR или WHILE.
2)Имеется массив A из N произвольных чисел A(N), среди которых есть положительные, отрицательные и равные нулю. Найти произведение элементов кратных трем. Например, если A={2,4,9,2,6,–3,0}, результат: 9*6*(–3)=–162.
3)Составить программу вычисления числового ряда для известного числа членов ряда Y=(2-4-8+1)(23-4+3)(2-2-2+5)(21+1+7)... Перед программированием следует выявить и написать аналитические соотношения, описывающие все имеющиеся зависимости.
|
|
|
|
Здравствуйте. Помогите пожалуйста решить следующие задачи. очень нужно. СРОЧНО. ЗАРАНЕЕ СПАСИБО!
ЗАДАЧА 1. Имеетсячетыре A,B,C,D произвольных числа. ЭВМ должна ответить на вопрос: Правда ли что
среди чисел нет отрицательных?? Ответ ЭВМ должна вывести в видетекста – слов ”Правда” или ”Неправда”.
ЗАДАЧА 2. Составить программу вычисления ивыдачи на печать суммы (или произведения) N элементов бесконечного числового
ряда.
y=1(-3)9(-27)81...
ЗАДАЧА 3. Имеетсямассив А из N произвольных чисел А(N), среди которых есть положительные,
отрицательные и равные нулю. Составить программу, выполняющую задачу в
соответствии с вариантом.
Найти максимальное и минимальное нечетные числа и ихсреднее арифметическое. Так, если А={8,4,–2,6,2, 7, –5}, результат: 7 и–5 и (7–5)/2=1.
ЗАДАЧА 4.Составить программу вычисления числового ряда дляизвестного числа членов ряда N. Перед программированием следует выявить и
написать аналитические соотношения, описывающие все имеющиеся зависимости.
Y=(7+2/2)-(6-3/4)+(5+4/8)-(4-5/16)+...
ЗАДАЧА 5. Выполнить действия над массивами. В таблице приформулировании задания для разъяснения его сути справа отображены примеры
исходных Х и результирующих Y массивов с конкретными числами. Программа,
естественно, должна обрабатывать любые числа для векторов размерностью N.
Программа должна предъявлять исходные и новые массивы.
2
Заполнить массив Y элементами массива Х, находящимися прежде его максимального значения в Х. 4 1 6 2 9 4 Х 4 1 6 2 Y
Lotos
|
|
|
|
Помогите пожалуйста!
Составить подпрограмму, которая вычисляет количество и
сумму элементов трехмерного массива Х, лежащих в интервале [p,q]. С
помощью подпрограммы вычислить количество и сумму элементов
массивов А(5,6,4), В(3,8,2) и С(6,6,10), лежащих в интервале [0,5].
Элементы массивов рассчитать по формулам: A(i,j,k)= cos( j +k) +e (cтепень sin(i)); B(i,j,k)=cos(3.2j+4.2k)+e(степень sin(1.5i); C(i,j,k)=cos(12.4j+k)+e(степень sin(i+2.82))
|
|
|
|
Помогите пожалуйста с решениям с задач на Pascal. Очень срочно надо. Завтра зачет, сделать ни чего не получается, специальность не моя. Заранее большое спасибо. ПЛИИИИИИИИИИИИИИИИИИЗЗЗ.
1. Найти N! (N - факториал), т.е. 1*2*3*.....*N
2. Составить программу к.т. запрашивает буквы, пока не введут точку и находит количество букв "0".
3. Составить программу, к.т. запрашивает 12 чисел, и считает количество не четных.
4. Составить программу, к.т. запрашивает числа пока не введут 0 и находит сумму положительных чисел.
|
|
|
|
Цитата (Fortunka) 2)Имеется массив A из N произвольных чисел A(N), среди которых есть положительные, отрицательные и равные нулю. Найти произведение элементов кратных трем. Например, если A={2,4,9,2,6,–3,0}, результат: 9*6*(–3)=–162.
n=10;
var
a:array[1..n]of integer;
p,i,j:integer;
begin
p:=1;
for i:=1 to n do
for j:=1 to n do begin
read(a[i,j]);
if a[i,j] mod 3 = 0 then p:=p*a[i,j];end;
writeln(p);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Цитата (Путешественник-62-RUS) ЗАДАЧА 1. Имеетсячетыре A,B,C,D произвольных числа. ЭВМ должна ответить на вопрос: Правда ли что среди чисел нет отрицательных?? Ответ ЭВМ должна вывести в видетекста – слов ”Правда” или ”Неправда”.
a,b,c,d:integer;
begin
read(a,b,c,d);
if(a>=0)and(b>=0)and(c>=0)and(d>=0) then writeln('Правда') else writeln('Неправда');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогите ,люди добрые ,решить задания пожалуйста в паскаль ((((((((((1. Сформировать последовательность заглавных букв латинского алфавита и вывести их на экран в том же порядке, поставив после каждой из них ее порядковый номер: А1 Б2 В3 Г4 ... Я33.
2. Дано натуральное число N. Получить в порядке возрастания N первых натуральных чисел, которые не делятся ни на какие числа, кроме 2, 3, 5.
|
|
|
|
Ребят очень нужна помощь!
Второй месяц сдаю КР...
"Разработать алгоритм, составить блок-схему и написать программу на алгоритмическом языке Бейсик для следующих заданий."
Задание 1.
Вычислить значение функции по формуле, произведя предварительные расчеты входящих в нее величин для заданных значений.
http://s16.radikal.ru/i191/1302/17/49ff7ed6964e.png
Задание 2.
Вычислить значение функции с выбором формулы по условию, произведя
предварительные расчеты входящих в нее величин для заданных значений.
http://s41.radikal.ru/i094/1302/34/8934683573e8.jpg
№ 659 | Автор: FoRs |
2013-02-11, 14:04 | Изменено: FoRs - Пн, 2013-02-11, 14:05
|
Репутация: [ + 0 ]
|
|
|
№ 659 | Автор: FoRs |
2013-02-11, 14:04 | Изменено: FoRs - Пн, 2013-02-11, 14:05
|
Репутация: [ + 0 ]
|
|
|
|
возможно решить такую задачу на паскале?
Определить площадь торцевого сечения детали, внешняя поверхность которой-прямоугольный треугольник, внутренняя-цилиндр. Ввести диаметр цилиндра, определить макс. значение гипотенузы, рассчитать длину катета и вывести подсказку для пользователя для выбора реального размера.
|
|
|
|
