решить задачу на си через case,через if я сам умею.Вычислить величину скидки.Скидка в 3% предоставляется,если сумма покупки больше 500 рублей, в 5% - если сумма больше 1000 рублей, 8% при стоимости покупки свыше 1500 рублей! Входные данные: Сумма покупки.
нажмите [Enter]
-> 640
Ваша скидка 3%
Сумма скидки: 19.20 руб.
uses GraphABC;
var x0, y0, x1, y1: integer;
begin
SetWindowSize(400, 400);//устанавливаем размер окна
x0 := WindowWidth;//ширина окна
y0 := WindowHeight;//высота окна
SetFontColor(clRed);//Устанавливаем цвет текста
TextOut(0, 0, 'Сергей');//Надпись в левом верхнем углу
x1 := WindowWidth div 2; //половина ширины окна
y1 := WindowHeight div 2;//половина высоты окна
SetFontColor(clBlue);
TextOut(x1, y1, 'Сергей');//Надпись посередине
SetFontColor(clYellow);
TextOut(0, y0, 'Сергей');//Надпись в левом нижнем углу
SetFontColor(clPurple);
TextOut(x0, 0, 'Сергей');//Надпись в правом верхнем углу
SetFontColor(clGreen);
TextOut(x0, y0, 'Сергей');//надпись в правом нижнем углу
end.
Программа была написана в проверьте, работает ли она в вашем Pascal.
Форматирование часто применяется по отношению к абзацу.
Абзац — фрагмент текста, процесс ввода которого закончился нажатием на клавишу ввода Enter. Абзац является ключевым элементом в структуре документа для многих текстовых процессоров (хотя имеются и другие, например, в Microsoft Word — разделы).
Операции форматирования абзацев включают установку границ абзацев и абзацных отступов, выравнивание, а также включение переноса слов.
Установку границ абзацев производят с маркеров отступов, находящихся на координатной линейке, или соответствующими командами меню.
Выравнивание (выключка). Различают четыре вида горизонтального (влево, вправо, по центру, по ширине) и три вида вертикального выравнивания (вверх, вниз, по высоте).
Перенос. При выключенном режиме автоматического переноса слово, не поместившееся на строке, полностью переносится на следующую строку. Это не придаст элегантности тексту; его правый край остается неровным. Для улучшения внешнего вида текста используют режим переноса. При ручном варианте переноса пользователь сам определяет место переноса, вводя дефис, и жестким переводом каретки (нажатием на клавишу Enter) переходит на следующую строку. Использование такого режима переноса приводит к необходимости удаления дефисов при повторном форматировании текста документа.
При включенном режиме автоматического переноса реализуется мягкий вариант переноса: текстовый процессор сам делит слово на слот и переносит его наилучшим Этот режим не создает никаких трудностей при повторном форматировании.