Обработка строковых и символьных данных, процедура val |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Обработка строковых и символьных данных, процедура val |
saturn |
Сообщение
#1
|
Гость |
Даны две строки с1 и с2, содержащие до пяти цифр каждая. Преобразовать их к данным целого типа, используя процедуру val, и вычислить арифметическое выражение c3=(c1-c2)/(c1+c2).
|
Altair |
Сообщение
#2
|
Ищущий истину Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: 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 - -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Текстовая версия | 25.04.2024 7:57 |