Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.12.2015, 14:38   #1
hitman_Stav26
Новичок
Джуниор
 
Регистрация: 01.12.2015
Сообщений: 2
По умолчанию Помогите написать программу

РЕБЯТА ПОМОГИТЕ ПОЖАЛУЙСТА, СИЖУ НА ПАРЕ, СДАТЬ СЕГОДНЯ НУЖНО.
Задача на цикл. Задано число р. если р<0, то значение "y" вычислить по формуле y=p(в квадрате),Если p>=0, то вычислить по формуле y=p(в кубе)

Последний раз редактировалось hitman_Stav26; 01.12.2015 в 15:36.
hitman_Stav26 вне форума Ответить с цитированием
Старый 01.12.2015, 17:49   #2
taras-proger
Подтвердите свой е-майл
 
Регистрация: 12.11.2014
Сообщений: 470
По умолчанию

Код:
program p;
var p,y:real;
begin
     write('p='); readln(p);
     if p<0 then y:=p*p else y:=p*p*p;
     writeln('y=', y:5:2);
end.
Только эта задача не на цикл, а на условный оператор.

Последний раз редактировалось taras-proger; 01.12.2015 в 19:27.
taras-proger вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите написать программу.C++ Keniro Общие вопросы C/C++ 8 28.09.2015 06:11
помогите написать программу FeLiPoN Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 9 24.03.2014 13:25
помогите написать программу Fighter33 Общие вопросы по Java, Java SE, Kotlin 1 30.12.2013 01:43
Помогите написать программу mrc++ Visual C++ 0 27.10.2013 16:11
помогите написать программу на С++ Кристюша5 Помощь студентам 1 19.10.2013 21:02