В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Kakanya
Kakanya
27.03.2023 12:05 •  Информатика

Если бы в ячейке Е5 на рис.2 не сделали абсолютным адрес А10, какой бы вид приобрела формула при копировании ее в ячейки Е6 и Е7?


Если бы в ячейке Е5 на рис.2 не сделали абсолютным адрес А10, какой бы вид приобрела формула при коп

Показать ответ
Ответ:
овошвл
овошвл
16.09.2021 10:58

var

 k,h:integer;

 p,s,x,eps,n,p1:real;

begin

 x:=10;

 while (x<0) or (1<x) do begin   {Условие ввода 0>x>1}

   write('Введите X = '); readln(x);

   end;

 eps:=1e-@;   //В место @ нужно ввести погрешность в положительном числовом виде (вычислить до @-го знака после запятой)

 p:=x;

 n:=2;

 p1:=1;

 h:=1;

 while abs(p)>eps do   {Условие выхода: очередной член ряда по модулю меньше eps}

 begin

   writeln('[Отладка]  ',eps,'    ',p,'    ',s,'    ',n);   //отладка

   for var i:=0 to 1 do begin

     k:=k+1;

     p1:=p1*k;

   end;

   h:=h*-1;

   p:=h*(power(2*x,n))/p1;   {Вычисление очередного члена ряда}

   s:=s+p;

   n:=n+2;

 end;

 writeln('cos(2x-1) = ', s);

end.

0,0(0 оценок)
Ответ:
kuchera2
kuchera2
25.04.2022 17:49

uses wincrt,graph;

const rstart=40;

type mas=array[1..500] of Pointtype;

procedure snezinki(a:mas;c:integer);

var i:integer;

begin

setcolor(c);

for i:=1 to 500 do

circle(a[i].x,a[i].y,2);

end;

procedure elka;

var y,r,i,j:integer;

begin

setcolor(green);

for j:=2 to 6 do

begin

 y:=(getmaxy div 10)*j+120;

 r:=rstart+15*j;

 for i:=1 to 5 do

  begin

   arc((getmaxx div 2)-r,y,350-(r div 5)-8*j,359,r);

   arc((getmaxx div 2)+r,y,181,190+(r div 5)+8*j,r);

   inc(y,7);

   inc(r,5);

  end;

end;

end;

procedure sneg(n:integer);

begin

setcolor(white);

setfillstyle(1,white);

bar(0,getmaxY-n,getmaxX,getmaxY);

end;

var gd,gm,i,k,n:integer;

   a:mas;

begin

randomize;

gd:=0;

initgraph(gd,gm,'');

for i:=1 to 500 do

begin

 a[i].x:=random(getmaxX);

 a[i].y:=random(getmaxY);

end;

setcolor(blue);

setfillstyle(1,blue);

bar(0,0,getmaxX,getmaxY);{делаем синий фон}

snezinki(a,white);{рисуем снежинки}

k:=0;{количество шагов}

repeat

k:=k+1;

delay(10);

snezinki(a,blue);{рисуем снежинки цветом фона, стираем}

for i:=1 to 500 do

begin

 if a[i].y>getmaxY-n-10 then a[i].y:=1

 else a[i].y:=a[i].y+3;

 if a[i].x<0 then a[i].x:=getmaxX

 else a[i].x:=a[i].x-1;

end;

snezinki(a,white);{рисуем снежинки белым}

elka; {рисуем елку}

n:=k div 10;{на каждом 10-м шаге увеличиваем толщину снега на земле}

sneg(n);{рисуем снег на земле}

if n>50 then{если толщина снега 50}

begin

 snezinki(a,blue);{стираем снежинки}

 setcolor(lightred);{выводим надписи}

 settextstyle(0,0,3);

 outtextXY(250,50,'Snegopad konchilsa');

 setcolor(yellow);

 settextstyle(0,0,2);

 outtextXY(340,80,'Press any key');

end;

until keypressed or(n>50);{если нажали клавишу или снег>50 конец}

readkey{ждем нажатия клавиши для выхода}

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота