Обработка строковых и символьных данных

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

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

Опции

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

Ответов

Altair	9.04.2004 7:12 Сообщение #2
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45	Естественно так неправильно ( :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 7:13 -------------------- Помогая друг другу, мы справимся с любыми трудностями! "Не опускать крылья!" (С)