Написать программу в паскале Pascal АВСЗадания для самостоятельного решения 1) Известно
Написать программу в паскале Pascal АВС
Задания для самостоятельного решения
1) Известно количество символов в каждой строке, количество строк на страничке. Написать про-грамму, вычисляющую число знаков на странице.
2) Составить программку, запрашивающую при помощи операторов ввода-вывода: заглавие куп-ленного товара, количество и цену за единицу. После вычислений и очистки экрана выдаются последующие известья: заглавие продукта и его общая цена.
3) Знаменито оклад сотрудника, количество отработанных дней и число рабочих дней в месяце. Составить программку нахождения заработной платы сотрудника, с учетом вычетов подоходного налога (13%) и пенсионного налога (1%).
cl,lp:integer;
begin
Write('Количество знаков в строке- '); Read(cl);
Write('Количество строк на страничке- '); Read(lp);
Writeln('Количество знаков на страничке: ',cl*lp)
end.
Пример
Количество знаков в строке- 68
Количество строк на странице- 45
Количество символов на страничке: 3060
uses Crt;
var
nt:string; названье продукта
kt:real; количество продукта
ct:real; стоимость продукта за единицу
begin
Write('Наименование товара- '); Readln(nt);
Write('Количество продукта- '); Read(kt);
Write('Стоимость за единицу продукта- '); Read(ct);
ClrScr;
Writeln(nt,' - ',ct*kt:0:2)
end.
Результаты работы программки даны во вложениях
const
podn=0.13; подоходный налог
pensf=0.01; в Пенсионный фонд
var
os:real; оклад сотрудника
nd:integer; количество отработанных дней
nr:integer; количество рабочих дней в месяце
nach:real; начислено
sp:real; сумма подоходного налога
spf:real; сумма отчислений в ПФ
nzp:real; итого начислений на зарплату
svyd:real; сумма к выдаче
begin
Write('Оклад, руб- '); Read(os);
Write('Отработано дней- '); Read(nd);
Write('Рабочих дней- '); Read(nr);
nach:=os*nd/nr; может получиться нецелое число
округлим до сотых долей
nach:=Round(nach*100)/100;
sp:=nach*podn; sp:=Round(sp*100)/100;
spf:=nach*pensf; spf:=Round(spf*100)/100;
nzp:=sp+spf;
svyd:=nach-nzp;
Writeln('Начислено, руб: ',nach:0:2);
Writeln('Подоходный налог, руб: ',sp:0:2);
Writeln('В Пенсионный фонд, руб: ',spf:0:2);
Writeln('Итого налогов, руб: ',nzp:0:2);
Writeln('К выдаче, руб: ',svyd:0:2)
end.
Пример
Оклад, руб- 46420
Отработано дней- 19
Рабочих дней- 22
Начислено, руб: 40090.00
Подоходный налог, руб: 5211.70
В Пенсионный фонд, руб: 400.90
Итого налогов, руб: 5612.60
К выдаче, руб: 34477.40
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.