![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
abc |
![]()
Сообщение
#1
|
Гость ![]() |
мозно как число[ REAL] из массива округлить и перевести в интегер чтоби мозно било в число ФОР его исползовать Сообщение отредактировано: volvo - 3.12.2005 12:06 |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Используй Trunc
|
abc |
![]()
Сообщение
#3
|
Гость ![]() |
не берёт у мена такого Сообщение отредактировано: volvo - 3.12.2005 12:12 |
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
abc, ты кнопку Translit не видишь что-ли???
Покажи, как пытаешься перевести число... |
abc |
![]()
Сообщение
#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 |
![]()
Сообщение
#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 |
![]()
Сообщение
#7
|
Гость ![]() |
СПАСИБО! Сообщение отредактировано: volvo - 3.12.2005 12:33 |
volvo |
![]()
Сообщение
#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 |
![]()
Сообщение
#9
|
Гость ![]() |
болсое спасибо ! |
abc |
![]()
Сообщение
#10
|
Гость ![]() |
мозете проверить транслит не работает Все прекрасно работает... Сообщение отредактировано: volvo - 3.12.2005 12:42 |
![]() ![]() |
![]() |
Текстовая версия | 26.07.2025 6:57 |