Помощь - Поиск - Пользователи - Календарь
Полная версия: Real To Integer
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
abc
мозно как число
[ REAL]
из массива округлить и перевести в интегер чтоби мозно било в число ФОР его исползовать
volvo
Используй Trunc
abc
не берёт у мена такого
volvo
abc, ты кнопку Translit не видишь что-ли???

Покажи, как пытаешься перевести число...
abc
извени


Код
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
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
СПАСИБО! 
а мозно есо сделать так чтоб если введино число болсе 75 звездочки писались до 75 и потом перексодили на другю строку
volvo
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
 болсое спасибо ! 
abc
мозете проверить транслит не работает


Все прекрасно работает...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.