02.06.2014, 11:19 | #1 (permalink) |
Новичок
Регистрация: 31.05.2014
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, с решением задачи на языке Паскаль
числа а1, b1, c1, a2, b2, c2, E. Выяснить верно ли, что,и если верно, то найти решение системы линейных алгебраических уравнений a1x + b1y = c1 a2x + b2y = c2 , выполнение |a1b2 - a2b1 | >= e необходимо проверить Если же это неравенство не выполняется, должно быть выдано сообщение “система не совместна”. Получить результат для случаев: 1) a1 = 3 b1 = 4 c1 = 7 a2 = 2 b2 = 2 c2 = 5 E = 0,001 2) a1 = 6 b1 = 4 c1 = 2 a2 = 2 b2 = 1,333 c2 = 4 E = 0,001 a1 = 7 b1 = -5 c1= 10 a2 = 8 b2 = 2 c2 = -8 E = 0,0001 |
02.06.2014, 11:19 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Предлагаю вам ознакомится с аналогичными темами на нашем форуме Помогите пожалуйста с решением задачи на языке Паскаль Помогите, пожалуйста, написать программу на языке Паскаль Помогите, пожалуйста, не могу разобрать две задачи в программе Паскаль Помогите, пожалуйста, написать программу на языке Паскаль |
02.06.2014, 12:34 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да ну, стыдно - школьные глупости!
И еще одно. Вот это: Цитата:
Например, система 2х + у = 3 6х + 3у = 9 вполне себе совместна, хотя ее главный определитель и нулевой. |
|
02.06.2014, 16:40 | #5 (permalink) |
Member
Регистрация: 05.02.2014
Адрес: Львів, Україна
Сообщений: 473
Сказал(а) спасибо: 10
Поблагодарили 24 раз(а) в 6 сообщениях
Репутация: 2997
|
Насколько я помню Паскаль, то задача эта совсем несложная. Операторы if / then для проверки неравенства в помощь. А вот как решать системы я не знаю и знать не хочу Можно найти в учебнике, и перевести на язык паскаль
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
02.06.2014, 19:34 | #7 (permalink) |
Member
Регистрация: 05.02.2014
Адрес: Львів, Україна
Сообщений: 473
Сказал(а) спасибо: 10
Поблагодарили 24 раз(а) в 6 сообщениях
Репутация: 2997
|
Возможно оно и так, но ничего с собой поделать не могу - математика для меня как темный лес в темную ночь) При том со старших классов школы еще... Из-за этого много проблем, ведь почти все науки связаны с математикой - и химия, и физика, и электротехника и многие другие.
|
02.06.2014, 19:37 | #8 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ох, ну ладно - живите:
Код:
Var a1,a2,b1,b2,c1,c2,e,d,d1,d2:real; YN:Char; Begin Repeat Write('a1 = '); Readln(a1); Write('b1 = '); Readln(b1); Write('c1 = '); Readln(c1); Write('a2 = '); Readln(a2); Write('b2 = '); Readln(b2); Write('c2 = '); Readln(c2); Write(' e = '); Readln(e); d:=a1*b2-b1*a2; d1:=c1*b2-b1*c2; d2:=a1*c2-c1*a2; if abs(d)<e then writeln('System is not collocated!') else begin writeln('x = ',d1/d:0:5); writeln('y = ',d2/d:0:5); end; write('Continue (Y/N)? '); readln(YN); Until (YN='N') or (YN='n'); End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|