На основе строки в виде суммы чисел создать класс,в классе написать функцию,вычисляющую результат.(Паскаль)

[нуб7]

На основе строки вида 12+456 создать класс с полями Number1:integer; Number2:integer; Operation:char; Написать в классе функцию,вычисляющую результат операции и показать результат ее выполнения на экране. (Турбо Паскаль) Помогите,пожалуйста!

[Stilet]

Вот класс я тебе наверное не покажу а функцию вычисления могу:

function eval(s:string):Double;
var e,i:integer; d,d2:double; c:char;
begin
 while pos(' ',s)<>0 do delete(s,pos(' ',s),1);
 val(s,d,e);
 if e<>0 then begin
  val(copy(s,1,e),d,e);
  c:=s[e];
  delete(s,1,e);
  val(s,d2,e);
  case c of
    '+': eval:=d+d2;
    '-': eval:=d-d2;
    else eval:=0;
  end;
 end else eval:=0;
 end;

Идея такова: Пытаемся выяснить где в выражении заканчивается первое число.
потом отрезаем строку до этого окончания, и превращаем первое число в вещественное. Потом выясняем символ знака, и получаем второе число.
Case - само вычисление.

Ясен перец?

[нуб7]

Спасибо большое за разъяснение))),но хотелось бы класс увидеть, а то не понимаю совсем

[min@y™]

а в турбопаскакале нету классов.

[Stilet]

а в турбопаскакале нету классов.

Ну они-то там есть, только называются объектами
Просто либо преподаватель так излился студентам по глупости, либо студенты так поняли.

[нуб7]

Без объяснений, такой билет попался(

uses
SysUtils;

const s:string='12+456';
type MyClass = class
Number1,Number2:integer;
Operation:char;
procedure Opredelenie(a:string);
function Rastshet():integer;
end;
procedure MyClass.Opredelenie;
var i,n:integer; buf:string;
begin
n:=length(a);
for i:=1 to n do
begin
if ord(a[i]) in [48..57] then buf:=buf+a[i] else break;
end;
Number1:=strtoint(buf);
delete(a,1,length(buf));
buf:='';
Operation:=Chr(Ord(a[1]));
delete(a,1,1);
Number2:=StrToInt(a);
end;
function MyClass.Rastshet;
begin
case Operation of
'+':Rastshet:=Number1+Number2;
'-':Rastshet:=Number1-Number2;
end;
end;
var MC:MyClass;
begin
writeln('Stroka s: ',s);
MC.Opredelenie(s);
writeln('Rezultat: ',s,' = ',MC.Rastshet);
end.

оцените, правильно ли все сделано?

[min@y™]

оцените, правильно ли все сделано?

очень неправильно. это не паскаль, а обджектпаскаль.
бонус тебе.

[Stilet]

это не паскаль, а обджектпаскаль.

Это даже уже Делфи. Но не важно - это точно не турбопаскаль.
На турбике было бы так:

const s:string='12+456';
type 
MyClass = Object
  Number1,Number2:integer;
  Operation:char;
  procedure Opredelenie;
  function Rastshet;
end;

procedure Opredelenie(a:string);
function Rastshet():integer;
end;

procedure MyClass.Opredelenie;
var e,i,n:integer; buf:string;
begin
n:=length(a);
for i:=1 to n do
begin
if ord(a[i]) in [48..57] then buf:=buf+a[i] else break;
end;
val(buf,Number1,e);
delete(a,1,length(buf));
buf:='';
Operation:=Chr(Ord(a[1]));
delete(a,1,1);
val(a,Number2,e);
end;

function MyClass.Rastshet;
begin
case Operation of
'+':Rastshet:=Number1+Number2;
'-':Rastshet:=Number1-Number2;
end;
end;

var MC:MyClass;
begin
writeln('Stroka s: ',s);
MC.Opredelenie(s);
writeln('Rezultat: ',s,' = ',MC.Rastshet);
end.

[нуб7]

Stilet, спасибо,очень помог))