Задача на массивы, Помогите пожалста |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Задача на массивы, Помогите пожалста |
Zoom |
Сообщение
#1
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Реальное имя: Виталий Репутация: 0 |
Дан массив из 5 вещественных чисел в нём надо найти элемент в котором наибольшее кол-во подряд идущих нулей нулей.
|
Zoom |
Сообщение
#2
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Реальное имя: Виталий Репутация: 0 |
Пользоваться строками запрещено. Пытаюсь перевести число в целое путём умножения его на 10 в цикле а потом с помощью div и mod находить каждый символ в числе. Но проблема почему то после выполнения числа получаются аж в 12 степени
Код Program asd; uses crt; var i,k,y:longint; s,s1:string; a:array[1..4] of real; begin clrscr; writeln('Vvedite 4 chisla'); For i:=1 to 4 do begin readln(a[i]); while frac(a[i])<>0 do a[i]:=a[i]*10; end; For I:=1 to 4 do {y:=round(a[i]);} writeln(a[i]); end. Сообщение отредактировано: Zoom - |
Текстовая версия | 4.05.2024 13:49 |