Вторник, 14.05.2024
Pascal 4 All
[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

 

  • Страница 1 из 1
  • 1
Модератор форума: Seqular, Pavel  
Форум » Обсуждение задач » Новые задачи » Помогите с простой задачей (Простая задача в паскале)

Помогите с простой задачей
LExAДата: Вторник, 22.04.2014, 23:05 | Сообщение # 1
Новичок
Группа: Пользователи
Сообщений: 1
Репутация: 0
Замечания: 0%
Статус: Offline
Все формулы и значения даны,график стоить не надо,только посчитать.
Прикрепления: 8118756.jpg (55.8 Kb)
 
den19Дата: Пятница, 18.07.2014, 06:41 | Сообщение # 2
Новичок
Группа: Пользователи
Сообщений: 1
Репутация: 0
Замечания: 0%
Статус: Offline

Код
program easy;
const pr=10;
var re,i:longint;
function nu1(re1:longint):real;
begin
nu1:=(0.023*exp((4/5)*ln(re1))*pr)/(1+2.14*exp((-1/10)*ln(re1))*(exp((2/3)*ln(pr))-1));
end;
function nu2(re2:longint):real;
begin
nu2:=0.023*exp((4/5)*ln(re2))*exp((2/5)*ln(pr));
end;

Begin
for i:=1 to 10 do
begin
if i=1 then re:=5000
  else inc(re,5000);
writeln(re,' ',nu1(re):0:1,' ',nu2(re):0:1);
end;
end.
 
Форум » Обсуждение задач » Новые задачи » Помогите с простой задачей (Простая задача в паскале)
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024
Используются технологии uCoz
javascript:;" rel="nofollow" onclick="loginPopupForm(); return false;