4+5

[Тигран001]

зацените какую прогу забацал

program ee;
var t,e,x:integer;
begin
t:=4;
e:=5;
x:=t+e;
writeln('равно:',x);
end.

моя первая прога

не ругайте сильно, знаю что это мегапримитивна прога, за то приятно

p.s. написал на бум

From Stilet: Сбацал это плюс, не оформил красиво пост это минус.

[Жека-старший]

Ваще КрасавчеГ

[Тигран001]

program ee;
var y,x,m:integer;
begin writeln ('vvedite y:');
readln (y);
writeln ('vvedite x:');
readln (x);
m:=x+y;
writeln('ravno:',m);
end.

во, по лучше что то сделал

как можно сделать так, чтобы после ввода x и y можно было бы выбрать знак +,-,* или / кто подскажет?

[ROMA2PVT]

как можно сделать так, чтобы после ввода x и y можно было бы выбрать знак +,-,* или / кто подскажет?

Написать интерпретатор математических выражений.

program ee;
var
  y,x,m:real;
  sel:integer;
begin
    write('vvedite y:');
    readln(y);
    write('vvedite x:');
    readln(x);
    writeln('Меню => : ':46);
    writeln('1. <<Нажмите 1 для сложения>>':52);
    writeln('2. <<Нажмите 2 для вычитания>>':53);
    writeln('3. <<Нажмите 3 для умножения>>':53);
    writeln('4. <<Нажмите 4 для деления>>':51);
    Readln(sel);
      Case sel of
        1: m:=x+y;
        2: m:=x-y;
        3: m:=x*y;
        4: m:=x/y;
      end;
writeln('ravno: ',m);
end.

А можешь вот так выбор осуществлять.

[Жека-старший]

Можно так, если сложение то знак второго слагаемого будет плюс, а если вычитание, то знак минус...вот и разность

ROMA2PVT, я думаю он еще не знает что такое "case"...

program ee;
var y,x,m,zn:integer;
begin
   writeln ('vvedite y:');
   readln (x);
   writeln ('vvedite x:');
   readln (y);
   writeln('(+1)- сложение');
   writeln('(-1)- вычитание');
   readln(zn);
   m:=x+zn*y;
   writeln('ravno:',m);
end.

[ROMA2PVT]

Жека-старший вы правы но я думаю ему легко будет понять оператор выбора.Почитает про него и поймёт его действие.

[Жека-старший]

ROMA2PVT, это точно.