Запись в текстовый файл

@Wind1k · Регистрация: 24.03.2013

Студворк — интернет-сервис помощи студентам

Создать текстовый файл и записать в него 6 строк. Записываемые строки вводятся с клавиатуры.

Kodzaev · 29.03.2013, 21:13

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var
  f: Text;
  i: Byte;
  s: String;
BEGIN
Assign(f,'1.txt');
Rewrite(f);
Writeln('Введите 6 строк: ');
For i:=1 to 6 do
begin
  Readln(s);
  Writeln(f,s);
end;
Close(f);
Writeln('Файл "1.txt" создан')
END.

@Станиславиус · 29.03.2013, 21:34

Может знаете как тут правильно сделать?

. Выложу код:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
program Runge_Kutt;
uses crt;
const
h = 0.1;
n = 50;
var
file1: text;
i: integer;
xi, yi, dy, dx: real;
k1, k2, k3, k4, k11, k12, k13, k14: real;
 
function FotXY(x, y: real): real;
begin
FotXY := (70-x*0.031-y*1.2)/0.01;
end;
 
function FotYX(x, y: real): real;
begin
FotYX := (y*1.2-148)/13;
end;
 
begin
clrscr;
 
assign(file1,'file1.txt');
 
rewrite(file1);
 
writeln(file1,'      k       |      xk      |      yk      |');
 
write(file1,i:3, ' ', xi:2:3, ' ', yi:2:3);
 
xi := 0;
yi := 1;
 
write('Ðàñ÷¸ò ìåòîäîì Ðóíãå-Êóòòû 4ãî ïîðÿäêà òî÷íîñòè...');
for i := 0 to n do
 
begin
 
 
k1 := h * fotxy(xi, yi);
k2 := h * fotxy(xi + h/2, yi + k1/2);
k3 := h * fotxy(xi + h/2, yi + k2/2);
k4 := h * fotxy(xi + h, yi + k3);
k11 := h * fotyx(xi, yi);
k12 := h * fotyx(xi + h/2, yi + k1/2);
k13 := h * fotyx(xi + h/2, yi + k2/2);
k14 := h * fotyx(xi + h, yi + k3);
dy := (k1 + 2*k2 + 2*k3 + k4) / 6;
dx := (k11 + 2*k12 + 2*k13 + k14) / 6;
yi := yi + dy;
xi := xi + dx;
 
write(file1,i:3, ' ', xi:12:5, ' ', yi:12:5);
 
end;writeln('Ðàñ÷¸ò îêîí÷åí!');
 
close(file1);
 
end.

Вообщем не могу выдать нормальную структуру в файле file1, получается всё сдвинутым а для того что бы Mathcad прочитал файл с этого файла надо что б всё было ровно в несколько столбцов. То есть сейчас в file1 так:

i | xi | yi |
0 0.000 0.000 0 27.44933 -36463.13950 1 17893.92421 -23263669.00857 2 11398994.12827 -14818700261.42470 3 7261016365.99329 -9439324818154.14400 4 4625175658649.36896 -6012730610702397.44000 5 2946178439478830.08000 -3.830033407381392E18 6 1.87667843079908576E18 -2.43968287479018656E21 7 1.1954204420997432E21 -1.55404715741473088E24 8 7.6146771334792128E23 -9.89908398515320064E26 9 4.85045309625826368E26 -6.30559138939728512E29 10 3.08967732007459776E29 -4.0165820221016992E32 11 1.96808540413418432E32 -2.55851198468041312E35 12 1.2536455288711168E35 -1.62973979859823328E38 13 7.98556357746042624E37 -1.0381236543110352E41 14 5.08670307364199616E40 -6.61271647515171584E43 15 3.2401655698329024E43 -4.21221682014014208E46 16 2.06394451729097984E46 -2.68312887850895712E49 17 1.3147065724407344E49 -1.7091191850017856E52 18 8.37451470782527616E51 -1.088687320217152E55 19 5.3344600279423456E54 -6.93480063650660736E57 20 3.39798361845666176E57 -4.41738036027644928E60 21 2.1644726196877248E60 -2.8138154606252464E63 22 1.37874170314738224E63 -1.79236488613314016E66 23 8.78241039737429376E65 -1.14171377974062768E69 24 5.59428442701302144E68 -7.27257248194497024E71 25 3.56348847688523904E71 -4.63253675690580992E74 26 2.26989712278072608E74 -2.95086736603332736E77 27 1.44589577921459616E77 -1.87966521775350176E80 28 9.21017337468355456E79 -1.19732298764132784E83 29 5.86676403729510784E82 -7.62679610812670976E85 30 3.73705454491314368E85 -4.85817272994358144E88 31 2.38045651450724928E88 -3.09459462916788928E91 32 1.51632071444429568E91 -1.97121766787941216E94 33 9.65877131147172096E93 -1.25564074128984704E97 34 6.1525152534435264E96 -7.99827282840367488E99 35 3.91907445814528448E99 -5.0947987058675264E102 36 2.496400898785312E102 -3.24532238524426752E105 37 1.59017582187133024E105 -2.06722934353383136E108 38 1.0129219011636088E108 -1.31679896524229744E111 39 6.45218449271529728E110 -8.3878429855250752E113 40 4.1099599762046688E113 -5.34294997238825792E116 41 2.61799256129076608E116 -3.40339160576891072E119 42 1.66762817415632992E119 -2.1679174392570144E122 43 1.06225807069094544E122 -1.38093600967581696E125 44 6.76644965727395584E124 -8.79638785263393792E127 45 4.31014291420182976E127 -5.60318788935995072E130 46 2.74550656279154336E130 -3.56915986987420672E133 47 1.74885298153212512E133 -2.27350972843704224E136 48 1.11399724643310784E136 -1.44819696335990944E139 49 7.09602166771815552E138 -9.22483162685503488E141 50 4.520076119573168E141 -5.876101158670656E144

А надо так:

*****i********Xi******** Yi
***0.00100***0.99019***0.02785
***0.00200***0.98075***0.05540
***0.00300***0.97168***0.08266
***0.00400***0.96297***0.10965
***0.00500***0.95461***0.13637

(вместо звёзд пробелы)

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@Wind1k 0 / 0 / 0 Регистрация: 24.03.2013 Сообщений: 9

	Запись в текстовый файл 29.03.2013, 20:07. Показов 10295. Ответов 2 Метки нет (Все метки) Создать текстовый файл и записать в него 6 строк. Записываемые строки вводятся с клавиатуры. 0