Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

{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 не принадлежит);

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

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

function power (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);