Что такое программное обеспечение компьютера

Програ́ммное обеспе́чение (допустимо также произношение обеспече́ни) (по)  — все или часть программ, процедур, правил и соответствующей документации системы обработки информации (iso/iec 2382-1: 1993. information technology  — vocabulary  — part 1: fundamental terms).

Program d1kpxx18; uses crt; var x,y,a: real; label 1,2,3,4; begin 4: writeln('выберите что вам нужно: 1-синус числа, 2-косинус числа, 3-выход'); read(a); if a=1 then goto 1; if a=2 then goto 2; if a=3 then goto 3; 1: begin writeln('введите "х"'); read(x); y: =sin(x); writeln('синус "х" равен    ',y); writeln('ещё? 1-no, 2-yes'); read(a); if a=2 then goto 4 else goto 3; end; 2: begin writeln('введите "х"'); read(x); y: =cos(x); writeln('косинус "х" равен  ',y); writeln('ещё? 1-no, 2-yes'); read(a); if a=2 then goto 4 else goto 3; end; 3: writeln('пока! '); end.программа основана на метках, перемещая метки можно переходить к разным местам программы, тем самым использую их как это если я правильно понял что именно значило: "организовать меню"

Відповідь:

uses

Graph;

var

grDriver : Integer;

grMode : Integer;

ErrCode : Integer;

begin

grDriver:=Detect;

InitGraph(grDriver, grMode, '');

Line(180, 130, 270, 130);

Line(180, 130, 180, 160);

Line(270, 130, 270, 160);

{Дуло}

Line(270, 143, 370, 143);

Line(270, 147, 370, 147);

Line(370, 143, 370, 147);

Line(140, 160, 310, 160);

Line(140, 190, 310, 190);

Arc(140, 175, 90, 270, 15);

Arc(310, 175, 270, 90, 15);

Circle(155, 175, 10);

Circle(190, 175, 10);

Circle(225, 175, 10);

Circle(260, 175, 10);

Circle(295, 175, 10);

ReadLn;

CloseGraph;

end.

Пояснення:

Вводи в паскаль ети значения.