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


Ответ
 
Опции темы Опции просмотра
Старый 02.06.2014, 11:19   #1 (permalink)
Egor1Mozi
Новичок
 
Регистрация: 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
Egor1Mozi вне форума   Ответить с цитированием

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

Предлагаю вам ознакомится с аналогичными темами на нашем форуме

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

Старый 02.06.2014, 12:34   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,977
Сказал(а) спасибо: 322
Поблагодарили 543 раз(а) в 184 сообщениях
Репутация: 102235
По умолчанию

Да ну, стыдно - школьные глупости!

И еще одно. Вот это:
Цитата:
Сообщение от Egor1Mozi Посмотреть сообщение
Если же это неравенство не выполняется, должно быть выдано сообщение ”система не совместна”.
свидетельствует лишь о незнании Вашими преподавателеми азов школьной алгебры. Потому что равенство нулю главного определителя системы еще не свидетельствует о её (системы) несовместности.
Например, система
2х + у = 3
6х + 3у = 9
вполне себе совместна, хотя ее главный определитель и нулевой.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 02.06.2014, 16:26   #3 (permalink)
Egor1Mozi
Новичок
 
Регистрация: 31.05.2014
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

А как это решать?
Egor1Mozi вне форума   Ответить с цитированием
Старый 02.06.2014, 16:29   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,977
Сказал(а) спасибо: 322
Поблагодарили 543 раз(а) в 184 сообщениях
Репутация: 102235
По умолчанию

Цитата:
Сообщение от Egor1Mozi Посмотреть сообщение
А как это решать?
А Вам не объясняли? Написать программу да запустить. Или совсем по нулям?
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 02.06.2014, 16:40   #5 (permalink)
mezko
Member
 
Аватар для mezko
 
Регистрация: 05.02.2014
Адрес: Львів, Україна
Сообщений: 473
Сказал(а) спасибо: 10
Поблагодарили 24 раз(а) в 6 сообщениях
Репутация: 2997
По умолчанию

Насколько я помню Паскаль, то задача эта совсем несложная. Операторы if / then для проверки неравенства в помощь. А вот как решать системы я не знаю и знать не хочу Можно найти в учебнике, и перевести на язык паскаль
mezko вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 02.06.2014, 16:52   #6 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,977
Сказал(а) спасибо: 322
Поблагодарили 543 раз(а) в 184 сообщениях
Репутация: 102235
По умолчанию

Цитата:
Сообщение от mezko Посмотреть сообщение
Насколько я помню Паскаль, то задача эта совсем несложная.
Любой школьник-троечник с закрытыми глазами напишет.
Цитата:
Сообщение от mezko Посмотреть сообщение
А вот как решать системы я не знаю и знать не хочу
Прискорбно...
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 02.06.2014, 19:34   #7 (permalink)
mezko
Member
 
Аватар для mezko
 
Регистрация: 05.02.2014
Адрес: Львів, Україна
Сообщений: 473
Сказал(а) спасибо: 10
Поблагодарили 24 раз(а) в 6 сообщениях
Репутация: 2997
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Прискорбно...
Возможно оно и так, но ничего с собой поделать не могу - математика для меня как темный лес в темную ночь) При том со старших классов школы еще... Из-за этого много проблем, ведь почти все науки связаны с математикой - и химия, и физика, и электротехника и многие другие.
mezko вне форума   Ответить с цитированием
Старый 02.06.2014, 19:37   #8 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,977
Сказал(а) спасибо: 322
Поблагодарили 543 раз(а) в 184 сообщениях
Репутация: 102235
По умолчанию

Цитата:
Сообщение от Egor1Mozi Посмотреть сообщение
А как это решать?
Ох, ну ладно - живите:
Код:
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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

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

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

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




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

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