Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
alt555
0 / 0 / 0
Регистрация: 05.03.2013
Сообщений: 14
1

Найти произведение

25.05.2013, 18:37. Просмотров 811. Ответов 4
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var
S,R,H,a,b: real;
an,ak,da,i:word;
begin
writeln ('введите R=' );
readln (R);
writeln ('введите H=' );
readln (H);
writeln ('введите b=' );
readln (b);
writeln ('введите а начальное');
readln (an);
writeln ('введите а конечное');
readln (ak);
writeln ('введите шаг' );
readln (da);
i:=an;
repeat
if>b then
S:=2*PI*R*R+tan(H)*tan(H)*tan(H)*tan(H)*tan(H);
if=b then
S:=exp(tan(R*R));
ifi<b then
S:=2*PI*R*R+sin(H);
writeln (S);
i := i + da
untili >ak;
 
end.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2013, 18:37
Ответы с готовыми решениями:

Последовательно вводятся числа, найти их произведение. Ввод остановить если произведение стало =0.
1)Последовательно вводятся числа, найти их произведение. Ввод остановить если произведение стало...

Даны три числа a,b,c. Если из них есть отрицательные, то найти произведение этих 3 чисел, а иначе найти min из
Даны три числа a,b,c. Если из них есть отрицательные, то найти произведение этих 3 чисел, а иначе...

Найти произведение.
Найти произведение количества нечетных чисел главной диагонали и количества положительных чисел 3...

Найти произведение N!=1•2•…•N (N–факториал)
Дано целое число N (&gt; 0). Найти произведение N! = 1•2•…•N (выражение N! (N–факториал) ...

Найти произведение ряда
Задача по Паскалю

4
LiquidSnake
55 / 55 / 8
Регистрация: 06.02.2013
Сообщений: 317
25.05.2013, 18:44 2
расскажите сачала что здесь считаете и как должно правильно считать. Или ошибка компиляции?

Добавлено через 1 минуту
на первый взгляд -
Pascal
1
2
i := i + da
 untili >ak;
в первой строке нет точки с запятой
во второй - непонятное условие - нечто больше ak

Добавлено через 47 секунд
а, разглядел. Между until и i - нет пробела
1
alt555
0 / 0 / 0
Регистрация: 05.03.2013
Сообщений: 14
25.05.2013, 19:01  [ТС] 3
в 19ой строке пишет "неверное выражение"
0
Миниатюры
Найти произведение  
LiquidSnake
55 / 55 / 8
Регистрация: 06.02.2013
Сообщений: 317
25.05.2013, 19:04 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var
 S,R,H,a,b: real;
 an,ak,da,i:word;
 begin
 writeln ('введите R=' );
 readln (R);
 writeln ('введите H=' );
 readln (H);
 writeln ('введите b=' );
 readln (b);
 writeln ('введите а начальное');
 readln (an);
 writeln ('введите а конечное');
 readln (ak);
 writeln ('введите шаг' );
 readln (da);
 i:=an;
 repeat
 if>b then
 S:=2*PI*R*R+tan(H)*tan(H)*tan(H)*tan(H)*tan(H);
 if=b then
 S:=exp(tan(R*R));
 ifi<b then
 S:=2*PI*R*R+sin(H);
 writeln (S);
 i := i + da
 untili >ak;
 
 end.
Добавлено через 28 секунд
if>b then - что больше b ?
0
alt555
0 / 0 / 0
Регистрация: 05.03.2013
Сообщений: 14
25.05.2013, 19:08  [ТС] 5
всё, понял в чем дело

Добавлено через 1 минуту
a больше, меньше и равно b
0
25.05.2013, 19:08
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.05.2013, 19:08

Найти произведение минимального.
Найти произведение минимального кратного 5 елемента масива О(11) на его номер.

Найти произведение отрицательных.
Найти произведение отрицательных нечетных и количество кратных 3 елементов масива А(15)......

Найти произведение ненулевых ...
Найти произведение ненулевых элементов одномерного числового массива A из n элементов.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru