IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Функция Procent
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Женский

Репутация: -  0  +


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

Сообщение отредактировано: Katolisa -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата
Посмотрите пожалуйста в чем ошибка?
В названии темы, во-первых. Исправляй, иначе тему просто прикроют...

А во-вторых, ошибка в неправильном описании символьных констант: они описываются с #, а не с $
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


В первой задаче ты просто end завершающий не поставила, и ещё перевод каретки пишется #13#10, а не как ты сделала. И старайся форматировать код:)

var
x1,x2:real;
const
seed=100;

begin
randomize;
x1:=random( seed ) * random ( seed ) / ( random( seed ) + 1 );
x2:=random( seed ) * random ( seed ) / ( random( seed ) + 1 );
writeln( 'Переменная x1 = ', x1:0:2, #13#10, 'Переменная x2 = ', x2:0:2 );
readln;
end.


Второе:

function procent(p:real):real;
begin
procent:=p/100;
end.


Выводит один процент.


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Женский

Репутация: -  0  +


Спасибо большое, насчёт Procent не поняла задание, скажу честно....
что значит полученного в качестве аргумента?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


Аргумент - входной параметр функции. Он используется в функции в качестве локальной переменной. Т.е. какой параметр (аргумент) передашь в функцию, от такого и будет вычисляться процент.

function procent(p:real):real;

Выделенное - имя входного параметра и его тип.


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Женский

Репутация: -  0  +


Правильно ли я поняла, что мы сами вводим любое число с клавиатуры, а он нам ищет от этого числа %....???? blink.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


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

Тоже на ][ дублировать будешь?;)


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Женский

Репутация: -  0  +


Привет, я всё с той же задачей справится не могу: Написать функцию Procent, которая возвращает процент от числа, полученного в качестве аргумента


program procent;
uses crt;
var n:integer;
function procent (n:real):real;
begin
procent:=n/100;
end;
BEGIN
clrscr;
writeln ('Введите число');
--------- ( не знаю что ещё нужно)

readln;
END.



помогите последний раз, прошу Вас
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


mea culpa
*****

Группа: Пользователи
Сообщений: 1 372
Пол: Мужской
Реальное имя: Николай

Репутация: -  24  +


Так а в программе что нужно-то? Функция уже есть.


--------------------
"Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Женский

Репутация: -  0  +


Цитата(Unconnected @ 20.01.2010 20:54) *

Так а в программе что нужно-то? Функция уже есть.
только как заставить её действовать?! nea.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Профи
****

Группа: Пользователи
Сообщений: 618
Пол: Мужской

Репутация: -  24  +


Цитата
--------- ( не знаю что ещё нужно)
Не знаешь, что нужно для чего? Хотя, не надо быть телепатом:
program procent; 

uses crt;

function Procent(n: Real): Real;
begin
Procent := n / 100;
end;

var n: Integer;
begin
ClrScr;
WriteLn('Введите число');
ReadLn(n);
WriteLn('Процент от числа ', n, ' равен ', Procent(n):0:2);
ReadLn;
end.


--------------------
Close the World...txeN eht nepO
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Женский

Репутация: -  0  +


Большая благодарность Вам, Archon.... give_rose.gif

Добавлено через 1 мин.
Спасибо большое Unconnected за помощь.....всё получается.......спасибо! good.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Цитата(Katolisa @ 20.01.2010 21:07) *
Большая благодарность Вам, Archon.... give_rose.gif
Спасибо большое Unconnected за помощь.....всё получается.......спасибо! good.gif
Воспринимаю это как просьбу поднять репутацию указанным юзерам.. делаю.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.09.2022 11:52
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name