Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
alt555
0 / 0 / 0
Регистрация: 05.03.2013
Сообщений: 14
#1

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

25.05.2013, 18:37. Просмотров 295. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти произведение (Pascal ABC):

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

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

Найти произведение. - Pascal ABC
Найти произведение количества нечетных чисел главной диагонали и количества положительных чисел 3 строки. Добавлено через 12 минут ...

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

Найти произведение ряда - Pascal ABC
Используя три различных цикла определить значение. Произведения,

Найти произведение ряда - Pascal ABC
(1+1/11)(1+1/22])...(1+1/N2)

4
LiquidSnake
55 / 55 / 1
Регистрация: 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 / 1
Регистрация: 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
Привет! Вот еще темы с ответами:

Найти произведение ряда - Pascal ABC
Используя три различных цикла(FOR, WHILE, REPEAT) определить значение произведения:

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

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

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


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

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

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