Перевод радиан в градусы

[=XAM=]

спасибо, все работает!))

[B_N]

Сообщение от puporev

Это же тебе не Паскаль, здесь надо

И именно поэтому здесь прекрасный случай, чтобы воспользоваться старым добрым printf

uses
    sysutils;
var
    Rd, Gr, M, S : real;
begin
    Rd := 1;

    Gr := Rd * 180 / pi;
    M := frac(Gr) * 60;
    S := frac(M) * 60;
    writeln(format('%3.0f Grad %2.0f Min %4.2f Sec', [Gr, M, S]));
    readln;
end.

 57 Grad 18 Min 44,81 Sec

[puporev]

Не понимаю, чего ты везде лезешь со своими никому не нужными нравоучениями. Человеку нужен вывод в Edit на форме, а как сделать в консоли и без тебя знаем.

[B_N]

Сообщение от puporev

Не понимаю, чего ты везде лезешь со своими никому не нужными нравоучениями. Человеку нужен вывод в Edit на форме, а как сделать в консоли и без тебя знаем.

Не надо хамить, puporev. Если Вы так хорошо всё знаете, то format - это обычная для дельфи функция и писать например так:

Edit2.Text := format('%3.0f Grad %2.0f Min %4.2f Sec', [Gr, M, S]);

ничуть не хуже, чем

Edit2.Text:=Edit2.Text+floattostrF(G,ffFixed,6,0)+'gr '+floattostrF(M,ffFixed,2,0)+'min '+floattostrF(S,ffFixed,3,1)+'sec';

Или нет?

[puporev]

Если в Делфи порытся, то еще несколько вариантов форматированного вывода вещественных чисел можно найти, только ни в одном из них нет слова writeln. А замечание я сделал потому, что когда нужно что-то решить, все умничают, а когда кто-то решит, начинают его пинать. Не интересен Вам вопрос, молча пропустите, смотрите другой.

[B_N]

Сообщение от puporev

Если в Делфи порытся, то еще несколько вариантов форматированного вывода вещественных чисел можно найти, только ни в одном из них нет слова writeln.

Я Вам русским языком написал: "здесь прекрасный случай, чтобы воспользоваться старым добрым printf". Если Вы не знаете, что такое printf, значит Вам нужно больше читать, если Вам не понравился writeln (приведенный здесь для работоспособности кода), значит так и нужно говорить, а не хамить.

Сообщение от puporev

А замечание я сделал потому.....

Замечания будете делать своим детям, а замечания в стиле "чего ты везде лезешь со своими никому не нужными нравоучениями" советую делать в автобусе в тёмное время суток. Не решайте за остальной мир, кому нужны, а кому нет, мои "нравоучения".

Сообщение от puporev

...что когда нужно что-то решить, все умничают, а когда кто-то решит, начинают его пинать.

Здесь форум, а не Ваши личные посиделки, и то, что Вы научились решать задачки для средней школы, не даёт Вам права судить о "бесполезности" других мнений, уточнений и участников.

Сообщение от puporev

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

Я в Ваших наставлениях не нуждаюсь. Что делать, когда и как, постараюсь решать сам.

P.S. Постарайтесь научиться отличать уточнения и советы от "нравоучений" и "пинков". Сильно поможет в жизни.

Over.