Надо сделать типо введите кнопку y это завершение программы а если ввели z то продолжение, как сделать вот пример readln (c); until c in ['z','z','y','y']; if c in ['y','y'] then halt; //остановка программы как мне написать слово продолжить где halt

//данная программа вычисляет детерминант матрицы //pascalabc.net 3.2 сборка 1318     var   c: char;   reci: array of integer;   ma: array of array of integer;   n,nc,ip: integer;   resf: real;   function minor(ip,i,n: integer; var reci: array of integer): real;   var     ic,j,c,ipp,icc: integer;     res: real;     b: boolean;     arf: array[1..4] of integer;   begin   b: =true;   c: =0;   reci[ip]: =i;   ipp: =ip+1;   if ipp=nc-1 then   begin     for ic: =1 to n do       begin         for j: =1 to ip do           if ic=reci[j] then   b: =false;           if b=true then             begin             inc(c);             arf[c]: =ma[ipp,ic];             end;           b: =true;         end;         inc(ipp);         for ic: =1 to n do       begin         for j: =1 to ip do           if ic=reci[j] then   b: =false;           if b=true then             begin             inc(c);             arf[c]: =ma[ipp,ic];             end;           b: =true;         end;         minor: =arf[1]*arf[4]-arf[2]*arf[3];       end       else   begin       for ic: =1 to n do       begin         for j: =1 to ip do           if ic=reci[j] then b: =false;           if b=true then             res+=ma[ipp,ic]*power(-1,ipp+i)*minor(ipp,ic,n,reci);             b: =true;           end;     minor: =res;     end; end; procedure start(); var   i,j: integer; begin   write('введите количество строк и столбцов: ');   readln(n);   ip: =1;   nc: =n;   setlength(reci,n+1);   setlength(ma,n+1);   for i: =1 to n do   setlength(ma[i],n+1);   writeln('введите матрицу: ');   for i: =1 to n do     for j: =1 to n do       readln(ma[i][j]);   for i: =1 to n do     resf+=ma[ip][i]*power(-1,ip+i)*minor(ip,i,n,reci);   writeln('res: ',resf); end; begin repeat readln(c); until c in ['z','z','y','y']; if c in ['y','y'] then halt else start(); end. пример работы программы: 3 //введено ни z, ни y, повторяем ввод z //продолжаем программу введите количество строк и столбцов: 3 введите матрицу: 9 1 2 8 3 7 4 6 5 res: -183

Происхождение и история развития систем счисления

1.1 Границы счета

На ранних ступенях развития общества люди почти не умели считать. Они отличали друг от друга совокупности двух и трех предметов; всякая совокупность, содержавшая большее число предметов, объединялась в понятии «много». Это был еще не счет, а лишь его зародыш.

Впоследствии различать друг от друга небольшие совокупности развивалась; возникли слова для обозначений понятий «четыре», «пять», «шесть», «семь». Последнее слово длительное время обозначало также неопределенно большое количество. Наши пословицы сохранили память об этой эпохе («семь раз отмерь – один раз отрежь», «у семи нянек дитя без глазу», «семь бед – один ответ» и т.д.).

С усложнением хозяйственной деятельности людей понадобилось вести счет в более обширных пределах. Для этого человек пользовался окружавшими его предметами, как инструментами счета: он делал зарубки на палках и на деревьях, завязывал узлы на веревках, складывал камешки в кучки и т.п. Такой вид счета носит название унарной системы счисления, т.е. система счисления, в которой для записи числа применяется только один вид знаков. Это удобно, так как сразу визуально определяется количество знаков и сопоставляется с количеством предметов, которые эти знаки обозначают. Все мы ходили в первый класс и считали там на счетных палочках – это отзвук той далекой эпохи. Кстати, от счета с камешков ведут свое начало различные усовершенствованные инструменты, как, например, русские счеты, китайские счеты («сван-пан»), древнеегипетский «абак» (доска, разделенная на полосы, куда клались жетоны). Аналогичные инструменты существовали у многих народов. Более того, в латинском языке понятие «счет» выражается словом «calculatio» (отсюда наше слово «калькуляция»); а происходит оно от слова «calculus», означающего «камешек».

Особо важную роль играл природный инструмент человека – его пальцы. Этот инструмент не мог длительно хранить результат счета, но зато всегда был «под рукой» и отличался большой подвижностью. Язык первобытного человека был беден; жесты возмещали недостаток слов, и числа, для которых еще не было названий, «показывались» на пальцах.

Поэтому, вполне естественно, что вновь возникавшие названия «больших» чисел часто строились на основе числа 10 – по количеству пальцев на руках; у некоторых народов возникали также названия чисел на основе числа 5 – по количеству пальцев на одной руке или на основе числа 20 – по количеству пальцев на руках и ногах.

На первых порах расширение запаса чисел происходило медленно. Сначала люди овладели счетом в пределах нескольких десятков и лишь позднее дошли до сотни. У многих народов число 40 долгое время было пределом счета и названием неопределенно большого количества. В русском языке слово «сороконожка» имеет смысл «многоножка»; выражение «сорок сороков» означало в старину число, превосходящее всякое воображение.

На следующей ступени счет достигает нового предела: десяти десятков, и создается название для числа 100. Вместе с тем слово «сто» приобретает смысл неопределенно большого числа. Такой же смысл приобретают потом последовательно числа тысяча, десять тысяч (в старину это число называлось «тьма»), миллион.

На современном этапе границы счета определены термином «бесконечность», который не обозначает какое либо конкретное число.

Объяснение:

https://www.bestreferat.ru/referat-61646.html