Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
KeNnY_33
0 / 0 / 0
Регистрация: 29.11.2009
Сообщений: 17
#1

Циклы. - Pascal

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

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

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

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

циклы - Pascal
плз решите задачу тремя циклами буду очень рад и благодарен.

Циклы - Pascal
помогите пожалуйста: 3. Начав тренировки спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивает дневную норму на...

циклы - Pascal
дано натуральное число n.составить программу которая вычислит ряд 1)S=1-1\2+1\4-1\8+...+(-1^n)*1\2^n. ...

Циклы - Pascal
Создать программы при активации которых на экран будет выводиться таблица умножения на два. Нужно сделать через циклы: For, While,...

4
Puporev
Модератор
52965 / 40776 / 14029
Регистрация: 18.05.2008
Сообщений: 94,819
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
Модератор
52965 / 40776 / 14029
Регистрация: 18.05.2008
Сообщений: 94,819
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
Привет! Вот еще темы с ответами:

Циклы - Pascal
Выполнить суммирование членов бесконечного ряда по точности та по колическву членов

на циклы - Pascal
Вычислить и вывести на экран в виде таблице значения функции, заданной графически на интервале от Хn до Хк с шагом Dx. Интервал и шаг...

Циклы - Pascal
напишите программу, запрашивающую возраст пользователя, а затем печатающую текст &quot;Да ты крут!&quot; по числу прожитых лет. Обратите внимание,что...

циклы - Pascal
1. Вычислить значение выражения с использованием трех видов цикла. Дано действительное число x и натуральное число n. Среди чисел x^1,...


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

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

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