Решить систему линейных уровнений

@Вован22 · Регистрация: 06.10.2013

Студворк — интернет-сервис помощи студентам

решить систему линейных
уровнений
а1х+в1у=с1
а2х+в2у=с2 ребят зделайте пожалусто
код поскали

magirus · 07.10.2013, 10:00

Комментарий администратора

а что найти самостоятельно раздел Паскаль сил не хватило?
перенесено из Java Script

@Puporev · 07.10.2013, 11:01

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var a1,a2,b1,b2,c1,c2:integer;
    d,d1,d2:real;
begin
clrscr;
writeln('Эта программа решает систему двух линейных уравнений с двумя неизвестными:');
writeln('Введите коэффициенты системы:');
readln(a1,b1,c1,a2,b2,c2);
d:=a1*b2-a2*b1;
if d=0 then
 begin
  writeln('Система не имеет решений!');
  readln;
  exit;
 end;
d1:=a1*c2-a2*c1;
d2:=c1*b2-c2*b1;
writeln('x1=',d1/d:0:2);
writeln('x2=',d2/d:0:2);
readln
end.

@LOLYOU1996 · 07.10.2013, 11:54

Сообщение от Вован22

решить систему линейных
уровнений
а1х+в1у=с1
а2х+в2у=с2 ребят зделайте
пожалусто
код поскали

о боже какой грамотный человек -_-

P.S знаю что ответ не по теме, я не удержался

@Cyborg Drone · 07.10.2013, 12:55

Не по теме:

Сообщение от LOLYOU1996

о боже какой грамотный человек -_-

LOLYOU1996, в том-то и дело, что дело-то не в том... Вы не допускаете, что для Вован22 русский язык не является родным? И, может быть, честь ему и хвала, что Вы его ещё и вполне понимаете?

Вован22, решение методом Крамера:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program roots;
 
var a1, a2, b1, b2, c1, c2, d: real;
 
begin
  write('a1 = ');
  readln(a1);
  write('b1 = ');
  readln(b1);
  write('c1 = ');
  readln(c1);
  write('a2 = ');
  readln(a2);
  write('b2 = ');
  readln(b2);
  write('c2 = ');
  readln(c2);
  d := a1 * b2 - b1 * a2;
  if d = 0
    then writeln('Not happens!') {основной определитель системы = 0, решение методом Крамера невозможно}
    else
      begin
        writeln('x = ', (c1 * b2 - b1 * c2) / d);
        writeln('y = ', (a1 * c2 - c1 * a2) / d)
      end;
  readln
end.

@Вован22 · 07.10.2013, 14:49 **[ТС]**

это не до конца

@Puporev · 07.10.2013, 14:52

Сообщение от Вован22

это не до конца

А что еще нужно?

@Вован22 · 07.10.2013, 15:04 **[ТС]**

там же нуля не равняется а еще продолжение должно чтобы нуля равнялась

@Puporev · 07.10.2013, 15:09

Сообщение от Вован22

там же нуля не равняется

Что должно равняться "нуля" в системе

2x+3y=15
-x+3y=4

@Вован22 · 07.10.2013, 15:11 **[ТС]**

да.

@Puporev · 07.10.2013, 15:14

Слушай, если не понял, учи. Моя программа решает любую систему, имеющую действительные корни, либо сообщающая что решений нет.

@Joker_vad · 07.10.2013, 17:40

напишешь без ошибок сделаю)

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Вован22 0 / 0 / 0 Регистрация: 06.10.2013 Сообщений: 37

	Решить систему линейных уровнений 07.10.2013, 09:58. Показов 1123. Ответов 11 Метки нет (Все метки) решить систему линейных уровнений а1х+в1у=с1 а2х+в2у=с2 ребят зделайте пожалусто код поскали 0

@Вован22 0 / 0 / 0 Регистрация: 06.10.2013 Сообщений: 37
	07.10.2013, 14:49 [ТС]
	это не до конца 0

@Вован22 0 / 0 / 0 Регистрация: 06.10.2013 Сообщений: 37
	07.10.2013, 15:04 [ТС]
	там же нуля не равняется а еще продолжение должно чтобы нуля равнялась 0

@Вован22 0 / 0 / 0 Регистрация: 06.10.2013 Сообщений: 37
	07.10.2013, 15:11 [ТС]
	да. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	07.10.2013, 15:14
	Слушай, если не понял, учи. Моя программа решает любую систему, имеющую действительные корни, либо сообщающая что решений нет. 0

@Joker_vad 476 / 413 / 93 Регистрация: 26.09.2012 Сообщений: 1,922
	07.10.2013, 17:40
	напишешь без ошибок сделаю) 0