Вычислить значения функции, заданной графически

@TEPS · Регистрация: 22.12.2015

написать код программы, вычисляющей значения функции y, заданной графически, по значениям аргумента x, введенным с консоли:

@Puporev · 14.01.2016, 13:33

Pascal

var x:real;
    y:integer;
begin
write('x=');
readln(x);
while x<0 do
x:=x+4;
while x>4 do
x:=x-4;
case trunc(x) of
0:y:=-1;
1,3:y:=0;
2:y:=2;
end;
write('y=',y);
end.

@Cyborg Drone · 14.01.2016, 22:14

Pascal

var x: real;
    s: integer;
 
begin
  write('x = ');
  readln(x);
  if x < 0 then x := 1 - x;
  writeln('y = ', (trunc(x) mod 4 - 1) mod 2);
  readln
end.

Добавлено через 2 минуты
Puporev, опечатка, надо:

Pascal

2:y:=1;

Вычислить значения функции, заданной графически

Решение

Решение

@TEPS 1 / 1 / 0 Регистрация: 22.12.2015 Сообщений: 10
		1
	Вычислить значения функции, заданной графически 13.01.2016, 22:09. Показов 1285. Ответов 2 Метки нет (Все метки) написать код программы, вычисляющей значения функции y, заданной графически, по значениям аргумента x, введенным с консоли: Миниатюры __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 1

Опции темы