Не уверен, что это корректное сравнение.Хыиуду писал(а):Не перестаю поражаться, как преподаватели дают студентам задачи, полностью убивающие программерский стиль мышления! Хорошо еще если в стиле: "Дан гвоздь, надо забить его в стену. Можете воспользоваться микроскопом", а то зачастую "Даны гвоздь и микроскоп, забейте в стену одно с помощью другого"!
По-моему, так как раз менее наглядно (менее структурированно). Все свалено "в одну строку". Начинающий только будет путаться и при чтениитакого текста, и при написании.Хыиуду писал(а):Ну тогда сделали бы file of record: name:string;phone:longint; end;, уже было бы логичнее и практичнее.
Для наглядности, стройности и читаемости текста программы.Хыиуду писал(а):У меня после этого возник бы закономерный вопрос: "А зачем в этой программе эти два пользовательских типа?"
А вот насчет всего остального - куда-то мы ушли в сторону киевских дядек и заросших бузиной огородов.Может быть ты и прав, но в данном случае я на стороне Хыиуду. С фразой "Не перестаю поражаться, как преподаватели дают студентам задачи, полностью убивающие программерский стиль мышления!" - полностью согласен. Наверное, это просто неудачный пример использования типов, - они здесь совсем не нужны. Ну, научит её преподаватель использовать типы к таким задачам - а она и начнёт применять их ко всем "ненуждающимся", тем самым, наполняя код ненужными действиями и затемняя свой разум.BBB писал(а):Не уверен, что это корректное сравнение.
А как еще продемонстрировать использование (закрепить на практике) типированных файлов? Дается задание с указанием применить "изучаемый материал" (т.е. в данном случае - типированных файлов).
Еще раз: не путайте учебную задачу (программу) с практической.
Код: Выделить всё
program z1] of string;
begin
clrscr;
readln(a);
i:=1;
n:=1;
for j:=1 to 100 do
begin
x[j]:=''; s[j]:='';
end;
while i<=length(a) do
begin
if a[1]=' ' then goto 3 else goto 2;
2:if (a[i]=' ') and (a[i+1]<>' ') then n:=n+1;
repeat
x[n]:=x[n]+a[i];
i:=i+1;
if a[i]=' ' then goto 2;
if i>length(a) then goto 4;
until a[i]<>' ';
3:repeat
if a[i]<>' ' then goto 2;
i:=i+1;
if i>length(a) then goto 4;
until a[i]=' ';
end;
4:for j:=1 to n do
for i:=1 to length(x[j]) do
if x[j][i]<>' ' then s[j]:=s[j]+x[j][i];
b:='';
for i:=1 to n do
b:=b+s[i]+' ';
writeln(b);
readkey;
end.
Код: Выделить всё
program z1;
uses crt;
label 1;
var a,i,k:integer;
begin
writeln('Введите число ');
readln(a);
k:=0; i:=0;
while a>1 do
begin
i:=a mod 2;
a:=a div 2;
if i<>0 then begin k:=1; goto 1; end;
end;
1:if k=0 then writeln('yes!')
else
writeln('no');
readkey;
end.
{http://www.tpxexe.narod.ru/017.html}
Код: Выделить всё
var a,b:integer;
begin
readln(a);
b:=2;
while b<a do b:=b*2;
if b<>a then write('Не является') else write('Является');
readln;
end.
Ага, у нас такое тоже было. И, в принципе, они, конечно, правы (т.е., "метки убивают структурированность"). Хрен сразу найдешь все входы и выходы в/из процедурыХыиуду писал(а): ... У нас многие преподаватели вообще требовали обходиться без меток именно потому, что они убивают структурированность программы....
Ну, умельцы-то это делали. При помощи ассемблера сохраняя и востанавливая, так сказать, "образ текущего состояния" (читая - значения регистровКолядин Максим писал(а):Вот небольшая статья о вреде использования меток:
_______________________
..................
Безусловный переход можно осуществлять далеко не из каждого места программы. Так, нельзя с помощью этого оператора ... выйти из подпрограммы....
)