Блок-схема
uses crt;
var n:integer; e,s,t:real; begin clrscr; e:=0.0001; n:=0; t:=1; s:=t; while abs(t)>e do begin n:=n+1; t:=-t/n; s:=s+t; end; writeln('S =',s:0:5); write('1/e=',1/exp(1):0:5); readln end. |
Вложений: 1
Вложение 110766 Вот это правильно, вот это по-нашему! Ясно, четко, лаконично, по-деловому. Отдан приказ - исполнять! И никаких там "здрасьте", да "помогите", да "прошу", да "пожалуйста" и прочей ненужной мишуры. Класс!
|
блок-схема
здраствуйте, помогите с блок-схемой
uses crt; var n:integer; e,s,t:real; begin clrscr; e:=0.0001; n:=0; t:=1; s:=t; while abs(t)>e do begin n:=n+1; t:=-t/n; s:=s+t; end; writeln('S =',s:0:5); write('1/e=',1/exp(1):0:5); readln end. |
Вложений: 1
Цитата:
|
Часовой пояс GMT +4, время: 04:20. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.