Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 8, средняя оценка - 4.75
Slowpok
4 / 4 / 4
Регистрация: 03.01.2012
Сообщений: 112
#1

Оператор с условием. Возведение в степень числа. - Free Pascal

22.01.2012, 02:23. Просмотров 1093. Ответов 2
Метки нет (Все метки)

возводим во 2 степень абс если выполняется условие a>b>c, если не выполняется выводим входные данные
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
 a,b,c,aq,bw,ce:real;
begin
 write ('значение a, b и с: ');
 readln (a,b,c);
If a>b then
  begin
   If b>c
   then
    aa:=a*2;
    bb:=b*2;
    cc:=c*2;
    writeln ('результат:',aq,bw,ce);
 [I]  else[/I]
    writeln ('ошибка:',a,b,c);
  end;
 else
  begin
   writeln ('ошибка:',a,b,c);
  end;
ругается на строке else? помогите пожалуйста!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.01.2012, 02:23
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Оператор с условием. Возведение в степень числа. (Free Pascal):

Возведение числа в степень
Как возвести число в степень x на языке паскаль? например в этом уравнении:...

Возведение в большую степень числа
Доброго времени суток. Столкнулся с проблемой при ришении вот такого, на...

Возведение числа в степень подключите Math
чтобы не мучить мозг экспонентами и прочими премудростями в раздел uses...

Возведение в степень
Здравствуйте. Помогите решить задачу, пожалуйста. По заданным вещественному...

Не работает возведение в степень
Вот код : program lab4; var i:integer; x,y:real; begin readln(x);...

Возведение чисел в степень
Для натуральных чисел a и n вычислить an. Дано: Число a(a>=1>=9); Число...

2
PolarFoG
NPC
151 / 145 / 22
Регистрация: 10.01.2012
Сообщений: 390
22.01.2012, 21:59 #2
Перед оператором else точка с запятой не ставится.
0
Gorev
135 / 132 / 30
Регистрация: 08.12.2009
Сообщений: 565
Записей в блоге: 3
22.01.2012, 23:28 #3
У тебя не правильно решена задача!!!
И слишком много лишних действий.
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,b,c:integer;
begin
read(a,b,c);
if (a>b) and (b>c) then 
 begin
  a:=a*a;
  b:=b*b;
  c:=c*c;
 end;
writeln('a=',a,' b=',b,' c=',c);
end.
Вот правильно
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.01.2012, 23:28
Привет! Вот еще темы с решениями:

Возведение матрицы в 15-ю степень
A^15 не получается никак( a, b, t: array of Longint; s: Longint; ...

Возведение в степень больших чисел
Есть программа, возводящая длинное число в степень, но нужно быстрее. program...

Возведение больших чисел в степень
нужно написать программу, возводящую число в n-ую степень, программа не...

Факториал и возведение в степень, исправить ошибку в коде
900! - 200 в степени 100. Мой пример: program kill; var factorial:longint;...


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

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

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