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

[saturn]

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

[Fire_Rage]

И в чём проблема?

[Guest]

Fire_Rage
Не пойму, как посчитать с3..так неправильно-

Код

Program lab10_1;
uses crt;
var
c1,c2,c3:string[5];
cc1,cc2,e1,e2:integer;
begin
clrscr;
writeln('Vvedite stroky 1');
read(c1);
writeln('Vvedite stroky 2');
read(c2);
VAL(c1,cc1,e1);
VAL(c2,cc2,e2);
c3:=(cc1-cc2)/(cc1+cc2);
writeln('Otvet',c3);
readkey;
end.

[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

[Guest]

Oleg_Z
Хех...спасиб.
А я всё думал, куда деть kod error? И зачем он нужен...

[Altair]

Нет, в принципе kod error (это я его так назвал, а так это код возможной ошибки) нужен, а вдруг в строке будет символ ? тогда val не сможет перевести строку в число! Помните: хорошая программа никогда не вылетает с ошибкой rintime error !
Так, что fod error нужен! (если аккуратно вводить сроку, то ошибки не будет)