Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
KeNnY_33
0 / 0 / 0
Регистрация: 29.11.2009
Сообщений: 17
1

Циклы.

29.11.2009, 09:58. Просмотров 505. Ответов 4
Метки нет (Все метки)

вот те самые задачки))
0
Миниатюры
Циклы.   Циклы.  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2009, 09:58
Ответы с готовыми решениями:

Переведите исходные циклы в циклы других форматотв:
Переведите исходные циклы в циклы других форматотв: For i:73 to 122 do в Цикл while: в Цикл...

Циклы с параметром (циклы ДЛЯ)
Заданные векторы X(N) и Y(N) преобразовать по правилу: большее из xi и yi принять в качестве нового...

Циклы
Найти S=факториал(2*j), где m и n заданные числа. Не просил бы помощи,если бы сам не...

Циклы
1).Известны оценки абитуриента на четырех экзаменах. Определить сумму набранных им баллов. ...

Циклы.
Доброго времени суток, уважаемые форумчане. Помогите пожалуйста с решением следующих задачек, думаю...

4
Puporev
Модератор
54582 / 42088 / 29061
Регистрация: 18.05.2008
Сообщений: 99,260
29.11.2009, 11:54 2
1. t-все с температурой, v-все с временем(тау).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const
tz=800;
ttv=327;
var v,vi:real;
function Tsred(v,vi:real):real;
begin
v:=-ln(ttv/tz)/0.021;
if vi<v then Tsred:=tz*exp(-0.021*vi)
else if vi>v then Tsred:=ttv*exp(-0.015*(vi-v));
end;
 
begin
clrscr;
writeln('При v= 10 Тсред=',Tsred(v,10):5:1);
writeln('При v= 20 Тсред=',Tsred(v,20):5:1);
writeln('При v= 30 Тсред=',Tsred(v,30):5:1);
writeln('При v= 50 Тсред=',Tsred(v,50):5:1);
writeln('При v=100 Тсред=',Tsred(v,100):5:1);
readln
end.
Добавлено через 12 минут
2. В ответах к задаче при 0.05 ошибка.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const
a=0.0288;
b=0.032;
t=15.7;
function P(v:real):real;
begin
P:=0.0635*t/(v-b)-a/(v*v);
end;
begin
clrscr;
writeln('При V=0.05 P=',P(0.05):0:3);
writeln('При V=0.10 P=',P(0.10):0:3);
writeln('При V=0.15 P=',P(0.15):0:3);
writeln('При V=0.20 P=',P(0.20):0:3);
writeln('При V=0.40 P=',P(0.40):0:3);
writeln('При V=0.60 P=',P(0.60):0:3);
writeln('При V=0.80 P=',P(0.80):0:3);
writeln('При V=1.00 P=',P(1.00):0:3);
readln
end.
Добавлено через 2 минуты
Я только не понял при чем тут циклы в названии второй задачи. Если бы точки вычислений были заданны через одинаковый интервал, то был бы цикл, а так приходится вычислять в каждой точке.
1
KeNnY_33
0 / 0 / 0
Регистрация: 29.11.2009
Сообщений: 17
29.11.2009, 12:01  [ТС] 3
2 задача там раздел 'циклы с пред и пост условием';

Огромнишее спасибо!!!я просто адски рад!!вы просто не представляете как вы мне помогли!!!
0
Puporev
Модератор
54582 / 42088 / 29061
Регистрация: 18.05.2008
Сообщений: 99,260
29.11.2009, 12:02 4
Понял как сделать №2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const
a=0.0288;
b=0.032;
t=15.7;
function P(v:real):real;
begin
P:=0.0635*t/(v-b)-a/(v*v);
end;
var v:real;
begin
clrscr;
v:=0;
while v<1 do
 begin
  if v<=0.2 then v:=v+0.05
  else v:=v+0.2;
  writeln('При V=',v:4:2,' P=',P(v):0:3);
 end;
readln
end.
1
KeNnY_33
0 / 0 / 0
Регистрация: 29.11.2009
Сообщений: 17
29.11.2009, 12:06  [ТС] 5
ещё раз МЕГА спасибо!!!)))
0
29.11.2009, 12:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2009, 12:06

циклы
Составить программу,которая находит наибольшее значение отношения трехзначного числа к сумме его...

циклы
http://zadachki.ucoz.ru/forum/2-989-3169-16-1277028694

Циклы
Не понимаю как дополнить программу. Вот условие задачи: Ввести натуральное число n (от - 1000000...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru