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


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

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

ax^2 + bx + c = 0
galega вне форума   Ответить с цитированием

Старый 11.01.2012, 09:12
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Лучше не спешить, а просмотреть все темы которые были ранее

Прошу составить программу на Паскале
Помогите составить программу на Паскале

Старый 11.01.2012, 10:05   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 23,143
Сказал(а) спасибо: 56
Поблагодарили 207 раз(а) в 69 сообщениях
Репутация: 48847
По умолчанию

Цитата:
Сообщение от 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)
galega
Новичок
 
Регистрация: 11.01.2012
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

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

Цитата:
Сообщение от 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)
Svat01
Новичок
 
Регистрация: 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
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 23,143
Сказал(а) спасибо: 56
Поблагодарили 207 раз(а) в 69 сообщениях
Репутация: 48847
По умолчанию

Цитата:
Сообщение от 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)
Svat01
Новичок
 
Регистрация: 29.10.2014
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
И что с этой красотой надлежит сделать?
составить программу решения этого примера
Svat01 вне форума   Ответить с цитированием
Старый 29.10.2014, 19:05   #10 (permalink)
Svat01
Новичок
 
Регистрация: 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 Выкл.



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


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