Страница 1 из 3

Программа для расчёта погрешностей по физпраку.

Добавлено: Вт окт 31, 2006 9:51 pm
Фомин И.С.
Программа для расчёта погрешностей по физпраку.
Язык русский.
Скачать: http://geo.web.ru/~fomin/helpful/Errors.zip
Размер 50 KB.

Обо всех вопросах пишите сюда.

Добавлено: Чт ноя 02, 2006 8:26 pm
St.MPA3b
Под линуксом через эмулятор не запускается :(
Не выложишь исходник?

Добавлено: Пт ноя 03, 2006 12:45 am
Фомин И.С.
Исходный код (C++)

Код: Выделить всё

#include "stdafx.h"
#include "math.h"
#include "iostream.h"

int main(int argc, char* argv[])
{
   int ForExNum = 0;
   double n =0;
   double a[100];
   double S;
   double  pr;
   double rn;
   double amid =0;
   double SKP =0;
   double PSA =0;
   double PPI = 0;
   double OPI  =0;
   double delta =0;
   cout << "(C) IFomin 2006\r\n";
   cout << "\x82\xa2\xa5\xa4\xa8\xe2\xa5 \xaa\xae\xab\xa8\xe7\xa5\xe1\xe2\xa2\xae \xe1\xa4\xa5\xab\xa0\xad\xad\xeb\xe5 \xa8\xa7\xac\xa5\xe0\xa5\xad\xa8\xa9: ";
   cin >> n;
   cout << "\x82\xa2\xa5\xa4\xa8\xe2\xa5 \xaa\xae\xed\xe4\xe4\xa8\xe6\xa8\xa5\xad\xe2 \x91\xe2\xec\xee\xa4\xa5\xad\xe2\xa0: ";
   cin >> S;
   cout << "\x82\xa2\xa5\xa4\xa8\xe2\xa5 \xaf\xe0\xa8\xa1\xae\xe0\xad\xe3\xee \xaf\xae\xa3\xe0\xa5\xe8\xad\xae\xe1\xe2\xec: ";   
   cin >> pr;
   cout << " ----------------------------------------------------------\r\n";
   cout<<"\x82\xa2\xa5\xa4\xa8\xe2\xa5 \xae\xaf\xeb\xe2\xad\xeb\xa5 \xa4\xa0\xad\xad\xeb\xa5:\r\n";
   for (int i = 0; i < n; i++)
   {
      ForExNum =i + 1;
      cout<<"\x82\xa2\xa5\xa4\xa8\xe2\xa5 \xa7\xad\xa0\xe7\xa5\xad\xa8\xa5 " << ForExNum <<cin>>a[i];
      amid += a[i];
   }
   amid /= n;
   for (i = 0; i < n; i++)
   {
      delta += (amid-a[i])*(amid-a[i]);
   }
   delta /= (n-1);
   SKP = sqrt(delta);
   PSA = SKP / sqrt(n);
   rn = S * PSA;
   delta  = rn*rn + pr*pr;
   PPI = sqrt(delta);
   OPI = PPI * 100 / amid;
   cout << " ----------------------------------------------------------\r\n";
   cout << "\x91\xe0\xa5\xa4\xad\xa5\xa5 \xa7\xad\xa0\xe7\xa5\xad\xa8\xa5 " << amid << "\r\n";
   cout << "\x91\xe0\xa5\xa4\xad\xef\xef \xaa\xa2\xa0\xa4\xe0\xa0\xe2\xa8\xe7\xad\xa0\xef \xaf\xae\xa3\xe0\xa5\xe8\xad\xae\xe1\xe2\xec " << SKP << "\r\n";
   cout << "\x8f\xae\xa3\xe0\xa5\xe8\xad\xae\xe1\xe2\xec \xe1\xe0\xa5\xa4\xad\xa5\xa3\xae \xa7\xad\xa0\xe7\xa5\xad\xa8\xef " << PSA << "\r\n";
   cout << "\x91\xab\xe3\xe7\xa0\xa9\xad\xa0\xef \xaf\xae\xa3\xe0\xa5\xe8\xad\xae\xe1\xe2\xec " << rn << "\r\n";
   cout << "\x8f\xae\xab\xad\xa0\xef \xaf\xae\xa3\xe0\xa5\xe8\xad\xae\xe1\xe2\xec " << PPI << "\r\n";
   cout << "\x8e\xe2\xad\xae\xe1\xa8\xe2\xa5\xab\xec\xad\xa0\xef \xaf\xae\xa3\xe0\xa5\xe8\xad\xae\xe1\xe2\xec " << OPI << " %\r\nPress any key and then 'enter'";
   cin>>n;

   return 0;
}
[/code]

Добавлено: Пт ноя 03, 2006 9:56 pm
ir4ik
îé, ñïàñèáî òåáå áîëüøîå! Òû ãåíèé!

Добавлено: Пн ноя 05, 2007 12:02 am
NIRVANA
главное сначала самим считать погрешности, а потом уже проверять :D

Re: Программа для расчёта погрешностей по физпраку.

Добавлено: Пт окт 16, 2009 2:43 pm
Фомин И.С.
обновлена битая ссылка...

Propecia Topical Hair Loss KelPiency

Добавлено: Пт ноя 15, 2019 12:42 am
KelPiency
Viagra Omeprazole Interaction Buy Z Pack Over The Internet Online Pharmacy Kamagra viagra Propecia Canadian

Levitra Ohne Rezept Mieten KelPiency

Добавлено: Пт ноя 15, 2019 12:42 am
KelPiency
Contact Customer Ed Online Pharmacy Using Paypal Cialis Impotencia Psicologica cialis without prescription Cash On Delivery Finasteride 10mg

Achat Amoxicillin 5mg KelPiency

Добавлено: Пт ноя 15, 2019 12:43 am
KelPiency
Lightheaded From Amoxicillin Levitra Dispersable generic levitra online pharmacy Buy Viagra Online Legitiment Cheap Zithromax Online

Generic Viagra Professional KelPiency

Добавлено: Пт ноя 15, 2019 12:44 am
KelPiency
Viagra Da Banco Achat De Ciprofloxacin En Ligne Augmentin Vs Zithromax cialis overnight shipping from usa Is Cephalexin A Form Of Pennicilin Cheap Flovent Viagra in polen kaufen

Viagra Pour Canard KelPiency

Добавлено: Пт ноя 15, 2019 12:44 am
KelPiency
Viagra Sur Homme Can Viagra 100mg Be Dangerous? viagra Generic Viagra Sale

Cialis Cardiaque KelPiency

Добавлено: Пт ноя 15, 2019 12:45 am
KelPiency
Viagra No Perscribtion cheap cialis Propecia Finacapil

Canada Pacription Drugs KelPiency

Добавлено: Пт ноя 15, 2019 12:45 am
KelPiency
Cialis Viagra Farmacia buy viagra online Amoxicillin Dosierung

Achat Viagra France KelPiency

Добавлено: Пт ноя 15, 2019 12:46 am
KelPiency
Priligy Comprar Online viagra online pharmacy Zithromax 5 Day Pack

Antinfiammatorio Levitra KelPiency

Добавлено: Пт ноя 15, 2019 12:46 am
KelPiency
Buy Amoxicillin Antibiotics Cialis Prescrizione Comment Se Procurer Du Viagra Sans Ordonnance cialis 40 mg Cialis E Interazioni Viagra Cialis Farmaci