МАТЕМАТИЧЕСКИЕ ОСНОВЫ ИНФОРМАТИКИ
Среда, 14.04.2021, 16:49
ГлавнаяРегистрацияВход Приветствую Вас Гость | RSS

Меню сайта

Категории раздела
Уравнения и неравенства [1]
Модуль [2]
Примеры [3]
Практика [1]
Задание 3 [1]

Наш опрос
Какой язык программирования Вы изучаете
Всего ответов: 991

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа


Главная » Файлы » ЗАНЯТИЕ » Примеры

Решить уравнение 3. Модуль
30.10.2012, 19:17

3.1. Решить уравнение 3

 

Имя входного файла

input.txt

Имя выходного файла

output.txt

Максимальное время работы на одном тесте

2 секунды

Ограничение по памяти

64 МБ

Двоечник Вася много раз оставался на второй год и уже выучил наизусть все ответы на экзаменационные вопросы. Проблема только с математикой. Каждый год на экзамене дают решить уравнение вида:

|x| + 2*x + 6*A = 0.

Год от года меняется только значение A, из-за чего Вася заваливает экзамен и не переходит в следующий класс. Он хочет специально для этого примера научиться получать его решение при различных значениях А. Помогите Васе написать программу, решающую данное уравнение.

Формат входных данных:

Во входном файле задано целое число A (-2*109 ≤ A ≤ 2*109).

Формат выходных данных:

В первой строке выходного файла выведите количество решений данного уравнения, а во второй через пробел сами решения в любом порядке.

Пример

input.txt

output.txt

0

1
0


ПРИМЕР РЕШЕНИЯ ЗАДАЧИ

var A,x,x1,x2, k: real;
begin
assign(input,'input.txt');
 reset(input);
 assign(output,'output.txt');
 rewrite(output);
 read(A);
 k:=0;
  x1:=-6*A;
  if x1< 0 then k:= k+1;
  x2:=-2*A;
  if x2 >= 0 then k:=k+ 1;
 writeln(k:0:0);
 if x1< 0 then writeln(x1:0:0, ' ');
 if x2>= 0 then writeln(x2:0:0);
 close(input);
   close(output);
end.


Категория: Примеры | Добавил: i_elf
Просмотров: 718 | Загрузок: 0 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:
Поиск

Друзья сайта
  • Творческий учитель
  • Сайт ООАКМР
  • Школьный сайт
  • Информатика учебник
  • МОИ

  • Copyright MyCorp © 2021 Сделать бесплатный сайт с uCoz