Змінюй хід війни! Допомагай ЗСУ!

Кто знает паскаль, помогите

🟡 15:21 Відбій тривоги в Харківський район.Зверніть увагу, тривога ще триває у:- Харківський район#Харківський_район
Статус: Offline
Реєстрація: 24.11.2008
Повідом.: 3097
  • 🟡 15:21 Відбій тривоги в Харківський район.Зверніть увагу, тривога ще триває у:- Харківський район#Харківський_район
  • #1
Кто знает паскаль, помогите

Прошу уважаемых програмистов, шарящих в паскале, помочь мне, тёмному в этом деле непрограммеру )).
У меня есть программа, которая получает нужные для моей работы числа, которые она выводит на экран. Вопрос: как мне сделать, чтобы эти числа записались в текстовый файл (ну чтобы я потом их обрабатывал)?
 
  • 🟡 15:21 Відбій тривоги в Харківський район.Зверніть увагу, тривога ще триває у:- Харківський район#Харківський_район
  • #2
your_program.exe > file.txt
 
  • 🟡 15:21 Відбій тривоги в Харківський район.Зверніть увагу, тривога ще триває у:- Харківський район#Харківський_район
  • #3
Program primer;
Var
f1:text;
I,n: integer;
S: string;
Begin
Assign(f1, ‘file1.txt’); {устанавливаем связь файловой переменной с физическим файлом на диске}
Rewrite(f1); {открываем файл для записи}
Readln(n) {определим количество вводимых строк}
for i:=1 to n do
begin
readln(s); {вводим с клавиатуры строки}
writeln(f1,s); {записываем последовательно строки в файл}
end;
close(f1); {заканчиваем работу с первым файлом, теперь на диске существует файл с именем file1.txt, содержащий введенные нами строки. На этом программу можно закончить, работу с файлом можно продолжить в другой программе, в другое время}
end;
 
  • 🟡 15:21 Відбій тривоги в Харківський район.Зверніть увагу, тривога ще триває у:- Харківський район#Харківський_район
  • #4
Большое спасибо, это как раз то, что мне нужно
 
Назад
Зверху Знизу