Помогите сделать информатику ! итоговую работу ! Записи по Паскалю: 1) основные...

Question

Помогите сделать информатику ! итоговую работу !
Записи по Паскалю:
1) основные операторы
2) листинг программ
+
•определение S треугольника по основанию и высоте
•принадлежность чисел А и В интервалу [1;-1]
•возведение числа a в степень n
•оператор выбора.

это все что продиктовал учитель, я болела долго и поэтому все пропустила! помогите получить хорошую оценку !!! ;))

Answer 1

Надеюсь азы ты знаешь, поэтому кидаю основной код

{Pascal ABC.NET}

1)

readln(a,h);

s:=0.5*a*h;

write(s);

2)

readln(a,b);

if (a>=-1) and (a<=1) then writeln('A принадлежит') else write('A не принадлежит');</p>

if (b>=-1) and (b<=1) then writeln('B принадлежит') else write('B не принадлежит');</p>

3) вот тебе функция в современных паскалях она везде используется, если нужна будет программа где ее дописать или как использовать, в лс

functionpower(a, b : real) : real;

begin

if a > 0 then power := exp (b * ln (a))

else

if a < 0 then power := exp (b * ln (abs (a)))

else power := 0end;

 

4) самую простенькую задачу на оператор выбора выложу

var a,b:integer;

      d:real;

      c:char;

begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Выберите арифметическое действие: ');
readln (c);
case c of
'+': d:= a+b;
'-': d:= a-b;
'*': d:= a*b;
'/': d:= a/b;
end;
write('Результат: 'd:10:4);