|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.12.2010, 17:44 | #1 |
Новичок
Джуниор
Регистрация: 08.12.2010
Сообщений: 3
|
на что нужно заменить integer и почему?
Сразу говорю прошу объяснить(в 2 словах),а не написать программу(хотя не помешает)
Условие. Написать программу,которая найдет кол-во элементов массива A(5,6) удовлетворяющее условие 0.1<A[i,j]<0.9 и заменить их на 0.5. теперь сама проблема: если обычно(когда сталкивались с целыми числами) мы использовали integer в строке var a:array [1..5,1..6]of inger;i,j,k:integer; то что мне писать вместо integer тк у меня дробные числа используются?я попробовал написать real,но выдает ошибку. |
08.12.2010, 17:48 | #2 |
БохЪ
Форумчанин
Регистрация: 30.09.2009
Сообщений: 724
|
--> double
PS или float, только вот не помню есть ли такой в паскале...
В планах порабощение вселенной...
|
08.12.2010, 17:49 | #3 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
И какую же ошибку выдаёт ваш компилятор?
А лучше покажите программу!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
08.12.2010, 17:53 | #4 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
0.1<A[i,j]<0.9 и заменить их на 0.5
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
08.12.2010, 17:54 | #5 | |
Новичок
Джуниор
Регистрация: 08.12.2010
Сообщений: 3
|
Цитата:
program massive; uses crt; var a:array [1..5,1..6]of real;i,j,k:real; begin k:=0; randomize; for i:=1 to 5 do for j:=1 to 6 do begin a[i,j]:random(100); if 0.1<a[i,j]<0.9 then k:=k+1 then a[i,j]:=0.5; end; if k=0 then writeln ('takix elementov net') else writeln('kol-vo elementov',k); readkey end. |
|
08.12.2010, 17:54 | #6 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Посмотрите типы в Паскале-Делфи. Конкретно, что за тип integer и real
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
08.12.2010, 17:57 | #7 | ||
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
Цитата:
может так переписать!: Цитата:
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
||
08.12.2010, 17:59 | #8 | |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
замените на Код:
Цитата:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" Последний раз редактировалось Mad_Cat; 08.12.2010 в 18:06. |
|
08.12.2010, 17:59 | #9 | |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
О да а дальше то я не читал! Вот короче код
Цитата:
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 Последний раз редактировалось Hacker19_90; 08.12.2010 в 18:00. Причина: спс Mad_Cat |
|
08.12.2010, 18:04 | #10 |
Новичок
Джуниор
Регистрация: 08.12.2010
Сообщений: 3
|
всем спасибо. разобрался
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
нужно заменить круг на треугольник(delphi7) | Dimitrius_92 | Помощь студентам | 0 | 27.05.2010 18:23 |
нужно в edit точку заменить запятой используя регулярные выражения | Pasha1983 | Общие вопросы Delphi | 7 | 02.04.2010 13:12 |
Почему когда integer cтановиться =100001,выходит ошибка | Дима я | Общие вопросы Delphi | 8 | 21.12.2009 11:33 |
Почему такая разница между Integer и LongInt? | k1r1ch | Общие вопросы Delphi | 13 | 13.10.2009 09:01 |
нужно заменить буквы в тексте | Olalya da Silva | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 09.01.2009 23:55 |