Втекстовом файле, содержащем данные типа real, поменять местами максимальный и минимальный элементы(паскаль)

112

179

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

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

марго1002

Информатика

4,7(8 оценок)

//боль //pascal abc.net 3.1 сборка 1219 var f: text; max,min,p: real; maxn,minn,n,i: integer; ar: array of real; s: string; begin max: =real.minvalue; min: =real.maxvalue; n: =0; assign(f,'text.txt'); reset(f); while not(eof(f)) do begin read(f,p); inc(n); setlength(ar,n); ar[n-1]: =p; if ar[n-1]> max then begin max: =ar[n-1]; maxn: =n-1; end; if ar[n-1]< min then begin min: =ar[n-1]; minn: =n-1; end; end; close(f); swap(ar[minn],ar[maxn]); for i: =0 to n-1 do if i< > n-1 then s: =s+floattostr(ar[i])+' ' else s: =s+floattostr(ar[i]); rewrite(f); write(f,s); close(f); end. пример содержимого text.txt: 0 -2.1 1.1 пример содержимого text.txt после работы программы: 0 1.1 -2.1

andreu1024

Информатика

4,4(9 оценок)

1. это с ручным вводом a и n var y, a, n, i: integer; begin write('введите число '); readln(a); write('введите желаемую степень '); readln(n); write(a, '^', n, ' = '); y: =a; for i : = 2 to n do y : = y * a; write(y); end.2. а это с рандомизацией переменныхvar y, a, n, i: integer; begin a : = random(30); n : = random(7); write(a, '^', n, ' = '); if n=0 then y: =1 else begin y : = a; for i : = 2 to n do y : = y * a; end; write(y); end.

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

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

Задай свой вопрос

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

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

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

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

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

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

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