profile
Опубликовано 6 лет назад по предмету Информатика от Ofnis

Используя любой цикл вычислите значения квадратов косинусов в интервале от 0 до 7,770 с шагом 0,1. Если не сложно,то ещё можно блок схему нарисовать

  1. Ответ
    Ответ дан MrSolution
    //Pascal:

    program cosinusi;
    var i: real;
    begin

    i:= 0;
    while(true)
    do begin

    if(i <= 7,770)
    then writeln("Cos(", i, ") = ", sqr(cos(i)):0:2)
    else exit;
    i:= i + 0,1;

    end;

    end.
Самые новые вопросы