Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Обработка строковых и символьных данных

Автор: saturn 9.04.2004 9:36

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

Автор: Fire_Rage 9.04.2004 10:00

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

Автор: Guest 9.04.2004 10:59

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 9.04.2004 11:12

Естественно так неправильно ( rolleyes.gif :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

Автор: Guest 9.04.2004 12:03

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

Автор: Altair 9.04.2004 13:48

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