Пример решения математической моделиЗадание 1. Найдите решение системы уравнений: ответ запишите сточностью до 0, 1.Ход работыРешением уравнения являются значения точек пересечения графикафункции с осью абсцисс, а решением системы уравнений являются точкипересечения графиков функций.1. Преобразуем данную систему к виду (приведенный вид)2. Произвольно выберем диапазон значений х, например от –10 до 10 сшагом 1 (если на графике не будет точек пересечения, то необходимоподобрать другие значения х Построим таблицу, состоящую из трехстолбцов х, у 1 , у 2 и заполним ее.x-10 100 -16- 9 81 -14…3. Для оценки решений воспользуемся точечной диаграммой, накоторой отобразим графики обеих функций.Координаты точек пересечения графиков - решения системы, нополучены приближенные значения решений с точностью, равной 1.4. Для уточнения значений решений построим графики в интервалахот -2 до 0, где находится первое решение, и от 2 до 4, гденаходится второе решение.5. Составляем новую таблицу для -2 ≤ х ≤ 0 с шагом 0, 1 и строимточечную диаграмму для получения первого решения.6. Составляем новую таблицу для 2 ≤ х ≤ 4 с шагом 0, 1 и строимточечную диаграмму для получения второго решения.7. Решением нашей системы будут координаты точек пересеченияграфиков:.Графическое решение системы уравнений является приближенным.

Var        
R1, R2, R3, S1, S2, S3: Integer;        
begin             
writeln('Введите размеры рации и чемодана');             
readln(R1, R2, R3, S1, S2, S3);             
 if ((R1 < S1) and (R2 < S2) and (R3 < S3)) or             
((R3 < S3) and (R2 < S1) and (R1 < S2)) or             
((R1 < S1) and (R2 < S3) and (R3 < S3)) or             
((R2 < S2) and (R1 < S3) and (R3 < S1)) or             
 ((R2 < S1) and (R3 < S2) and (R1 < S3)) or             
((R1 < S2) and (R3 < S1) and (R2 < S3)) then
WriteLn('ПОМЕЩАЕТСЯ')  
 else
WriteLn('НЕ ПОМЕЩАЕТСЯ');
end.

Romanf romanf отличник 2013-01-10t16: 13: 22+00: 00 1. подумать над алгоритмом 2. вот сам алгоритм: а. спросить у пользователя значения б. расчитать ответ в. выдать ответ на экран 3. написать код в паскале 4. исправить ошибки компиляции 5. протестировать, вводить разные числа 6. обнаружила, что если вводить числа наугад ответ получается отрицательным иногда 7. вставить код проверки введенных пользователем значений 8. убрать ошибки компиляции 9. протестировать 10. готово а вот и сама программа: program aerobus; uses crt; const totalplace = 160; var businessplaces, economyplaces: integer; businessprice, economyprice: real; totalcharge: real; a,b: integer; correctinput: boolean; begin clrscr; businessplaces: =totalplace div 4; economyplaces: = totalplace - businessplaces; writeln('business places count: ', businessplaces); writeln('economy places count: ', economyplaces); correctinput: =false; while not correctinput do begin write('please input business class ticket price: '); readln(businessprice); if(businessprice> 0) then begin correctinput: =true; end else begin writeln('the price should be a positive number, please try again'); end; end; economyprice: =businessprice/2; writeln('economy ticket price is: ', economyprice: 0: 2); correctinput: =false; while not correctinput do begin write('how many business tickets are left? : '); readln(a); if(a> =0) and (a< =businessplaces)then correctinput: =true; if(a< 0) then begin writeln('please input a positive number or 0, please try again'); end; if(a> businessplaces) then begin writeln('please input a number which is less or equal to the tolal business place count, please try again'); end; end; correctinput: =false; while not correctinput do begin write('how many economy tickets are left? : '); readln(b); if(b> =0) and (b< =economyplaces)then correctinput: =true; if(b< 0) then begin writeln('please input a positive number or 0, please try again'); end; if(b> economyplaces) then begin writeln('please input a number which is less or equal to the tolal economy place count, please try again'); end; end; totalcharge: =(businessplaces-a)*businessprice; totalcharge: =totalcharge+(economyplaces-b)*economyprice; writeln('the total charge is: ', totalcharge: 0: 2); writeln; writeln('press enter to exit'); readln; end.