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
PRICE_MARGARITA = 300
PRICE_PEPERONI = 450
PRICE_BAYERN = 500
PRICE_GRIBNAY = 430
PRICE_MEXICO = 470
SKIDKA_NEED = 1200
SKIDKA_SIZE = 250
DELIVERY = 120
price = 0
name = str(input("Введите имя "))
surname = str(input("Введите фамилию "))
phone = str(input("Введите телефон "))
margarita = int(input("Сколько пиццы Маргарита желаете заказать ? "))
price += margarita * PRICE_MARGARITA
peperoni = int(input("Сколько пиццы Пеперони желаете заказать ? "))
price += margarita * PRICE_PEPERONI
bayern = int(input("Сколько пиццы Баварская желаете заказать ? "))
price += bayern * PRICE_BAYERN
gribnay = int(input("Сколько пиццы Грибная желаете заказать ? "))
price += gribnay * PRICE_GRIBNAY
mexico = int(input("Сколько пиццы Мексиканская желаете заказать ? "))
price += mexico * PRICE_MEXICO
type = str(input("Самовывоз или доставка: "))
if type == "Доставка":
price += DELIVERY
print("\n" * 99999)
print("Добрый день, ", surname, " ", name)
print("Ваш номер телефона ", phone)
print(
"Ваш заказ: Маргарита – {}, Пепперони – {}, Баварская – {}, Грибная – {}, Мексиканская {}".format(margarita,
peperoni,
bayern,
gribnay,
mexico))
print("Тип заказа: ", type)
if price > SKIDKA_NEED:
print("Ваша скидка: ", SKIDKA_SIZE)
print("Сумма заказа: ", price - SKIDKA_SIZE)
else:
print("Ваша скидка 0 рублей")
print("Сумма заказа: ", price)
print(
"Уважаемый клиент! Если Вы выбрали доставку, то сейчас Вам позвонит менеджер для уточнения деталей заказа , что Вы с нашей пиццерией!")