27.05.2011, 14:14 | #1 (permalink) |
Новичок
Регистрация: 27.05.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать программу в Excel
uses crt; var a,b,c:real; begin clrscr; writeln('Введите 3 действительных числа:'); readln(a); if a>=0 then a:=a*a else a:=sqr(sqr(a)); readln(b); if b>=0 then b:=b*b else b:=sqr(sqr(b)); readln(c); if c>=0 then c:=c*c else c:=sqr(sqr(c)); write('a=',a:0:2,' b=',b:0:2,' c=',c:0:2); readln end. |
27.05.2011, 14:14 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пожалуйста, внимательно пролистайте данные посты Помогите написать программу на PASCAL Помогите написать программу Помогите написать программу в Delphi |
27.05.2011, 14:44 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ничего не понимаю - с каких это пор в Excel встроен Паскаль? Мне казалось, что там исключительно VBA. Впрочем, вероятно, я просто не в курсе.
По программе. Всё там правильно, никаких ошибок. Единственно - после набивки каждого из трех чисел нужно нажимать "Enter". |
27.05.2011, 19:12 | #5 (permalink) |
Member
Регистрация: 17.12.2010
Сообщений: 648
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 983
|
можно было и так:
=ЕСЛИ(A1<0;СТЕПЕНЬ(A1;4);СТЕПЕНЬ(A1;2)) |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|