Real To Integer Опции

[abc]

mozno kak chislo

[ REAL]

iz massiva okruglit' i perevesti v integer chtobi mozno bilo v chislo FOR ego ispolzovat'

Сообщение отредактировано: volvo - 3.12.2005 16:06

[volvo]

Используй Trunc

[abc]

ne berjot u mena takogo

Сообщение отредактировано: volvo - 3.12.2005 16:12

[volvo]

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

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

[abc]

izveni

Код

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;

mne nado chto bi vvodish 10 chisel real i on vivodil tebe strochku zvezdochek takoe ze kakoe ti vvel chislo . esli vvel ne celoe chislo on ego okrugljal bi.

[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]

SPASIBO! 
a mozno eso sdelat' tak chtob esli vvedino chislo bolse 75 zvezdochki pisalis' do 75 i potom perexodili na drugju stroku

Сообщение отредактировано: volvo - 3.12.2005 16:33

[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]

 bolsoe spasibo ! 

[abc]

mozete proverit' translit ne rabotaet

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

Сообщение отредактировано: volvo - 3.12.2005 16:42