Составить программу для вычисления. Составление, ввод, трансляция и выполнение программ линейной структуры

Задание 1

Составление, ввод, трансляция и выполнение программ линейной структуры.

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

program z1;

var cena, procent:real;

begin

writeln('vvedite nachalnuyu cenu'); {ввести начальную цену}

readln(cena);

writeln('vvedite 1 procent poviseniya'); {первый процент}

readln(procent);

cena:=cena+cena*procent/100; {первое повышение}

writeln('vvedite 2 procent poviseniya'); {второй процент}

readln(procent);

cena:=cena+cena*procent/100; {второе повышение}

writeln('vvedite 3 procent poviseniya'); {третий процент}

readln(procent);

cena:=cena+cena*procent/100; {третье повышение}

writeln('novaya cena = ',cena); {итоговая цена}

readln;

end.

Задание 2

Составление, ввод, трансляция и выполнение программ разветвляющейся структуры.

Составить программу для вычисления

 

Блок-схема:

 

 

 

Программа:

program z2;

var x,y,f,a,b:real;

begin

writeln('vvedite x: '); {ввод х}

readln(x);

writeln('vvedite a,b:'); {ввод а и b}

readln(a,b);

if x>=2 then f:=a+b*sqr(sin(x)/cos(x)) {проверка условия}

else f:=ln(abs(x/(a+b)));

y:=cos(f); {вычисление функции y}

writeln('funkciya y= ',y:6:2); {вывод y}

readln;

end.

№	Ход выполнения	x	a	b	f	y
	Вывод vvedite x
		12,25
	Вывод vvedite a,b:
			1,2
					1.414
						0,16
	Вывод funkciya y= 0.16

 

Date: 2015-09-23; view: 1746; Нарушение авторских прав