Технический форум
Вернуться   Технический форум > Программирование, графика, игры > Форум программистов > Помощь студентам
Новые сообщения

Ответ
 
Опции темы Опции просмотра
Старый 11.01.2012, 09:12   #1 (permalink)
Новичок
 
Регистрация: 11.01.2012
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Lightbulb Составить программу решения квадратного уравнения, Паскаль

Плиз помогите мне нужно составить программу решения квадратного уравнения в турбо паскале

ax^2 + bx + c = 0
galega вне форума   Ответить с цитированием
Старый 11.01.2012, 10:05   #2 (permalink)
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 20,830
Сказал(а) спасибо: 10
Поблагодарили 26 раз(а) в 11 сообщениях
Репутация: 23790
По умолчанию

Цитата:
Сообщение от galega Посмотреть сообщение
Плиз помогите мне нужно составить программу решения квадратного уравнения в турбо паскале

ax^2 + bx + c = 0
Очень плохо начинаете! Это классическое упражнение для обучения азам программирования, а Вы тут же, даже не попытавшись решить, скачете на форумы. Дело Ваше, но если Вы думаете вот так чужим умом прожить жизнь - поверьте, ничего не выйдет. Ну да в конце концов - Вам жить. Получите:
Код:
Var
 a,b,c,D,x1,x2,p,q:Real;
Begin
 Repeat
  Write('a= ');
  Readln(a);
  if a=0 then writeln('Error: a=0. Enter another value');
 Until a<>0;
 Write('b= ');
 Readln(b);
 Write('c= ');
 Readln(c);
 p:=b/a;
 q:=c/a;
 D:=Sqr(p/2)-q;
 If D>0 then
  begin
   Writeln('x1 = ',-p/2-Sqrt(D):0:5);
   Writeln('x2 = ',-p/2+Sqrt(D):0:5);
  end
 else
 If D=0 then
  Writeln('x1 = x2 = ',-p/2:0:5)
 else
  begin
   Writeln('x1 = ',-p/2:0:5,'-i*',Sqrt(-D):0:5);
   Writeln('x2 = ',-p/2:0:5,'+i*',Sqrt(-D):0:5);
  end;
 Readln;
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 11.01.2012, 10:41   #3 (permalink)
Новичок
 
Регистрация: 11.01.2012
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо большое) и за совет тоже)
galega вне форума   Ответить с цитированием
Старый 05.03.2012, 10:48   #4 (permalink)
Новичок
 
Регистрация: 05.03.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Подскажите пожалуйста как написать это -Решение уравнения ax^2+bx=0 , в Турбо Паскале?
Замечание:
Yfcnz, если Вы будете продолжать цеплять к чужим темам дубликаты своего топика, будете отправлены в бан.
Дубль удален.
Модератор.
Yfcnz вне форума   Ответить с цитированием
Старый 05.03.2012, 15:21   #5 (permalink)
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 20,830
Сказал(а) спасибо: 10
Поблагодарили 26 раз(а) в 11 сообщениях
Репутация: 23790
По умолчанию

Цитата:
Сообщение от Yfcnz Посмотреть сообщение
Подскажите пожалуйста как написать это -Решение уравнения ax^2+bx=0 , в Турбо Паскале?
Вы уверены, что уравнение неполное, т.е. с=0?
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads
Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 29.10.2014, 18:44   #6 (permalink)
Новичок
 
Регистрация: 29.10.2014
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

помогите плиз!!!
((2xy/GZ)*(D/16x))*((2x/D)/(16x/GZ))= c
D- дискриминант
Svat01 вне форума   Ответить с цитированием
Старый 29.10.2014, 18:57   #7 (permalink)
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 20,830
Сказал(а) спасибо: 10
Поблагодарили 26 раз(а) в 11 сообщениях
Репутация: 23790
По умолчанию

Цитата:
Сообщение от Svat01 Посмотреть сообщение
помогите плиз!!!
((2xy/GZ)*(D/16x))*((2x/D)/(16x/GZ))= c
D- дискриминант
И что с этой красотой надлежит сделать?
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 29.10.2014, 19:02   #8 (permalink)
Новичок
 
Регистрация: 29.10.2014
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

составить программу решения этого примера
Svat01 вне форума   Ответить с цитированием
Старый 29.10.2014, 19:03   #9 (permalink)
Новичок
 
Регистрация: 29.10.2014
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
И что с этой красотой надлежит сделать?
составить программу решения этого примера
Svat01 вне форума   Ответить с цитированием
Старый 29.10.2014, 19:05   #10 (permalink)
Новичок
 
Регистрация: 29.10.2014
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
И что с этой красотой надлежит сделать?
только D-не дискриминант
Svat01 вне форума   Ответить с цитированием
Ads
Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Прошу составить программу на Паскале регинчик Delphi, Kylix and Pascal 4 25.12.2011 21:47
Помогите составить программу на Паскале регинчик Delphi, Kylix and Pascal 1 25.12.2011 16:21
Разработать алгоритм и составить программу для решения задачи димон4ик Помощь студентам 0 18.10.2011 10:56
Помогите пожалуйста составить программу Katrin89 Delphi, Kylix and Pascal 0 14.06.2011 22:59
Помогите составить программу на Паскале Seven Помощь студентам 2 09.06.2011 08:53
Помогите составить программу в Pascal diagen_62 Delphi, Kylix and Pascal 3 23.05.2011 19:17
Проверить правильность решения – Паскаль. Ella Помощь студентам 1 12.04.2011 19:54
Составить программу diagen_62 Delphi, Kylix and Pascal 4 27.03.2011 21:31
Составить программу andreis459 Delphi, Kylix and Pascal 5 20.03.2011 16:54
Паскаль: обсуждение вариантов решения задач Mr.Програмист Помощь студентам 10 13.02.2011 07:03
Помогите составить программу на турбо паскаль dmitriy_e Помощь студентам 10 01.02.2011 19:25
Помогите пожалуйста составить программу Feosha C/C++/С# 1 13.11.2010 22:15


Часовой пояс GMT +4, время: 22:01.


Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.