Регистрация
Evagevko
16.05.2022 08:18
Информатика
Есть ответ 👍

99 ! информатика, 8 класс. нарисуйте блок-схему к : даны 10 чисел значения которых находятся в интервале от а до б найти пару соседних чисел (заданных друг за другом) у которых значения отличаются на число меньшее чем eps=0,01. числа последовательно. если пары нет, то вывести слово «нет». и напишите программу в pascale, решающую эту

260
394
Посмотреть ответы 2

Ответы на вопрос:

самаучка003
самаучка003
4,4(41 оценок)
Const   eps = 0.01;   a = -100;   b = 100;   n = 10; var   i    : byte;   m    : array[1..n] of real;   flag: boolean; begin   flag: =true;   for i: =1 to n do   begin       repeat           write('введите число № ',i,' : '); readln(m[i]);       until (m[i]> =a) and (m[i]< =b);   end;   writeln;   for i: =2 to n do       if abs(m[i-1]-m[i])< eps then       begin           writeln(m[i-1],' ',m[i]);           flag: =false;       end;   if flag then writeln('нет'); end. результат: введите число № 1 : 2.3 введите число № 2 : 2.4 введите число № 3 : 2.45 введите число № 4 : 2.46 введите число № 5 : 2.465 введите число № 6 : 3.0 введите число № 7 : 4.0 введите число № 8 : 4.01 введите число № 9 : 4.005 введите число № 10 : 4.007 2.45 2.46 2.46 2.465 4 4.01 4.01 4.005 4.005 4.007
devil2a
devil2a
4,6(54 оценок)

1)

const t=3.14; var r,p: real; beginwriteln('введите радиус окружности'); readln(r); p: =2*3.14*r; writeln('p=',p); readln; end.

 

2)const t=3.14; var r,s: real; beginwriteln('введите радиус окружности'); readln(r); s: =3.14*sqr(r); writeln('s=',s); readln; end.

 

 

 

 

 

 

 

Популярно: Информатика