Простейший калькулятор

Простейший калькулятор

program CALCULATOR;

uses crt; // вызов чего-то там, не помню

var // работа с числами

A,C,D:real; // работа с дробными числами

B:char; // работа со знаками, в нашем случае это + - * /

begin

textbackground(0); // я просто для красоты сделал очень много цветовых слов

clrscr; // заливаем фон, чёрный

textcolor(10);

writeln('КАЛЬКУЛЯТОР');

textcolor(6); // операторы или что-то в этом роде)))

write('введите первое число: ');

textcolor(15);

readln(A);

textcolor(6);

write('введите знак: ');

textcolor(15);

readln(B);

textcolor(6);

write('введите второе число: ');

textcolor(15);

readln(C);

if B='+' then D:=A+C; // сердце программы!

if B='-' then D:=A-C;

if B='/' then D:=A/C;

if B='*' then D:=A*C;

textcolor(6); // красивый ответ

write('ответ: ');

textcolor(15);

writeln(D);

textcolor(8);

writeln('Спасибо за внимание');

end.1

вычисление гипотенузы по катету

var

a,b: real; // катеты

c: real; // гипотенуза

begin

write('Введите катеты прямоугольного треугольника: ');

readln(a,b);

c := sqrt(a*a+b*b);

writeln('Гипотенуза = ',c);

end.

Вычисление катетов

var

a,c: real; // катеты

b: real; // гипотенуза

begin

write('Введите катеты прямоугольного треугольника: ');

readln(a,c);

b := sqrt(c*c-a*a);

writeln('Гипотенуза = ',b);

end.

Построение графиков

program Grafik;

uses GraphABC;

var x0, y0, x1, y1, k: integer;

x, y: real;

begin

SetWindowSize(640,400);

x0:=320; y0:=200; k:=20;

line(20,y0, 620,y0); line(x0,20, x0,380);

setPenColor(clRed); x:=-15;

While x15 do

begin

y:=0.4*x+2*sin(3*x);

x1:=trunc(x0+x*k);

y1:=trunc(y0-y*k);

circle(x1,y1,2);

x:=x+0.02

end;

end.

Моя программа

program Grafik;

var

a,b,c: real; // переменные

d: real; // результат

begin

write('Введите катеты прямоугольного треугольника: ');

readln(a,b,c);

d := 2.3*a*sqr(b)*c;

writeln('Гипотенуза = ',d);

end.