|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Не записывает в файл строку
Всем привет! Проблема ерундовая! Почему-то не записывает в файл несколько значений.
Все нужные вещи обозначены вот так: f,g: TextFile; fdir,gdir,tendstr: string; Все остальные указанные переменные обозначены как real и integer и массивы собственно. Суть проблемы: Пишет что в строчках где закрываются файлы: too many actual parameters Вот код: Код:
fdir:='C:\Users\Руслан\Desktop\Компьютерная физика\СДАВАТЬ\Уравнение теплопроводности ДЕЛФИ\res.txt'; AssignFile(f,fdir); Rewrite(f); WriteLn(f,'Толщина пластин L =',L:6:4); WriteLn(f,'Число узлов по координате N =',N); WriteLn(f,'Коэффициент теплопроводности материала lamda =',lamda:6:4); WriteLn(f,'Плотность материала ro =',ro:6:4); WriteLn(f,'Теплоемкость материала c =',c:6:4); WriteLn(f,'Начальная температура T0 =',T0:6:4); WriteLn(f,'Температура на границе х=0, T1 =',T1:6:4); WriteLn(f,'Температура на границе х=L, Tr =',Tr:6:4); WriteLn(f,'Результат получен с шагом по координате h =',h:6:4); WriteLn(f,'Результат получен с шагом по времени tau =',tau:6:4); WriteLn(f,'Температурное поле в момент времени t =',tend:6:4); close(f); gdir:='C:\Users\Руслан\Desktop\Компьютерная физика\СДАВАТЬ\Уравнение теплопроводности ДЕЛФИ\tempr.txt'; AssignFile(g,gdir); Rewrite(g); for i:=1 to N do writeln(g,' ',h*(i-1):6:3,' ',T[i]:8:5); close(g); |