Составить программу “Калькулятор”, использующую подпрограммы

@matkovsky94 · Регистрация: 27.04.2012

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток.
Вот задание:
Составить программу “Калькулятор”, использующую подпрограммы, выполняющие арифметические, алгеб-раические и тригонометрические вы-числения, а также вычисление факториала и возведение целого числа в заданную степень.

Программы написал. Отдельно арифм.,тригон.,факториал,возведение. Нужно сгруппировать все 4 программы в одну с помощью подпрограмм.
Вот проги:
Арифм. операции:

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
 
Var a,c: real;
b: char;
Begin
Write('Vvedite 1 chislo: ');
readln (a);
Write ('Vvedite znak operacii(+,-,*,/):  ');
readln (b);
Write ('Vvedite vtoroe chislo: ');
readln (c);
case b of
'+': a:=a+c;
'-': a:=a-c;
'*':a:=a*c;
'/':a:=a/c;
end;
Write ('Rezultat: ',a:0:1);
readln
End.

Тригоном.вычисл.:

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var x, t, p,s,c:real;
begin
    writeln('Vvedite x (znachenie v radianah): ');
    readln(x);
    t:=sin(x)/cos(x);
    p:=cos(x)/sin(x);
    s:=sin(x);
    c:=cos(x);
    writeln('tg x = ',t:5:5);
    writeln('ctg x = ',p:5:5);
    writeln('sin x = ',s:5:5);
    writeln('cos x = ',c:5:5);
    readln
end.

Факториал:

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
 
var n,s,k: real;
begin
write('Vvedite chislo:  ');
readln(n);
s:=1; k:=1;
while k<n do
begin
k:=k+1;
s:=s*k;
end;
writeln('Otvet:  ',s:0:1);
readln
end.

Возведение:

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var x, t, p,s,c:real;
begin
    writeln('Vvedite chislo: ');
    readln(x);
    Writeln('Vvedite stepen: ');
    readln(t);
    p:=exp(ln(x)*t);
    writeln('Otvet: ',p:5:5);
    readln
end.

@BumerangSP · 06.05.2012, 17:49

Pascal

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
 
 
Var a,c: real;
    x, t, p,s,c2:real;
    b,q: char;
    n,s2,k: real;
    x1, t1, p1,s1,c1:real;
Begin
while true do
 begin
  writeln('----------------------------------------------');
  writeln('1-arifm; 2-trigonom; 3-fact; 4-stepen; 5-exit');
  writeln('----------------------------------------------');
  readln(q);
  case q of
   '1': begin
         Write('Vvedite 1 chislo: ');
         readln (a);
         Write ('Vvedite znak operacii(+,-,*,/): ');
         readln (b);
         Write ('Vvedite vtoroe chislo: ');
         readln (c);
         case b of
          '+': a:=a+c;
          '-': a:=a-c;
          '*':a:=a*c;
          '/':a:=a/c;
         end;
         Write ('Rezultat: ',a:0:1);
        End;
   '2': begin
         writeln('Vvedite x (znachenie v radianah): ');
         readln(x);
         t:=sin(x)/cos(x);
         p:=cos(x)/sin(x);
         s:=sin(x);
         c2:=cos(x);
         writeln('tg x = ',t:5:5);
         writeln('ctg x = ',p:5:5);
         writeln('sin x = ',s:5:5);
         writeln('cos x = ',c2:5:5);
        end;
   '3': begin
         write('Vvedite chislo: ');
         readln(n);
         s2:=1; k:=1;
         while k<n do
          begin
           k:=k+1;
           s2:=s2*k;
          end;
         writeln('Otvet: ',s2:0:1);
        end;
   '4': begin
         writeln('Vvedite chislo: ');
         readln(x1);
         Writeln('Vvedite stepen: ');
         readln(t1);
         p1:=exp(ln(x1)*t1);
         writeln('Otvet: ',p1:5:5);
        end;
    '5': break;
   end;
  end;
end.

Так сойдет?

@matkovsky94 · 06.05.2012, 19:13 **[ТС]**

Артем, благодарен Вам)
а можно этот же код, с использованием подпрограмм (function,procedure)

@BumerangSP · 06.05.2012, 19:14

Сообщение от matkovsky94

а можно этот же код, с использованием подпрограмм (function,procedure)

Ответил в ЛС.

@matkovsky94 0 / 0 / 0 Регистрация: 27.04.2012 Сообщений: 9
	06.05.2012, 19:13 [ТС]	3
	Артем, благодарен Вам) а можно этот же код, с использованием подпрограмм (function,procedure) 0

@BumerangSP 4311 / 1422 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	06.05.2012, 19:14	4
	Сообщение от matkovsky94 а можно этот же код, с использованием подпрограмм (function,procedure) Ответил в ЛС. 2