Составить схему алгоритма и программу определения корня квадратного значений элементов массива

@wasgexxx · Регистрация: 19.04.2015

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

Составить схему алгоритма и программу определения корня квадратного значений элементов массива D[N] и записать его в массив F[L]

@JokeR.BY · 19.04.2015, 19:55

это если я правильно понял задание.

Pascal

var
    d, f: Array[Byte] Of Double;
    i, n, l: Byte;
begin
    repeat
        Write('n=');
        ReadLn(n);
    until (n > 0); Dec(n);
    Randomize; l := 0;
    for i := 0 to n do
    begin
        d[i] := Random * 200 - 100;
        Write(d[i]:0:3, ' ');
        if (d[i] > 0)
        then
        begin
            f[l] := Sqrt(d[i]);
            Inc(l);
        end;
    end;
    WriteLn;
    if (l > 0)
    then
        for i := 0 to l - 1 do
            Write(f[i]:0:3, ' ')
    else
        WriteLn('No one!');
end.

Не по теме:

следующий раз перепечатывайте задание до конца. про вывод на экран. а то ошшень уж руки у меня чесались)

@wasgexxx · 19.04.2015, 20:32 **[ТС]**

Еще раз Спасибо!

Еще одна задачка) Составить схему алгоритма и программу создания массива из 3-x записей на основе таблицы

@wasgexxx 0 / 0 / 0 Регистрация: 19.04.2015 Сообщений: 12
		1
	Составить схему алгоритма и программу определения корня квадратного значений элементов массива 19.04.2015, 18:23. Показов 1418. Ответов 2 Метки нет (Все метки) Составить схему алгоритма и программу определения корня квадратного значений элементов массива D[N] и записать его в массив F[L] 0

@wasgexxx 0 / 0 / 0 Регистрация: 19.04.2015 Сообщений: 12
	19.04.2015, 20:32 [ТС]	3
	Еще раз Спасибо! Еще одна задачка) Составить схему алгоритма и программу создания массива из 3-x записей на основе таблицы 0

Опции темы

Составить схему алгоритма и программу определения корня квадратного значений элементов массива

Решение