Найти в дробном числе наибольшую цифру

@Frehauf · Регистрация: 09.11.2014

Студворк — интернет-сервис помощи студентам

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program Project17;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
m,z,max2,x,i,max1:integer;
n,p:real;
a,l,y:Double;
begin
writeln('Enter number - ');
readln(n);
x := Trunc(n);
x:=Abs(x);
max1:=x mod 10;
repeat
i:=x mod 10;
x:=x div 10;
if(max1<i) then max1:=i;
until x<1;
y:=frac(n);
for a:=y to 8 do
begin
p:=Trunc(y*10); //7
y:=frac(y*10);///0.25
//5d:=Trunc(l*10); //2
end;
 
if max1>max2 then writeln('max=',max1) else writeln('max=',max2);
Readln;
 
end.

Помогите пожалуйста, дальше не знаю, что писать.

@Puporev · 11.11.2014, 10:34

Ну найди сначала в целой части, потом в дробной и сравни.

@Frehauf · 11.11.2014, 22:26 **[ТС]**

Спасибо большое.

Новые блоги и статьи Все статьи Все блоги /
FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	11.11.2014, 10:34
	Ну найди сначала в целой части, потом в дробной и сравни. 0

@Frehauf 0 / 0 / 0 Регистрация: 09.11.2014 Сообщений: 64
	11.11.2014, 22:26 [ТС]
	Спасибо большое. 0