|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.03.2017, 07:14 | #1 |
Регистрация: 16.03.2017
Сообщений: 6
|
PASCAL-Объясните пошагово что происходит в этом цикле пожалуйста
var f,g:text;
n,s,s1:string; a,k,p:integer; begin assign(f,'family.txt'); reset(f); assign(g,'note.txt'); reset(g); writeln(' |Ф.И.О| ↓Оценки↓'); while not eof(g) do begin readln(f,s1); readln(g,s); writeln(s1,' ',s); end; close(f); close(g); assign(f,'family.txt'); reset(f); assign(g,'note.txt'); reset(g); writeln('Cписок студентов получающих стипендию:'); k:=0; while not eof(f) do begin readln(f,n); p:=0; while not eoln(g)and(p=0) do begin read(g,a); if not(a in [4,5])then p:=1; end; if p=0 then begin k:=1; writeln(n); end; readln(g,s); end; close(f); close(g); if k=0 then write('Таких студентов нет'); end. Объясните пошагово что происходит в этом цикле пожалуйста(выделено красным) |
17.03.2017, 08:21 | #2 |
Лис
Старожил
Регистрация: 18.09.2015
Сообщений: 2,409
|
Код:
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
У дзен программиста программа делает то что он хотел, а не то что он написал . |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста, объясните что происходит в каждой строчке программы. | nason | Помощь студентам | 0 | 15.12.2015 19:22 |
объясните пожалуйста в коментариях что происходит в каждой строчке(С++Builder) | Coca Colla | Помощь студентам | 6 | 13.05.2014 14:37 |
что происходит в этом коде | Dimasik73 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 5 | 19.02.2012 23:54 |
Задачка на Pascal, объясните, пожалуйста, я тут что -то не могу разобраться. | Girlo4ka | Помощь студентам | 6 | 28.12.2008 15:02 |