ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
23.03.2010, 21:47
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 107
Провел на форуме:
259882
Репутация:
10
|
|
Калькулятор Pascal
program crt;
var
a,b,c,v,x,s: real;
Begin
Write('Введи первое значение: ');
ReadLn(a);
Write('Введи второе значение: ');
ReadLn(b);
c:=a+b;
x:=a-b;
v:=a*b;
s:=a/b;
WriteLn('Сложение ',a,'+',b,'=',c);
WriteLn('Вычитание ',a,'-',b,'=',x);
WriteLn('Умножение ',a,'*',b,'=',v);
WriteLn('Деление ',a,'/',b,'=',s);
End.
Помогите сделать из этого нормальный калькулятор. С возведением в квадрат, куб...
|
|
|
23.03.2010, 22:02
|
|
Новичок
Регистрация: 10.01.2007
Сообщений: 21
Провел на форуме:
175230
Репутация:
15
|
|
ЛИбо так
x - Ваше число (integer, real)
N - степень (integer)
S - здесь будет результат (integer, real)
i - счётчик (integer)
S:=1;
for i:=1 to N do S:=S*x;
Либо так допавишь у себя в коде
Var chisl, stepen:Real;
Function stn(Var chislo, stepen:Real) of Real;
Var per:real;
Begin
Per:= Abs(chislo);
If chislo < 0 Then Pow:= (-1)*Exp((stepen)*Ln(per))
Else Pow:= Exp((stepen)*Ln(per));
end;
Begin
clrscr;
Write('Введите число = '); readln(chisl);
Write('Введите степень = '); readln(stepen);
Writeln('Возведя в степень получаем = ',stn);
readln;
readln;
|
|
|
|
24.03.2010, 11:06
|
|
Новичок
Регистрация: 06.01.2010
Сообщений: 23
Провел на форуме:
349200
Репутация:
1
|
|
Извлечение ЦЕЛОГО квадратного корня
X:longint {это переменная из которой извлекать}
I:longint {счетчик,флаг корня}
b:longint {корень}
for i:=1 to x/2 do
if i*i=x then b:=i
if b=0 then writeln ('корней нет');
if b>0 then writeln ('корень-',b);
|
|
|
|
24.03.2010, 12:27
|
|
Новичок
Регистрация: 30.09.2009
Сообщений: 6
Провел на форуме:
89213
Репутация:
0
|
|
а чем собственно проблема? задай переменную, которая при нажатии на копку будит умножаться на себя саму - вот тебе квадрат, точно так же куб.....или я что-то не понял?
|
|
|
|
24.03.2010, 12:44
|
|
Новичок
Регистрация: 06.01.2010
Сообщений: 23
Провел на форуме:
349200
Репутация:
1
|
|
И,да вот готовый
PHP код:
uses wincrt;
label 1,2,3,4;
type zz=array[1..20] of string;
aa=array[1..20] of byte;
kk=array[1..30] of real;
var
i,n,m,k,j,o,l,x: integer; a,b,v:string;
c:array[1..10] of string;
f:text; result:real;
function calculate(x:string):string;
var i,j,k:integer; a:zz; t:aa; s,s1,s2:real; h:string;
c1:integer; p:integer; c:kk;
begin
k:=1;
s:=0;
s1:=1;
for i:=1 to 20 do
a[i]:='';
for i:=1 to 30 do
t[i]:=0;
for i:=1 to length(x) do
begin
if (x[i]='+') or (x[i]='-') or (x[i]='*') or (x[i]='/')
then
begin
if x[i]='+' then t[k]:=1;
if x[i]='-' then t[k]:=2; {разделяет плюсы, минусы и цифры}
if x[i]='*' then t[k]:=3;
if x[i]='/' then t[k]:=4;
k:=k+1;
end
else
a[k]:=a[k]+x[i];
end;
for i:=1 to k do {переводит в числовой массив}
val(a[i],c[i],c1);
if x[1]='-' then p:=1;
if (p<>1) and (t[1]=2) and (t[2]<>3) and (t[2]<>4) then s:=c[1];
if (t[1]=2) and (t[2]=2) then s:=c[1];
if (t[1]=1) or (k=1) then s:=c[1]; {начальные значения}
for i:=1 to k do
begin
if (t[i]=3) then
begin
if (t[i-1]<>2) and (t[i-1]<>3) and (t[i-1]<>4) then
begin
{s:=s+c[i]*c[i+1];}
s1:=c[i]*c[i+1];
{s:=s+s1;}
end; {знак *}
if (t[i-1]=2) then
begin
{s:=s-c[i]*c[i+1];}
s1:=-c[i]*c[i+1];
{s:=s+s1;}
end;
if (t[i-1]=4) or (t[i-1]=3) then
begin
s1:=s1*c[i+1];
{s:=s+s1;}
end;
end;
if (t[i]=4) then
begin
if (t[i-1]<>2) and (t[i-1]<>3) and (t[i-1]<>4) then
begin
{s:=s+c[i]/c[i+1]; }
s1:=c[i]/c[i+1];
end;
if t[i-1]=2 then
begin {знак /}
s1:=-c[i]/c[i+1];
end;
if (t[i-1]=3) or (t[i-1]=4) then
begin
s1:=s1/c[i+1];
{s:=s1+s; }
end;
end;
if (t[i+1]<>3) and (t[i+1]<>4) and (s1<>1) then
begin
s:=s+s1;
s1:=1;
end;
end;
for i:=1 to k do
begin
if t[i]=2
then
begin
if (i=1) and (p=1) and (t[2]=2) then s:=s-c[2];
if (t[i+1]<>4) and (t[i+1]<>3) then
s:=s-c[i+1] {знак -}
else
s:=s+c[i];
end;
if (t[i]=1) and (t[i+1]<>3) and (t[i+1]<>4)
then
s:=s+c[i+1]; {знак +}
{writeln(c[i]:5:3);}
end;
str(s:5:3,h);
calculate:=h;
end;
begin
assign(f,'calc.in');
reset(f);
readln(f,a);
1:
k:=0;
for i:=1 to length(a) do
if a[i]='(' then k:=k+1;
if k=0 then goto 2;
i:=0;
l:=0;
while i<=length(a) do
begin
3: if l>k then goto 2;
i:=i+1;
if a[i]='(' then
begin
l:=l+1;
n:=i;
b:='';
while a[i]<>')' do
begin
if (a[i]='(') and (a[i+1]='(') then goto 3;
if a[i]='(' then
begin
n:=i;
i:=i+1;
b:='';
end;
b:=b+a[i];
{writeln(b);}
i:=i+1;
end;
m:=i;
a:=copy(a,1,n-1)+calculate(b)+copy(a,m+1,length(a));
{writeln(a);}
goto 1;
end;
end;
2:
val(calculate(a),result,o);
write(result:5:3);
end.
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
