Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
Viktor0
0 / 0 / 0
Регистрация: 02.06.2016
1

Решить уравнение

24.10.2012, 13:07. Просмотров 1969. Ответов 2
Метки нет (Все метки)

Помогите выдает ошибку неизвестный идентификатор input

вот надо решить это уравнение |x| + 2*x + 6*A = 0, в уравнение каждый раз меняется "А". Нужно получать решение "А" при различных его значениях

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program zn;
uses crt;
var
  a,x:longint;
 
begin
  assign(input,'input.txt');
  reset(input);
  assign(output,'output.txt');
  rewrite(output);
  read(input,a);
   writeln(output,'1');
 
  if a<0 then begin x:=-2*a;
   writeln(output,x); end
 
  if a=0 then begin
 
  writeln(output,0);
  end
 
  if a>0 then
 
    begin
    x:=-6*a
 
 
   writeln (output,x);  end;
  close(input);
  close(output);
end.
Помогите пожалуйста!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.10.2012, 13:07
Ответы с готовыми решениями:

Решить уравнение
Привет всем. Помогите пожалуйста решать этот пример.

Решить уравнение
как ее решить незнаю помогити плизь

Решить уравнение
Нужно решить уравнение, с программой проблем нет только нужно на паскале...

Решить уравнение
Нужно составить программу для вычесления уравнения y=7x2+6x-5 (игрек равен...

Решить уравнение
решить уравнение A*X^3+B*X^2=0

2
MAIN HUB
0 / 0 / 0
Регистрация: 26.10.2012
Сообщений: 2
29.10.2012, 22:26 2
При чём тут input.txt
0
Dmitrinik
536 / 393 / 99
Регистрация: 18.08.2012
Сообщений: 1,015
29.10.2012, 22:35 3
Под INPUT и OUTPUT здесь подразумеваются файловые переменные. Однако в Var'ах они не описаны. Скорее всего нужно сделать так:
Pascal
1
2
3
var
  a,x:longint;
  INPUT, OUTPUT : text;
Поэтому транслятор и ругается
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.10.2012, 22:35

Решить уравнение
Очень прошу помогите пожалуйста

Решить уравнение
Ребят, помогите пожалуйста! Мне нужно решить уравнение ord(x), при этом...

Решить уравнение
Помогите! решите уравнение через паскаль: Дано уравнение: x3-cosx=0


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru