Обработка строковых и символьных данных, процедура val Опции

[saturn]

Даны две строки с1 и с2, содержащие до пяти цифр каждая. Преобразовать их к данным целого типа, используя процедуру val, и вычислить арифметическое выражение c3=(c1-c2)/(c1+c2).

[Altair]

Естественно так неправильно ( :D :D :D )
вот как надо:

Код

Program lab10_1;
uses crt;
var
c1,c2,c3:string[5];
e1,e2:integer;
e3:real;
code:integer; {kod error}
begin
clrscr;
writeln('Vvedite stroky 1');
readln(c1);
writeln('Vvedite stroky 2');
readln(c2);
VAL(c1,e1,code);
VAL(c2,e2,code);
e3:=(e1-e2)/(e1+e2);
writeln('Otvet',e3);
readkey;
end.

А зачем вы строке присваиваете это выражение? :D :D :D :D :D

Сообщение отредактировано: Oleg_Z - 9.04.2004 11:13