|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
05.11.2015, 15:24 | #1 (permalink) |
Новичок
Регистрация: 05.11.2015
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите нарисовать блок-схему
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. |
05.11.2015, 15:24 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Однородные проблемы уже обсуждались, пожалуйста, обратите на них внимание Надо нарисовать электрическую схему Нужно из печатной платы нарисовать схему |
05.11.2015, 16:19 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Не, ну до чего народ ленивый пошел - пальцем о палец не ударить, всё няньки нужны! Ведь есть уже даже OnLine сервисы на эту тему, да вот хотя бы Блок-схема онлайн - так нет же, сделайте за меня. Ладно, пожалуйста. Загнал туда Ваш код, оно выдало вот это:
|
05.11.2015, 17:13 | #3 (permalink) |
Новичок
Регистрация: 05.11.2015
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо Вам большое!)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
pascal abc, блок-схема. |
Опции темы | |
Опции просмотра | |
|
|