2 / 2 / 0
Регистрация: 06.10.2010
Сообщений: 38
1

Проверьте пожалуйста

20.10.2010, 18:23. Показов 864. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
вот условие Описать процедуру PowerA3(A, B), вычисляющую третью степень числа A и возвращающую ее в переменной B (A — входной, B — выходной параметр; оба параметра являются вещественными). С помощью этой процедуры найти третьи степени пяти данных чисел.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program proc;
var x,y,A,B:real;
    i:byte;
procedure PowerA3(x,y:real; var A,B:real);
begin
A:=x;
B:=A*A*A;
end;
Begin
for i:=1 to 5 do begin
writeln('Vvedite ',i,'-oe chislo ');
read(x);
PowerA3(x,y,A,B);
writeln('rezultat: ',B:5:2);
end;
End.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.10.2010, 18:23
Ответы с готовыми решениями:

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

Проверьте пожалуйста решение.
Найти сумму целых положительных чисел кратных 4 и меньших 100. Я тут чото нарешал - Program...

Проверьте, пожалуйста, на типизированные файлы
Задали написать программу. Вроде код правильный, но работает она не до конца. Помогите найти...

проверьте пожалуйста блок-схему
program nomer2_1; var k,x,y:real; begin writeln ('vvedi k'); readln (k); writeln ('vvedi x');...

3
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
20.10.2010, 18:26 2
Слышь, друг, это кому писали?
Процедуры
что ты со своей тупостью срамишься и на карточку за дублирование тем нарываешься?
0
2 / 2 / 0
Регистрация: 06.10.2010
Сообщений: 38
20.10.2010, 18:27  [ТС] 3
Просто нашел другой вариант( мне помог брат двоюродный) вот хочу проверить просто его решение мне кадеться более коростким и понятным
0
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
20.10.2010, 18:28 4
Pascal
1
2
3
4
procedure PowerA3(A:real;var B:real);
begin
B:=A*A*A;
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.10.2010, 18:28
Помогаю со студенческими работами здесь

Проверьте, пожалуйста, правильность написания задачи
Условие задачи: Вычислить и вывести на печать таблицу значений функции ...

проверьте пожалуйста правильность блок схемы алгоритма
program Project2; {$APPTYPE CONSOLE} uses SysUtils; const n=100; var a: array of integer;...

Максимальное значение функции в промежутке. Проверьте, пожалуйста.
Разработать программу для нахождения и вывода на экран максимального и минимального значения...

Тест по Структуры и алгоритмы обработки данных очень прошу проверьте пожалуйста мои ответы
Я ответы проставила ,проверьте пожалуйста Какие условия необходимы для применения простейшей...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru