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

Форум программистов: 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 ] 


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

Зарегистрированные пользователи: Google [Bot]


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

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