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

Free Pascal

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

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

22.01.2012, 02:23. Просмотров 1068. Ответов 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):

Возведение числа в степень - Free Pascal
Как возвести число в степень x на языке паскаль? например в этом уравнении: X * 2X = 1

Возведение в большую степень числа - Free Pascal
Доброго времени суток. Столкнулся с проблемой при ришении вот такого, на первый взгял простого примера. 3^n/2^(n+1), где ^ -...

Возведение числа в степень подключите Math - Free Pascal
чтобы не мучить мозг экспонентами и прочими премудростями в раздел uses напишите имя модуля Math и тогда с помощью функции Power ...

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

Не работает возведение в степень - Free Pascal
Вот код : program lab4; var i:integer; x,y:real; begin readln(x); if (x>=(-3)) and (x<(-2)) then y:=x^3

Возведение чисел в степень - Free Pascal
Для натуральных чисел a и n вычислить an. Дано: Число a(a>=1>=9); Число n(n>=2>=7000); Что я могу максимум вычислить - так это 263,...

2
PolarFoG
NPC
151 / 145 / 10
Регистрация: 10.01.2012
Сообщений: 390
22.01.2012, 21:59 #2
Перед оператором else точка с запятой не ставится.
0
Gorev
135 / 132 / 17
Регистрация: 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-ю степень - Free Pascal
A^15 не получается никак( a, b, t: array of Longint; s: Longint; i, j,o, k, p: Integer; begin for i:=1 to n do...

Возведение больших чисел в степень - Free Pascal
нужно написать программу, возводящую число в n-ую степень, программа не работает... Readln(s); readln(n); Setlength(a,...

Возведение в степень больших чисел - Free Pascal
Есть программа, возводящая длинное число в степень, но нужно быстрее. program Ar; {$mode objfpc}{$H+} uses {$IFDEF UNIX}...

Факториал и возведение в степень, исправить ошибку в коде - Free Pascal
900! - 200 в степени 100. Мой пример: program kill; var factorial:longint; n,z,x,suma:integer; i:byte; begin writeln...


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

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

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