Новые сообщения · Правила  
Страница 5 из 7«1234567»
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решение задач в Паскале
Решение задач в Паскале
1)

Код
var
i,n,pr:integer;
begin
pr:=1;
read(n);
for i:=1 to 2*n+1 do
if i mod 2 = 1 then pr:=pr*i;
writeln(pr);
end.


2) не понял задания

3)
нужно сумму найти или произведение?

4)
Код
var
i,a,n,amount:integer;
begin
read(n);
amount:=0;
for i:=1 to n do begin
read(a);
if a mod 2 = 1 then amount:=amount+1;end;
writeln(amount);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
81 | Автор: Berestovskiy | 2013-09-30, 23:03   |  Репутация: [ + 211 ]
Помогите, пожалуйста, с задачей...

Задана последовательность n целых чисел a1, a2,..., an. Выведите количество ее элементов, равных минимальному.
82 | Автор: zaklinanie | 2013-10-05, 20:26   |  Репутация: [ + 0 ]
Код
const
n = 10;
var
i,min,count:integer;
a:array[1..10]of integer;
begin
count:=0;
min:=max(min);
for i:=1 to n do begin
read(a[i]);
if a < min then min:=a;end;
for i:=1 to n do
if a[/i] = min then count:=count+1;
writeln(count);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
83 | Автор: Berestovskiy | 2013-10-05, 21:22   |  Репутация: [ + 211 ]
не так, увы, но всё равно спасибо.

а поможете ещё вот с этим, пожалуйста?

Задана последовательность n целых чисел a1, a2,..., an. Выведите сумму всех ее элементов, стоящих на позициях, которые являются степенями двойки: 1, 2, 4, 8, 16 и т.д.

Входные данные
В первой строке задано целое число n (1 ≤ n ≤ 10000). Вторая строка содержит последовательность целых чисел a1, a2,..., an.

Выходные данные
Выведите искомую сумму.
84 | Автор: zaklinanie | 2013-10-06, 17:42   |  Репутация: [ + 0 ]
Помогите пожалуйста написать программу на Паскале (графика): построить на экране: Сонце, що сходить– півколо в нижній частині екрану, до країв екрану рівномірно розходяться 24
проміня. Фон синій, інші елементи жовті.
85 | Автор: Карасик | 2013-10-06, 22:42   |  Репутация: [ + 0 ]
85 | Автор: Карасик | 2013-10-06, 22:42   |  Репутация: [ + 0 ]
Помогите пожалуйста!!!
Требуется подсчитать, на сколько минут раньше будет заканчиваться k-й урок, если все перемены сократить на 5 минут.Формат входных данныхВводится одно натуральное число k, не превосходящее 7.Формат выходных данныхВыведите одно натуральное число — время в минутах
86 | Автор: maribela85 | 2013-10-09, 11:38   |  Репутация: [ + 0 ]
86 | Автор: maribela85 | 2013-10-09, 11:38   |  Репутация: [ + 0 ]
Помогите пожалуйста написать программу.
Используя записи, написать программу, которая формирует базу Компакт-диски (Исполнитель, альбом, число песен, год). Программа выводит
альбом, число песен, год выхода на вводимого с клавиатуры исполнителя.
87 | Автор: Wahhoo | 2013-10-09, 18:59 | Изменено: Wahhoo - Ср, 2013-10-09, 19:02   |  Репутация: [ + 0 ]
для заданного массива вещественных чисел A(n),n<=10 : а)вычислить и вывести произведение элементов,удовлетворяющих условию А=>-10.5 .б) вывести номера и значения элементов, равных заданному c . в) построить массив B(n) , в котором B= c*A. Значения n=8,A=(-12.5,3.6,0.8,3.6,-0.7,3.6,5.5,3.6), с=3.6)

нужно составить схему алгоритма и текст прграммы на языке Паскаль


