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

Программа использующая процедуру с параметрами

19.02.2010, 23:49. Просмотров 595. Ответов 3
Метки нет (Все метки)

Решите пожалуйста ! очень нужно!
Написать программу, использующую процедуру с параметрами, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры. Организовать вывод результата работы программы в виде текстового сообщения. Программа должна содержать комментарии, поясняющие работу программы.
0
Миниатюры
Программа использующая процедуру с параметрами  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.02.2010, 23:49
Ответы с готовыми решениями:

Программа, использующая нетипизированные файлы
Создайте файл, компоненты (количество <=8) которого являются вещественными...

Нужна программа, использующая рекурсию, с пояснением ее работы
Здравствуйте. Помогите пожалуйста! Мне нужно две простеньких программы по...

Процедуру с параметрами
Написать программу, использующую процедуру с параметрами, котораяпо введённому...

Возможно ли создать процедуру с опциональными параметрами?
Всем доброго времени суток! Столкнулся с задачей написать кое-какую игру...

Написать программу, использующую процедуру с параметрами
Написать программу, использующую процедуру с параметрами,которая по введённому...

3
Baster
0 / 0 / 0
Регистрация: 04.11.2009
Сообщений: 19
20.02.2010, 00:34  [ТС] 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
24
25
26
27
28
29
30
uses crt;
var x,y:integer;
procedure koord(x:integer);
var
y,g:integer;
begin
y:=0;
if (-7<=x) and (-3>=x) then
begin
y:=x+7;
writeln('y=', y);
end;
if (-3<x) and (x<2) then writeln('y=4');
if (-2<=x) and (2>=x) then
begin g:=sqr(g);
writeln('y=',g);
end;
if (x>=2) and (x<=4) then
begin
y:=(4-x)*2;
writeln('y=',y);
end;
end;
begin
clrscr;
writeln('vvedite x');
readln(x);
koord(x);
readkey;
end.
Добавлено через 11 минут
что надо тут исправить
0
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
20.02.2010, 10:46 3
Картинка нарисована для R=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;
procedure F(x,r:real; var y:real);
begin
if x<=0 then y:=-0.5*x
else if (x>0)and(x<=r) then y:=r-sqrt(r*r-x*x)
else if(x>r)and(x<=2*r) then y:=sqrt(r*r-sqr(x-r))
else y:=-0.5*x+r;
end;
var x,r,y:real;
begin
clrscr;
repeat
write('Введите радиус R>0 r=');
readln(r);
until r>0;
write('Введите значение Х x=');
readln(x);
F(x,r,y);
write('Значение функции=',y:0:2);
readln
end.
2
Baster
0 / 0 / 0
Регистрация: 04.11.2009
Сообщений: 19
20.02.2010, 11:01  [ТС] 4
Cпасибо большое!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.02.2010, 11:01

Описать процедуру печати таблицы, параметрами которой являются функции-процедурные переменные, вычисляют sin x
Описать процедуру печати таблицы, параметрами которой являются...

программа на процедуру
помогите пожалуйста написать программу на процедуру. на картинке задание 2....

Подпрограммы с типизированными параметрами -значениями и параметрами-переменными
Помогите пожалуйста). С помощью подпрограммы, определяющей принадлежность...


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

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

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