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

Табуляция

29.05.2012, 00:19. Просмотров 557. Ответов 1
Метки нет (Все метки)


Помогите решить 3 задачу. 2 решил,но не получается сделать так, чтобы произведение функции было отдельно в одной строке,а не повторялось.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program num2;
uses crt;
const k=0.017;
var x,u,p,r,y:real;
begin
clrscr;
x:=15;
r:=1;
while x<=85 do
 begin
 y:=sin(x)/cos(x)-Pi;
 u:=x*k;
 writeln('x(grad)=', x:3:0, ';  ' ,'x(rad)=',u:3:3,';  ', 'y=',y:3:3);
 x:=x+5;
 end;
   if u>1 then
   begin
   u:=r;
   p:=r*r;
   writeln('proizvedenie radianov ', r:2:3);
   end;
   readln
end.
0
Миниатюры
Табуляция  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.05.2012, 00:19
Ответы с готовыми решениями:

Табуляция
Доброго времени суток!Пожалуйсто,помогите с курсовой! Заменить в текстовом файле все табуляции на...

Табуляция
F(x) - табулируемая функция; - диапазон изменения аргумента

Ряды, табуляция
1. Дано n-целое. найти:sqrt{n+sqrt{n+...+sqrt{n}}} Помогите, пожалуйста. Кто понимает.:-|...

Табуляция функции
Создать программу для табуляции функции y=sin^2 (x)+√x на интервале c шагом 0,1.

1
0 / 0 / 1
Регистрация: 24.05.2012
Сообщений: 8
29.05.2012, 16:01  [ТС] 2
кто знает - подскажите, пожалуйста.

Добавлено через 2 часа 30 минут
Pascal
1
2
3
4
5
6
7
if u>1 then
   begin
   u:=r;
   p:=r*r;
   writeln('proizvedenie radianov ', r:2:3);
   end;
   readln
как сделать цикл, чтобы произведение считал?

Добавлено через 3 минуты
все сделал сам, спасибо за помощь
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.05.2012, 16:01

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Ответ: Табуляция
Люди,пожалуйста,помогите решить задачу.очень нужно и срочно. дан интервал и проивольные массивы...

Табуляция функции
в таблице представлены варианты,включающие в себя исходные данные для табуляции функции....

Табуляция функции
Решить уравнение:

Табуляция функции
*смотрите фото*


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

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

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