![]() |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
![]() ![]() |
![]() |
denon |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: ![]() ![]() ![]() |
program lab_1;
var a,b,c,d:integer; K:real; f: file of integer; m: file of real; begin assign(f,'C:\in.txt'); assign(m,'C:\out.txt'); reset(f); read(f,a); read(f,b); read(f,c); read(f,d); K:=(a*b*c)/d; rewrite(m); write(m,K); read; end. в чем проблема ? |
TarasBer |
![]()
Сообщение
#2
|
![]() Злостный любитель ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 755 Пол: Мужской Репутация: ![]() ![]() ![]() |
m: file of real;
замени на m: text потому что сейчас у тебя в файл напрямую пишутся байты, из которых состоит число К (если попытаться открыть в виде символов, то увидишь символы, коды которых соответствуют этим байтам). -------------------- |
denon |
![]()
Сообщение
#3
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: ![]() ![]() ![]() |
TarasBer , спс
помогло ![]() |
![]() ![]() |
![]() |
Текстовая версия | 14.06.2024 19:46 |