→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ Сообщений: 3 ] 
Прошу помощи разобратся в коде!!! 
Автор Сообщение
Начинающий

Регистрация: 11.02.2010
Сообщения: 1

Репутация: 0 [ ? ]
Сообщение Прошу помощи разобратся в коде!!!
[quote="Ритачка"]в общем тут такое дело!я написала программу на паскале!!!но говорят что можно её написать немного в инном виде только как это зделать я не знаю!!!кто может эту программу может не многа переделать!!!???? а есле есть возможность то пожалуста выложите код этой программы на С++ БУДУ ОЧЕНЬ БЛАГОДАРНА ЗА ПОМОШЬ!!!!

П.С.пажалуста памагите =(

ВОТ САМ КОД


program zadacha;
var exit,n:integer; F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,F,tnp,sigma,Fmin,Fmax:real;
label n1,n2,n3,n4,n5,n6,n7,n8,n9,n10;
begin
writeln('PROGRAMMA NE UCHITIVAET KRATNIE I DOLNIE PRISTAVKI!!!');
writeln('VVEDITE ZNACHENIE tnp:');
read(tnp);
writeln('BBEDITE KOLICHESTVO IZMERENII n: ');
read(n);
case n of
1: write('SLISHKOM MALOE ZNACHENIE n');
2:
begin
writeln('VVEDITE ZNACHENIYA IZMERENII V SOOTVETSTVII F1,F2: ');
read(F1,F2);
F:=(F1+F2)/2;
a1:=abs(F1-F);
a2:=abs(F2-F);
sigma:=sqrt(((a1*a1)+(a2*a2))/(n*n-1));
Fmax:=F+(tnp*sigma);
Fmin:=F-(tnp*sigma);
writeln('F=',F:1:10);
writeln('a1=',a1:1:4);
writeln('a2=',a2:1:4);
writeln('sigma=',sigma:1:5);
writeln('Fmax=',Fmax:1:10);
writeln('Fmin=',Fmin:1:10);
end;
3:
begin
writeln('VVEDITE ZNACHENIYA IZMERENII V SOOTVETSTVII F1,F2,F3: ');
read(F1,F2,F3);
F:=(F1+F2+F3)/3;
a1:=abs(F1-F);
a2:=abs(F2-F);
a3:=abs(F3-F);
sigma:=sqrt(((a1*a1)+(a2*a2)+a3*a3))/(n*(n-1));
Fmax:=F+(tnp*sigma);
Fmin:=F-(tnp*sigma);
writeln('F=',F:1:10);
writeln('a1=',a1:1:4);
writeln('a2=',a2:1:4);
writeln('a3=',a3:1:4);
writeln('sigma=',sigma:1:5);
writeln('Fmax=',Fmax:1:10);
writeln('Fmin=',Fmin:1:10);
end;
4:
begin
writeln('VVEDITE ZNACHENIYA IZMERENII V SOOTVETSTVII F1,F2,F3,F4: ');
read(F1,F2,F3,F4);
F:=(F1+F2+F3+F4)/4;
a1:=abs(F1-F);
a2:=abs(F2-F);
a3:=abs(F3-F);
a4:=abs(F4-F);
sigma:=sqrt(((a1*a1)+(a2*a2)+(a3*a3)+(a4*a4))/(n*(n-1)));
Fmax:=F+(tnp*sigma);
Fmin:=F-(tnp*sigma);
writeln('F=',F:1:10);
writeln('a1=',a1:1:4);
writeln('a2=',a2:1:4);
writeln('a3=',a3:1:4);
writeln('a4=',a4:1:4);
writeln('sigma=',sigma:1:5);
writeln('Fmax=',Fmax:1:10);
writeln('Fmin=',Fmin:1:10);
end;
5:
begin
writeln('VVEDITE ZNACHENIYA IZMERENII V SOOTVETSTVII F1,F2,F3,F4,F5: ');
read(F1,F2,F3,F4,F5);
F:=(F1+F2+F3+F4+F5)/5;
a1:=abs(F1-F);
a2:=abs(F2-F);
a3:=abs(F3-F);
a4:=abs(F4-F);
a5:=abs(F5-F);
sigma:=sqrt(((a1*a1)+(a2*a2)+(a3*a3)+(a4*a4)+(a5*a5))/(n*(n-1)));
Fmax:=F+(tnp*sigma);
Fmin:=F-(tnp*sigma);
writeln('F=',F:1:10);
writeln('a1=',a1:1:4);
writeln('a2=',a2:1:4);
writeln('a3=',a3:1:4);
writeln('a4=',a4:1:4);
writeln('a5=',a5:1:4);
writeln('sigma=',sigma:1:5);
writeln('Fmax=',Fmax:1:10);
writeln('Fmin=',Fmin:1:10);
end;
6:
begin
writeln('VVEDITE ZNACHENIYA IZMERENII V SOOTVETSTVII F1,F2,F3,F4,F5,F6: ');read(F1,F2,F3,F4,F5,F6);
F:=(F1+F2+F3+F4+F5+F6)/6;
a1:=abs(F1-F);
a2:=abs(F2-F);
a3:=abs(F3-F);
a4:=abs(F4-F);
a5:=abs(F5-F);
a6:=abs(F5-F);
sigma:=sqrt(((a1*a1)+(a2*a2)+(a3*a3)+(a4*a4)+(a5*a5)+(a6*a6))/(n*(n-1)));
Fmax:=F+(tnp*sigma);
Fmin:=F-(tnp*sigma);
writeln('F=1',F:1:10);
writeln('a1=',a1:1:4);
writeln('a2=',a2:1:4);
writeln('a3=',a3:1:4);
writeln('a4=',a4:1:4);
writeln('a5=',a5:1:4);
writeln('a6=',a6:1:4);
writeln('sigma=',sigma:1:5);
writeln('Fmax=',Fmax:1:10);
writeln('Fmin=',Fmin:1:10);
end;
7:
begin
writeln('VVEDITE ZNACHENIYA IZMERENII V SOOTVETSTVII F1,F2,F3,F4,F5,F6,F7:');
read(F1,F2,F3,F4,F5,F6,F7);
F:=(F1+F2+F3+F4+F5+F6+F7)/7;
a1:=abs(F1-F);
a2:=abs(F2-F);
a3:=abs(F3-F);
a4:=abs(F4-F);
a5:=abs(F5-F);
a6:=abs(F6-F);
a7:=abs(F7-F);
sigma:=sqrt(((a1*a1)+(a2*a2)+(a3*a3)+(a4*a4)+(a5*a5)+(a6*a6)+(a7*a7))/(n*(n-1)));
Fmax:=F+(tnp*sigma);
Fmin:=F-(tnp*sigma);
writeln('F=',F:1:10);
writeln('a1=',a1:1:4);
writeln('a2=',a2:1:4);
writeln('a3=',a3:1:4);
writeln('a4=',a4:1:4);
writeln('a5=',a5:1:4);
writeln('a6=',a6:1:4);
writeln('a7=',a7:1:4);
writeln('sigma=',sigma:1:5);
writeln('Fmax=',Fmax:1:10);
writeln('Fmin=',Fmin:1:10);
end;
8:
begin
writeln('VVEDITE ZNACHENIYA IZMERENII V SOOTVETSTVII F1,F2,F3,F4,F5,F6,F7,F8:');
read(F1,F2,F3,F4,F5,F6,F7,F8);
F:=(F1+F2+F3+F4+F5+F6+F7+F8)/8;
a1:=abs(F1-F);
a2:=abs(F2-F);
a3:=abs(F3-F);
a4:=abs(F4-F);
a5:=abs(F5-F);
a6:=abs(F6-F);
a7:=abs(F7-F);
a8:=abs(F8-F);
sigma:=((a1*a1)+(a2*a2)+(a3*a3)+(a4*a4)+(a5*a5)+(a6*a6)+(a7*a7)+(a8*a8))/(n*(n-1));
Fmax:=F+(tnp*sigma);
Fmin:=F-(tnp*sigma);
writeln('F=',F:1:10);
writeln('a1=',a1:1:4);
writeln('a2=',a3:1:4);
writeln('a3=',a3:1:4);
writeln('a4=',a4:1:4);
writeln('a5=',a5:1:4);
writeln('a6=',a6:1:4);
writeln('a7=',a7:1:4);
writeln('a8=',a8:1:4);
writeln('sigma=',sigma:1:5);
writeln('Fmax=',Fmax:1:10);
writeln('Fmin=',Fmin:1:10);
end;
9:
begin
writeln('VVEDITE ZNACHENIYA IZMERENII V SOOTVETSTVII F1,F2,F3,F4,F5,F6,F7,F8,F9:');
read(F1,F2,F3,F4,F5,F6,F7,F8,F9);
F:=(F1+F2+F3+F4+F5+F6+F7+F8+F9)/9;
a1:=abs(F1-F);
a2:=abs(F2-F);
a3:=abs(F3-F);
a4:=abs(F4-F);
a5:=abs(F5-F);
a6:=abs(F6-F);
a7:=abs(F7-F);
a8:=abs(F8-F);
a9:=abs(F9-F);
sigma:=((a1*a1)+(a2*a2)+(a3*a3)+(a4*a4)+(a5*a5)+(a6*a6)+(a7*a7)+(a8*a8)+(a9*a9))/(n*(n-1));
Fmax:=F+(tnp*sigma);
Fmin:=F-(tnp*sigma);
writeln('F=',F:1:10);
writeln('a1=',a1:1:4);
writeln('a2=',a3:1:4);
writeln('a3=',a3:1:4);
writeln('a4=',a4:1:4);
writeln('a5=',a5:1:4);
writeln('a6=',a6:1:4);
writeln('a7=',a7:1:4);
writeln('a8=',a8:1:4);
writeln('a9=',a9:1:4);
writeln('sigma=',sigma:1:5);
writeln('Fmax=',Fmax:1:10);
writeln('Fmin=',Fmin:1:10);
end;
10:
begin
writeln('VVEDITE ZNACHENIYA IZMERENII V SOOTVETSTVII F1,F2,F3,F4,F5,F6,F7,F8,F9,F10:');
read(F1,F2,F3,F4,F5,F6,F7,F8,F9,F10);
F:=(F1+F2+F3+F4+F5+F6+F7+F8+F9+F10)/10;
a1:=abs(F1-F);
a2:=abs(F2-F);
a3:=abs(F3-F);
a4:=abs(F4-F);
a5:=abs(F5-F);
a6:=abs(F6-F);
a7:=abs(F7-F);
a8:=abs(F8-F);
a9:=abs(F9-F);
a10:=abs(F10-F);
sigma:=((a1*a1)+(a2*a2)+(a3*a3)+(a4*a4)+(a5*a5)+(a6*a6)+(a7*a7)+(a8*a8)+(a9*a9)+(a10*a10))/(n*(n-1));
Fmax:=F+(tnp*sigma);
Fmin:=F-(tnp*sigma);
writeln('F=',F:1:10);
writeln('a1=',a1:1:4);
writeln('a2=',a3:1:4);
writeln('a3=',a3:1:4);
writeln('a4=',a4:1:4);
writeln('a5=',a5:1:4);
writeln('a6=',a6:1:4);
writeln('a7=',a7:1:4);
writeln('a8=',a8:1:4);
writeln('a9=',a9:1:4);
writeln('a10=',a10:1:4);
writeln('sigma=',sigma:1:5);
writeln('Fmax=',Fmax:1:10);
writeln('Fmin=',Fmin:1:10);
end;
else writeln('SLISHKOM BOLSHOE ZNACHENIE n');
end;
writeln('DLYA VIHODA exit=1');
writeln('EXIT:');
read(exit);
if exit=1 then
end.


ЕСЛЕ МОЖНО ЭТО ЖЕ только или в ином виде (может как то код спростить можно???) или на С++ ....


11.02.2010 21:48
Профиль Отправить email
Мастер

Регистрация: 26.12.2009
Сообщения: 154
Откуда: Kiev
Языки:
Специальность:

Репутация: 7 [ ? ]
Сообщение Re: Прошу помощи разобратся в коде!!!

_________________
yaroslav91@gmail.com


13.02.2010 8:03
Профиль Отправить email ICQ
Продвинутый

Регистрация: 02.11.2009
Сообщения: 29

Репутация: 1 [ ? ]
Сообщение Re: Прошу помощи разобратся в коде!!!


13.02.2010 17:41
Профиль ICQ
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 3 ] 


Кто сейчас на конференции

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

Перейти:  
cron
© 2013 «Форум программистов Украины»