Возвести в квадрат те числа, значения которых неотрицательны

@Владимир23 · Регистрация: 01.11.2009

Студворк — интернет-сервис помощи студентам

Помогите решить задачку, Плиз!:
Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные.
Я что -т написал, только пока для одного числа, компиляю - говорит Compile failed.
Сам что-то не могу разобраться - лузер круглый.Вот что пока написал:

Pascal
1
2
3
4
5
6
7
8
9
Program Lab3;
var
    x: integer;
begin
    write('Введите x: ');
    readln(x);
    If x>0 Then x:= Exp(2*ln(x)) Else x:=Exp(4*ln(x));
    write('X Равно: ' s:5:2);
End.

@Snoopy · 01.11.2009, 19:51

Сообщение от Владимир23

А что такое clrscr;

очистка экрана!

@Владимир23 · 01.11.2009, 19:59 **[ТС]**

при компиляции вот что говорит паскаль:Identifier not found "clrscr"
Syntax error , ";" expected but "Else" found

@Snoopy · 01.11.2009, 20:03

вы какой вариант все же взяли?

@Владимир23 · 01.11.2009, 20:46 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program chisla;
uses crt;
var a,b,c:integer;
begin
clrscr;
{вводим три числа, по условию}
Writeln (' Vvedite a,b,c ');
Readln (a,b,c);
{Проверяем если число больше 0 -> т.е. если оно положительное}
If a>0 then writeln ('Kvadrat chisla ',a, ' =',sqr(a)){возводим его в квадрат}
       else writeln ('A^4 = ',a*a*sqr(a));{Иначе возводим в 4-ю степень}
{Так же второе число}
If b>0 then writeln ('Kvadrat chisla ',b, ' =',sqr(b))
       else writeln ('B^4 = ',b*b*sqr(b));
{Так же третье число}
If c>0 then writeln ('Kvadrat chisla ',c, ' =',sqr(c))
       else writeln ('C^4 = ',c*c*sqr(c));
{по нажатию клавиши завершаем программу}
Readln
end.

Добавлено через 38 минут

Сообщение от Давид

Владимир23, Можно так!неиспользуя массив!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program chisla;
uses crt;
var a,b,c:integer;
begin
clrscr;
Writeln (' Vvedite a,b,c ');
Readln (a,b,c);
If a>0 then writeln ('Kvadrat chisla ',a, ' =',sqr(a))
       else writeln ('A^4 = ',a*a*sqr(a));
If b>0 then writeln ('Kvadrat chisla ',b, ' =',sqr(b))
       else writeln ('B^4 = ',b*b*sqr(b));
If c>0 then writeln ('Kvadrat chisla ',c, ' =',sqr(c))
       else writeln ('C^4 = ',c*c*sqr(c));
Readln
end.

Выбрал Ваш вариант, но что-то не прокатывает, не могу скомпилировать: Syntax error, ":" expected but "Else" found.

@Snoopy · 01.11.2009, 21:04

хм, у меня это же вариант и все нормально!

@Puporev · 01.11.2009, 21:20

Владимир23, Так Вы не ставьте точку с запятой перед else, у автора кстати их нет,

@Nate · 01.11.2009, 21:36

Сообщение от Владимир23

Поздравляю, Солнце, с вступлением в команду чайников!

ха спасиб,да да я чайник XD знаю что не смешно )

@Владимир23 · 02.11.2009, 19:48 **[ТС]**

Спасибо, Вразумел!!!

Добавлено через 21 минуту
товарисчи, подскажите как код программы с турбопаскаля скопировать и вставить в текстовый документ?

@Давид · 02.11.2009, 20:06

Владимир23, сохраните просто его под форматом *.txt!а после найдите его в папке BIN паскаля!!!!иначе поиском!

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Владимир23 5 / 5 / 4 Регистрация: 01.11.2009 Сообщений: 576
	01.11.2009, 19:59 [ТС]
	при компиляции вот что говорит паскаль:Identifier not found "clrscr" Syntax error , ";" expected but "Else" found 0

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	01.11.2009, 20:03
	вы какой вариант все же взяли? 0

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	01.11.2009, 21:04
	хм, у меня это же вариант и все нормально! 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	01.11.2009, 21:20
	Владимир23, Так Вы не ставьте точку с запятой перед else, у автора кстати их нет, 0

@Владимир23 5 / 5 / 4 Регистрация: 01.11.2009 Сообщений: 576
	02.11.2009, 19:48 [ТС]
	Спасибо, Вразумел!!! Добавлено через 21 минуту товарисчи, подскажите как код программы с турбопаскаля скопировать и вставить в текстовый документ? 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	02.11.2009, 20:06
	Владимир23, сохраните просто его под форматом *.txt!а после найдите его в папке BIN паскаля!!!!иначе поиском! 1