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

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

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

 
 Ответить  Открыть новую тему 
> Real To Integer
abc
сообщение 3.12.2005 12:05
Сообщение #1


Гость






мозно как число
[ REAL]
из массива округлить и перевести в интегер чтоби мозно било в число ФОР его исползовать


Сообщение отредактировано: volvo - 3.12.2005 12:06
 К началу страницы 
+ Ответить 
volvo
сообщение 3.12.2005 12:06
Сообщение #2


Гость






Используй Trunc
 К началу страницы 
+ Ответить 
abc
сообщение 3.12.2005 12:10
Сообщение #3


Гость






не берёт у мена такого


Сообщение отредактировано: volvo - 3.12.2005 12:12
 К началу страницы 
+ Ответить 
volvo
сообщение 3.12.2005 12:12
Сообщение #4


Гость






abc, ты кнопку Translit не видишь что-ли???

Покажи, как пытаешься перевести число...
 К началу страницы 
+ Ответить 
abc
сообщение 3.12.2005 12:15
Сообщение #5


Гость






извени


Код
var
nums : array[1..10] of real;
loop : integer;
vopros : integer;
a : integer;
begin
for vopros := 1 to 10 do

begin
write (vopros,' Vvedite chislo : ');
readln(a);

for loop := 1 to a do
begin
   write('*');

end;
writeln(' ',a:0);
end;


мне надо что би вводиш 10 чисел реал и он виводил тебе строчку звездочек такое зе какое ти ввел число . если ввел не целое число он его округлял би.
 К началу страницы 
+ Ответить 
volvo
сообщение 3.12.2005 12:18
Сообщение #6


Гость






for vopros := 1 to 10 do begin
  write (vopros,' Vvedite chislo : '); readln(nums[vopros]);

  for loop := 1 to trunc(nums[vopros]) do write('*');
  writeln(' ',nums[vopros]:10:5);
end;
 К началу страницы 
+ Ответить 
abcd
сообщение 3.12.2005 12:25
Сообщение #7


Гость






СПАСИБО! 
а мозно есо сделать так чтоб если введино число болсе 75 звездочки писались до 75 и потом перексодили на другю строку


Сообщение отредактировано: volvo - 3.12.2005 12:33
 К началу страницы 
+ Ответить 
volvo
сообщение 3.12.2005 12:32
Сообщение #8


Гость






for vopros := 1 to 10 do begin
  write (vopros,' Vvedite chislo : '); readln(nums[vopros]);

  for loop := 1 to trunc(nums[vopros]) do begin
    write('*');
    if loop mod 75 = 0 then writeln;
  end;
  writeln(' ',nums[vopros]:10:5);
end;
 К началу страницы 
+ Ответить 
abc
сообщение 3.12.2005 12:38
Сообщение #9


Гость






 болсое спасибо ! 
 К началу страницы 
+ Ответить 
abc
сообщение 3.12.2005 12:40
Сообщение #10


Гость






мозете проверить транслит не работает


Все прекрасно работает...

Сообщение отредактировано: volvo - 3.12.2005 12:42
 К началу страницы 
+ Ответить 

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

 

- Текстовая версия 26.07.2025 6:57
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"