Есть ответ 👍

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

278
453
Посмотреть ответы 2

Ответы на вопрос:


//данная программа вычисляет детерминант матрицы //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

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS