помогите решить

Тема в разделе "Delphi - FAQ", создана пользователем Nick, 15 ноя 2007.

  1. Nick

    Nick Гость

    помогите решить :
    1) определить число, получаемое выписыванием в обратном порядке цифр заданного числа.(цикл While)
    2) вычислить дробную часть среднего геометрического 3 заданных положительных чисел(линейный)
    3)написать программу, которая вводит с клавиатуры 5 дробных чисел и вычисляет их среднее арифметическое.(цикл FOR)
    Заранее благодарю!
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Сколько платите?
     
  3. root

    root Гость

    Для: Morpheus
    На полном "интуазизме" :ph34r:
     
  4. root

    root Гость

    Код (Text):
     
    var
    ArrayAR: array of real;
    i: integer;
    res: real;
    begin
    SetLength(ArrayAR, 5);
    for i:=1 to 5 do
    begin
    readln(ArrayAR[i]);
    res:= res+ArrayAR[i];
    end;
    res:= res/5;
    writeln(' среднее арифметическое: ', res);
    readln;


    end.
    это ка бы демо.... ну есть же в программах :ph34r:
    Код (Text):
     var
    ArrayAR: array of real;
    i: integer;
    res: real;
    begin
    SetLength(ArrayAR, 3);
    for i:=1 to 3 do
    begin
    readln(ArrayAR[i]);
    res:= res+ArrayAR[i];
    end;
    res:= exp(1/3*ln(res));
    writeln('Среднее геометрическое: ', frac(res));
    readln;


    end.
    Первое задание очень сложно сделать там нужно использовать таблицу векторов прерываний.:blink:
     
  5. Nick

    Nick Гость

    спасибо за решение! :)

    Всем привет из Казахстана
     
  6. Barmutik

    Barmutik Гость

    Программист .. это звучит гордо :) Мда...
     
Загрузка...
Похожие Темы - помогите решить
  1. mrx13
    Ответов:
    8
    Просмотров:
    257
  2. kuklofon
    Ответов:
    9
    Просмотров:
    575
  3. GREED
    Ответов:
    1
    Просмотров:
    533
  4. vovanabali
    Ответов:
    0
    Просмотров:
    531
  5. zarina
    Ответов:
    0
    Просмотров:
    674

Поделиться этой страницей