ок
88 | Автор: GraFF | 2013-10-11, 17:14   |  Репутация: [ + 0 ]
Помогите составить программу для вычисления суммы ряда s=1/2^2+2^2/3^2+3^2/4^2+4^2/5^2+n^2/(n+1)^2.сумирование прекратить ,если слогаемое станет меньше е,е вводит пользователь
89 | Автор: KLim | 2013-10-18, 00:18   |  Репутация: [ + 0 ]
Ввести три целых числа
x, y, z. Если хотя бы одно из них четное,
то
первому четному числу присвоить значение произведения этих чисел.
90 | Автор: Volgo | 2013-11-09, 00:08   |  Репутация: [ + 0 ]
Наинтервале 0,25=<t=<0,75; с шагом h=0,25; протабулировать функцию y=√(x+1-t²)/√(t+1-x²); при  x=0,236
91 | Автор: 1111 | 2013-11-11, 21:45   |  Репутация: [ + 0 ]
http://s003.radikal.ru/i201/1311/07/ac464ee11f96.png
помогите решить плиз
92 | Автор: Nllx | 2013-11-20, 18:57   |  Репутация: [ + 0 ]
92 | Автор: Nllx | 2013-11-20, 18:57   |  Репутация: [ + 0 ]
Код
program Model_At;
uses Ctr,Graph;
const Ra=100;{радиус атома}
Rc=10;{радиус ядра}
Re=4;{радиус электрона}
k=0.5;{коэффициент сжатия орбит электронов}
Dr=30;{параметр изменения координат электронов}
Step 1=0.2;{шаг изменения положения электрона}
Step=100;{время задержка скорость движения электрона}
var cx,сy,y,y1,y2,x,x1,x2,x3,y3:integer;
I,I1,I2,I3:real; d,m:integer;
begin
clrscr;
d:=detect;
initgraph(d,m,'путь к драйверу');
SetTextStyle(0,0,2);
OutTextXY(200,30,'модель атома');
cx:=GetMaxX div 2;
PieSLice(cx,cy,0,360,Rs);{нарисовать ядро атома}
SetColor(Red);
SetLineStyle(0,0,3);
Line(cx-7,cy,cx+7,cy);
Line(cx,cy-5,cx,cy+5);
SetLineStyle(0,0,1);
SetFillStyle(1,1);
i:Pi/4;{задать начальное положение 4 электронов}
i:=-Pi/4;
i1:=-Pi/4;
i2:=-Pi/2;
i3:=-Pi/2;
SetTextStyle9(0,0,1);
SetColor(jellow);
OutTextXT(180,420;'Для отмены нажмите любую клавишу');
While not KeyPressed do {повторять пока не нажата любая клавиша}
begin {определить координаты электронов}
x:=Round((Ra*cos(i))+cx;Y:Round(k+Ra*sin(i))+cy;
x1:=Round((Ra+Dr)*cos(i1))+cx; y1:Round(k*(Ra+Dr)*sin(i1))+cy;
x2:=Round((Ra+Dr)*cos(i2))+cx; y2:Round(k*(Ra+Dr)*sin(i2))+cy;
x3:=Round((Ra+Dr)*cos(i3)*2.3)+cx;y3:=Raund(k*(Ra-Dr)*sin(i3)*2.3)+cy;{установить синий цвет и нарисовать электроны}
SetColor(1);
Circle(x,y,Re);
PutPixel(x,y,2);
Circle(x1,y1,Re);
PutPixel(x1,y1,2);
Circle(x2,y2,Re);
PutPixel(x2,y2,2);
Circle(x3,y3,Re);
PutPixel(x3,y3,2);
Delay(Setep);{Нарисовать электроны цветом фона}
SetColor(0);
Circle(x,y,Re);
PutPixel(x,y,2);
Circle(x1,y1,Re);
PutPixel(x1,y1,2);
Circle(x2,y2,Re);
PutPixel(x2,y2,2);
Circle(x3,y3,Re);
PutPixel(x3,y3,2);{задать изменение положения электронов}
i:=i+Step1;
i1:=i1-Step1; i2:=i2+Step1; i3:=i3+Step1;
end;{конец цикла}
СloseGraph;
end


50406
93 | Автор: beka50406 | 2013-11-28, 19:03   |  Репутация: [ + 0 ]
Помогите, пожалуйста, с задачкой
по циклам:
Ежегодный прирост рыбы в пруду составляет 15%. Запасы рыбы оценены в A тонн. Ежегодный план отлова B тонн.
Подсчитать, сколько лет можно выдерживать заданный план?
94 | Автор: NaX | 2013-12-06, 10:21   |  Репутация: [ + 0 ]
Помогите сделать через паскаль((
Знайти всі додатні прості дроби, знаменник яких менший заа.

Добавлено (30.03.14, 19:37)
---------------------------------------------
нужна помощ((((((
 Автоматизувати пошук всіхкоренів рівняння .

95 | Автор: banana | 2014-03-30, 19:37   |  Репутация: [ + 0 ]
Помогите, пожалуйста, в решении задач в паскале.Требуется привести блок-схему и написать программу.1. Определить площадь торцевого сечения детали, внешняяповерхность которой – треугольная призма, внутренняя – цилиндр. Ввести диаметр
цилиндра, определить минимальное значение стороны призмы и вывести подсказку
для пользователя для выбора реального размера.2. Вводится 7 чисел. Определить сумму всех чисел под четныминомерами и среднее арифметическое под нечетными номерами.3. Вводится последовательность чисел. Конец ввода – любоетрехзначное число. Определить номера и значения максимального элементов.4. Вводится последовательность символов, конец ввода –пробел. Определить количество гласных букв в последовательности.5. Создать массив из 10 чисел и поменять местами значениясоседних ячеек.
96 | Автор: Дмитрий | 2014-05-09, 15:41   |  Репутация: [ + 0 ]
96 | Автор: Дмитрий | 2014-05-09, 15:41   |  Репутация: [ + 0 ]
Помогите пожалуйста решить задачи в паскале. Очень срочно нада
1)Дано натуральне число n і масив дійсних чисел c[1. .n]. Крім того задано дійсне a і b. Чи правильно, що при 1≤ k ≤n-1 усякий раз, коли ck<a, виконано ck+1>b
2)Дано масив дійсних чисел a[1..20]. Перетворити його за правилом: більше з ai і ai+10 (i=1,...,10) прийняти в якості нового значення ai, а менше - у якості нового значення ai+10
3)Впорядкувати останні k елементів по спаданню значень парних елементів.
4)Впорядкувати тільки елементи з непарними індексами по спаданню.


07051988
97 | Автор: NaTa_ | 2014-05-17, 17:18   |  Репутация: [ + 0 ]
1.     Дано натуральне число n. Написати програму обчислення 2n.

Добавлено (19.05.14, 09:47)
---------------------------------------------
Здравствуйте нужжна помощь с решением задачи на паскале.
 1.      Визначити скільки метрів сітки потрібно,щоб загородити великий сад прямокутної форми зі сторонами a, b, і скільки
добрив (d) треба придбати, якщо на 1 м2 потрібно t кг?2.      Написати програму, що порівнює два дійснихчисла й виводить повідомлення про те, яке з них є найменшим, або, якщо числа
однакові, повідомляє про це.3.      Написати програму для обчисленняпериметра (р) і площі (s) трикутника за трьома відомими сторонами a,
b, c. 4.      Розв’язати квадратне рівняння(a ≠ 0) ax2 + bx + c = 0. Якщо d < 0, товивести повідомлення „коренів немає”.5.      Написати програму обчислення значеннявиразу у = 1+1/2+1/3+ ... +1/20.6.      Елементи числової послідовності описуютьсяформулою ai = 3 + cos2i. Обчислити тавивести на екран номери та значення перших 10 елементів.7.     Нехай елементи числової послідовності описуються формулоюai = 1 – 2cos3i, і = 1,2,…,12.Вивести на екран номери лише додатних елементів.8.     Один долар коштує 8,15 гривні. Вивести на екран вартість1,2,…10 доларів.9.     Дано натуральне число n. Написати програму обчислення 2n.10.  Написати програму, в якій значення змінної обчислюєтьсяза формулою:
a+b, якщо a – непарне та a*b, якщо a – парне.

98 | Автор: kravchenko_1994 | 2014-05-19, 09:47   |  Репутация: [ + 0 ]
Заданы три корня кубического уравнения: х1, х2, х3.Найти коэффициенты этого уравнения
99 | Автор: Tataceshkova | 2014-06-06, 17:34   |  Репутация: [ + 0 ]
99 | Автор: Tataceshkova | 2014-06-06, 17:34   |  Репутация: [ + 0 ]
Дёшево решу любую задачу по паскаль pascal-order.ucoz.ru
100 | Автор: KinoMonster | 2014-06-13, 20:57   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решение задач в Паскале
Страница 5 из 7«1234567»
Поиск: