Помогите нарисовать блок-схему
Привет всем) Помогите, пожалуйста, нарисовать блок-схему по готовой программе.
Program CiklSVetvleniem; uses crt; const g = 10; var d, Fr, fi:real; V: array [0..5] of integer; i:integer; begin writeln('Vvedite diametr'); readln(d); V[0] := 1; V[1] := 2; V[2] := 5; V[3] := 10; V[4] := 20; V[5] := 50; for i := 0 to 5 do begin Fr := abs((exp(2 * ln(V[i])))/(g * d)); if Fr < 50 then fi := 0.05 * exp(0.2 * ln(Fr)) else fi := 0.35 * exp(0.1 * ln(Fr)); WriteLn('Koehfficient gazonasyshchennosti smesi = ',fi:0:3, ' pri Fr = ',Fr:0:3); end; ReadLn; end. |
Вложений: 1
Не, ну до чего народ ленивый пошел - пальцем о палец не ударить, всё няньки нужны! Ведь есть уже даже OnLine сервисы на эту тему, да вот хотя бы Блок-схема онлайн - так нет же, сделайте за меня. Ладно, пожалуйста. Загнал туда Ваш код, оно выдало вот это:
|
Спасибо Вам большое!)
|
Часовой пояс GMT +4, время: 08:08. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.