Форум программистов  
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 15.03.2017, 10:45   #1
sazonenko-irina
Новичок
 
Регистрация: 15.03.2017
Сообщений: 1
Репутация: 10
По умолчанию Вычисление значения функции U

Уважаемые мастера, помогите решить задачу.
7575.jpg
У меня получаются только два пункта, и то, по отдельности, вообщем ерунда.
var
x, y, u: integer;
begin
write ('Введите x y');
readln (x,y);
if (x+y<=0) then
u:=(x*x)*y;
write (u);

var x, y, u: real;
begin
write (' Введите x y');
readln (x,y);
if (x+y>=15) then
u:=sin(x*y);
write (u);
end.
sazonenko-irina вне форума   Ответить с цитированием
Старый 15.03.2017, 12:46   #2
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,571
Репутация: 1450

skype: newerow1989
По умолчанию

Код:

uses Math;

var
   x, y: integer;
   u:real;
begin
   write ('Введите x y ');
   readln (x,y);
   if (x+y<=0) then
      u:=(x*x)*y else
   If (0<x+y) and (x+y<15) then
      u:=Power(x,-y)*Exp(1) else
      u:=sin(Abs(x*y));
   Writeln(u:8:5);
   Readln;
end.

__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вычисление значения функции shbn Паскаль 1 13.10.2012 12:54
вычисление значения функции и переменных, вычисление площади треугольника, определение расстояния между точками на турбо паскале _4Alex4_ Помощь студентам 2 14.12.2011 01:43
C# Вычисление значения функции PROkaZZZniK C# (си шарп) 0 21.10.2011 16:05
Вычисление значения функции evklid Помощь студентам 6 10.11.2010 23:30




03:04.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru