Практикум по решению задач на ЭВМ. Тарова И.Н - 31 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Практикум по решению задач на ЭВМ
clrscr;
grDriver:=detect;
InitGraph(grDriver,grMode,'D:\BGI');
ErrCode:=GraphResult;
if ErrCode=grOk then
begin
SetColor(9);
Rectangle(100,300,400,100);
line(400,100,250,50);
line(250,50,100,100);
SetColor(4);
circle(360,200,7);
rectangle(370,120,300,280);
SetColor(6);
circle(250,75,16);
SetColor(3);
rectangle(200,150,120,250);
rectangle(200,150,260,250);
readln;
end;
CloseGraph;
END.
Лабораторная работа № 6
Пошаговый ввод данных и вывод результатов
1) Даны числа a
1
,a
2
,…,a
n
. Вычислить:
2) а) а
1
+а
2
+…+а
n
;
б) a
1
*a
2
*…*a
n
;
в)
⏐
a
1
⏐
+
⏐
a
2
⏐
+…+
⏐
a
n
⏐
;
г)
⏐
a
1
⏐
*
⏐
a
2
⏐
*..*
⏐
a
n
⏐
;
д)
!
)1(...
!3!2!1
3
21
n
aa
aa
n
n
−++−+−
.
31
                   Практикум по решению задач на ЭВМ


    clrscr;
    grDriver:=detect;
    InitGraph(grDriver,grMode,'D:\BGI');
    ErrCode:=GraphResult;
    if ErrCode=grOk then
       begin
          SetColor(9);
          Rectangle(100,300,400,100);
          line(400,100,250,50);
          line(250,50,100,100);
          SetColor(4);
          circle(360,200,7);
          rectangle(370,120,300,280);
          SetColor(6);
          circle(250,75,16);
          SetColor(3);
          rectangle(200,150,120,250);
          rectangle(200,150,260,250);
          readln;
       end;
    CloseGraph;
  END.




Лабораторная работа № 6
                   Пошаговый ввод данных и вывод результатов
1) Даны числа a1,a2,…,an. Вычислить:
2) а) а1+а2+…+аn;
б) a1*a2*…*an;
в) ⏐a1⏐+⏐a2⏐+…+⏐an⏐;
г) ⏐a1⏐*⏐a2⏐*..*⏐an⏐;
д) − a1 + a 2 − a3 + ... + (−1) n a n .
    1!   2!   3!       n!




                                   31

Страницы