С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
quodss
0 / 0 / 0
Регистрация: 09.09.2017
Сообщений: 1
1

Паскаль прекращает писать в файл

09.09.2017, 16:02. Просмотров 171. Ответов 2
Метки нет (Все метки)

Добрый день. При выполнении программы паскаль в какой-то момент прекращает писать в файл. Программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program a;
 
var txt:text;
r, N, fp, nn, dnndf: array [1..2000] of real;
Snn, Sdnndf, Nl, t, N0, alpha, f, Na:real;
i,j,k: longint;
begin
assign (txt,'tokamak.txt');
rewrite(txt);
 
f:=9.4*power(10,10);
Snn:=0; Sdnndf:=0;Nl:=0;
writeln('alpha?');readln(alpha);writeln('Na?'); readln(Na);
for j:=20 to 150 do 
 begin
  N0:=(1+0.06*(j-1))*power(10,13); Snn:=0; Sdnndf:=0;Nl:=0;
  for i:=1 to 2000 do
   begin
    N[i]:=Na*N0+(N0-Na*N0)*power((1-power((i/2000),2)),alpha);
    fp[i]:= N[i]*4.8*4.8*power(10,-20)/(3.1415926*9.1*power(10,-28));
    nn[i]:= sqrt(1-(fp[i])/(f*f));
    dnndf[i]:=(fp[i])/(nn[i]*f*f*f);
    Snn:=Snn+0.01*nn[i];
    Sdnndf:=Sdnndf+0.01*dnndf[i];
    Nl:=Nl+0.01*N[i];
   end;
   t:=4*(Snn+f*Sdnndf)/(3*power(10,10));
   writeln(txt,j,' ', 4*Nl/10000000000000:8:4, ' ', t-2.667*power(10,-9));
  end;
end.
Текстовый файл вывода в закрепе. Обратите внимание на последнюю строку: порядок обрезан, и после этого файл просто заканчивается, хотя должны быть строки вплоть от 20 до 150 включительно!
Программа запускалась с параметрами alpha=.5, Na=.1
Пожалуйста, скажите, в чём проблема? Дело в софте или железе? Комп не старый, ошибок никаких не вылезает.
0
Вложения
Тип файла: txt tokamak.txt (4.0 Кб, 1 просмотров)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.09.2017, 16:02
Ответы с готовыми решениями:

Паскаль. Файл.
Помогите с задачей: Дан текстовый файл содержащий строки. Вывести на экран...

Файл .exe в Паскаль АВС.
Podskazite kak coxronat v programme Pascal ABC faily v formate *.exe ???

исполняемый файл в Паскаль АВС.Net
как из кода на pascal abc.net сделать исполняемый файл(расширения .exe)

Вывести в графическом режиме Паскаль графический файл.
Здравствуйте! Подскажите, пожалуйста, как в программе на языке Паскаль...

Паскаль не открывает файл, хотя полный путь указан!
В моей программе есть функция которая должна обращается к файлу много раз, я...

2
Puporev
Модератор
55506 / 42595 / 29444
Регистрация: 18.05.2008
Сообщений: 100,760
09.09.2017, 17:14 2
Файл закройте в конце.
0
Ivandur
417 / 694 / 167
Регистрация: 11.08.2016
Сообщений: 1,114
09.09.2017, 17:49 3
Кстати, вместо power(10,13) лучше писать 1e13 и т.п.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.09.2017, 17:49

Паскаль.Дан текстовый файл, содержащий слова одного языка
интересно как это понимать ? . условие такое : Выбрать из текстового файла все...

Перевод из С++ в Паскаль.Записать в выходной файл построчно все ключевые слова, встречающиеся в этой программе
Дана программа написанная на языке Pascal. Записать в выходной файл построчно...

Снова перевести с Турбо Паскаля на Паскаль АВС или Паскаль АВС.Нет
program derevo; uses crt, graph; function cx(length, angle:real):integer;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru