IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Квадратный трёхчлен, Обращение ч\з указатели
Strike
сообщение 9.12.2006 19:24
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской

Репутация: -  0  +


Задача собстно простая до боли:

Составить программу вычисления корней квадратного трёхчлена по вводимым коэффициентам с обращением ко всем переменным только через указатели.

Такой вопрос: что значит "с обращением ко всем переменным только через указатели."??? Знаю что такое указатели, знаю код программы для квадратного ур-я. Но как это связать? В общем кому не сложно поясните пожалуйста. Всем ответившим заранее огромное спасибо!!! :unsure:
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Strike
сообщение 9.12.2006 20:15
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской

Репутация: -  0  +


Блин =))) Ну вот текст для простого ур-я:

Var
a,b,c,d,x1,x2 : real;
Begin
write('Введите коэффициенты');
read(a,b,c);
d:=b*b-4*a*c;
if d<0 then write('Ур-е не имеет корней');
if d=0 then
begin
x1:=-b/2/a;
write('x= ',x1);
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/2/a;
x2:=(-b-sqrt(d))/2/a;
write('x1= ',x1,' ','x2= ',x2);
end;
End.


Что тут нужно изменить,чтобы получилось то,что надо? =_(

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 18.07.2025 14:08
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"