В симфонический оркестр приняли на работу трёх музыкантов - Борисова, Сергеева и Васечкина, умеющих играть на на скрипке, флейте, альте, кларнете, гобое и трубе. Каждый из музыкантов владеет двумя инструментами. Известно, что:
1) Сергеев самый высокий;
2) играющий на скрипке меньше ростом играющего на флейте;
3) играющие на скрипке и флейте и Борисов любят пиццу;
4) когда между альтистом и трубачом возникает ссора, Сергеев мирит их;
5) Борисов не умеет играть ни на трубе, ни на свободе. Выясните, на каких инструментах играет каждый из музыкантов.
Код ко второй и восьмой задачам:
{2-nd task}
var t,p,x,a,y: real;
begin
write('t = ');
readln(t);
write('p = ');
readln(p);
write('x = ');
readln(x);
write('a = ');
readln(a);
y:= (exp(ln(t)*p))*(exp(ln(x)*5))*(1 - (x - (exp(ln(a)*x)))/((exp(ln(x)*2)) + 5.3));
writeln('y = ',y:0:2);
end.
{8-th task}
var x,a,y,b,r,q,d: real;
begin
write('a = ');
readln(a);
write('y = ');
readln(y);
write('b = ');
readln(b);
write('r = ');
readln(r);
write('q = ');
readln(q);
write('d = ');
readln(d);
x:= ((exp(ln(cos(y))*a)) - (exp(ln((sin(exp(ln(r)*8*q*b)))/((exp(ln(d)*(2*a*b))) + 18.31);
writeln('x = ',x:0:2);
end.
FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.