Полная версия: Обработка строковых и символьных данных
Даны две строки с1 и с2, содержащие до пяти цифр каждая. Преобразовать их к данным целого типа, используя процедуру val, и вычислить арифметическое выражение c3=(c1-c2)/(c1+c2).
И в чём проблема?
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.
Не пойму, как посчитать с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.
Естественно так неправильно ( 
: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
: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
Хех...спасиб.
А я всё думал, куда деть kod error? И зачем он нужен...
Хех...спасиб.
А я всё думал, куда деть kod error? И зачем он нужен...
Нет, в принципе kod error (это я его так назвал, а так это код возможной ошибки) нужен, а вдруг в строке будет символ ? тогда val не сможет перевести строку в число! Помните: хорошая программа никогда не вылетает с ошибкой rintime error !
Так, что fod error нужен! (если аккуратно вводить сроку, то ошибки не будет)
Так, что fod error нужен! (если аккуратно вводить сроку, то ошибки не будет)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.