Нужно вывести текстовые значения на экран

@Евгений_Белгоро · Регистрация: 31.05.2013

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

Ребята помогите дополнить программу. Я написал программу переписывающую из одного текстового файла нужные значения тоесть студентов в новый текстовый файл. Одна проблема нужно чтобы сам паскаль открыл этот файл и вывел на экран а не я открывая файл из папки. Файлы приложеные это программа и значения которые для работы нужно будет пересохранить в простом файле блакнота не изменяя ничего и сохранить в формате dat чтобы программа работала. Заранее спасибо с моим нелегким вопросом))

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
program Lab7;
VAR  i:integer;
F2,F7:text;
neud:boolean;
std:string[77];
ch:char;
Begin
Assign (F7,'C:\tabl\stud.dat');   {поменять на свои данные где находится текстовый файл stud.dat}
Assign (F2,'C:\tabl\ne sdal.dat');  {расположение где сохранится новый переписаный файл который и нужно вывести на экран}
begin
 
Reset (F7);
Rewrite(F2);
while not Eof (F7) do
begin
neud:=false;
readln(F7,std);
for i:=54 to 77 do
begin
Ch:=std[i];
case ch of
'2','1','0': neud:=true;
end;
end;
 if neud then writeln (F2,std);
end;
Close (F7);
Close (F2);
End.

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Локтев       Сергей     Викторович    М19.03.94 Р-62 4 5 5 4 5 5 5 5 5 4 5 4
Костенко     Светлана   Владимировна  Ж14.10.94 Р-52 3 4 5 3 3 4 5 5 3 4 5 2
Иванов       Артём      Евгеньевич    М17.05.95 Р-62 3 3 4 3 4 3 5 4 3 3 3 3
Петров       Генадий    Валерьевич    М19.08.95 Р-52 3 4 4 3 3 4 5 3 4 3 2 4
Сидоров      Пётр       Генадьевич    М13.05.94 Р-52 4 4 5 4 3 4 5 4 5 4 3 4
Пименов      Иван       Викторович    М11.06.94 Р-62 3 4 5 3 4 4 3 5 5 4 3 3
Звернский    Дмитрий    Валерьевич    М17.04.94 Р-62 4 5 5 5 4 5 4 5 5 4 4 4
Москаленко   Валентина  Петровна      Ж10.11.94 Р-52 3 4 4 3 5 5 4 4 5 4 4 3
Кочубей      Елена      Викторовна    Ж12.04.94 Р-52 3 4 5 5 5 4 4 3 4 5 5 4
Андрияненко  Артём      Александрович М10.07.94 Р-52 3 4 2 3 4 5 5 5 5 4 3 3
Филипенко    Алексей    Иванович      М19.01.95 Р-62 3 4 3 3 4 5 4 5 3 5 4 3
Черных       Анна       Евгеньевна    Ж12.03.95 Р-62 5 4 4 5 5 5 4 4 5 4 4 5
Ступак       Евгений    Александрович М06.03.94 Р_52 2 3 4 5 5 3 4 4 3 3 3 5
Журавлёв     Дмитрий    Александрович М05.05.94 Р-62 4 3 4 5 5 4 3 3 4 5 5 4
Нечитайлов   Евгений    Петрович      М03.08.95 Р-52 3 3 3 3 3 3 3 3 3 2 4 3

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .