Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 979 ответов!

Решение через Turbo Pascal

5-9 класс

Alieva1605liza 31 марта 2015 г., 12:45:40 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Сержорелый
31 марта 2015 г., 14:26:50 (9 лет назад)

program e1;
var
  x, y: real;
begin
  writeln('Введите х');
  readln(x);
  if x < 5 then y := (4 * sqr(x) + 1) / (-5)
  else y := 3 * sqr(x) - 2;
  writeln('y=', y)
end.
--------------------------------------------
program e2;
var
  x, y: real;
begin
  writeln('Введите х');
  readln(x);
  if x > -4 then y := (5 * sqr(x) + 2) / (x + 4)
  else y := 3 * sqr(x) + 7;
  writeln('y=', y)
end.

У меня нет Турбо Паскаля, вставьте там в начале, как всегда пишете директиву uses Crt

Ответить

Другие вопросы из категории

правильно ли я написал

ПРИСВАИВАНИЕ a>b b>c c>a
var a,b,c,d:

РЕШИТЕ ПОЖАЛУЙСТА!!! Сформировать массив множителей заданного числа. Язык программирования - паскаль.ПОМОГИТЕ, ПОЖАЛУЙСТА!!! дана матрица

B(4,3). Заменить отрицательные элементы произведением положительных элементов. Языка программирования - паскаль.

Читайте также

1.Какое значение переменной S будет напечатано после выполнения фрагмента программы,записанной на языке программирования TURBO PASCAL:A:=2В: = 3;

if A>B then S: = A+B;
writeln (S);
Варианты ответов:1)5 ;2)6; 3)7; 4)8

2. Какое значение переменной S будет напечатано после выполнения фрагмента программы, записанной на языке программирования PASCAL:
S: =1;
N: =1;
while N<=3 do
begin
S: = S*N;
N: = N+1;
end;
writeln(S);
Варианты ответов: 1)2 ; 2)1; 3)0; 4)4

Turbo Pascal.

Спортсмен пробежал 10 км в первый день.Каждый следующий день он увеличивал норму на 10% от нормы предыдущего дня. Определить:
a) Через сколько дней он будет пробегать не более 20 км?
б) Сколько километров он пробежит на 7-ой день?



Вы находитесь на странице вопроса "Решение через Turbo Pascal", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.