Здравствуйте. Помогите пожалуйста решить задачи - их нужно написать через PascalABC (или...

Question

Здравствуйте.
Помогите пожалуйста решить задачи - их нужно написать через PascalABC (или PascalABCNet), Dev C++ и Visual Basic 6.0. Нужно очень срочно! Или хоть что-нибудь из этого.

---

Answer 1

1.
var p,p2,m:real;
begin
write('p = '); readln(p);
p2:=p*p;
if (p>780)and(p<845)<br> then m:=sqr(0.456*p2/(8.33*1e5-p2))
 else if (p>=845)and(p<924)<br>        then m:=sqr(0.658*p2/(8.56*1e5-p2))
       else m:=0;
if m<>0 then writeln('M = ',m)
        else writeln('Ошибка ввода');
end.

Пример:
p = 800
M = 2.28652005691428

Comments

Накидал первую (только не на паскале, а на сиське), цифра результата при 800 сходится. Вторая задача как-то ускользает от понимания условия.

---

Спасибо большое вам! Ваша помощь неоценима! :)

Answer 2

#include "stdafx.h"#include #include "conio.h" #include "math.h"
using namespace std;
int _tmain(){setlocale(LC_ALL, "Russian");float p, m;cout << "Вводим p - ";cin >> p;if (845 <= p < 924){ m = pow((0.658 * pow(p, 2)) / 8.56 * pow(10, 5) - pow(p, 2), 2); cout << "m - " << m << endl;}else if (780 < p < 845){ m = pow((0.456*pow(p, 2) / 8.33*pow(10, 5) - pow(p, 2)), 2); cout << "m - " << m << endl;}else cout << "Неправильное значение p";_getch();return 0;}

Comments

Это на c++, еще не компилировал, но ошибок нет.

---

Спасибо!)