Сделать информатику ! итоговую работу ! записи по паскалю: 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) вот тебе функция в современных паскалях она везде используется, если нужна будет программа где ее дописать или как использовать, в лс

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 (

else power : = 0end;

 

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

var a,b: integer;

      d: real;

      c: char;

beginwrite('введите первое число: '); 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);

o__o

 

var i, s : integer; begin

for i : = 1000 to 9999 do if (i * 4 > = 1000) and (i * 4 < = 9999) then begin s : = i * 4; if ((i mod 100) div 10 = ( s div 1000)) then if ((i mod 10) = ( s mod 1000) div 100) then if ( i div 1000 = (s mod 100) div 10) then if ( ((i mod 1000 div 100) < > i div 1000) and ((i mod 1000 div 100) < > (i mod 100) div 10) and ((i mod 1000 div 100) < > i mod 10)) then if ( (s mod 10 < > s div 1000) and (s mod 10 < > (s mod 1000) div 100) and (s mod 10 < > (s mod 100) div 10)) then writeln(i, ' = ', i * 4); end;

readln; end.

правилный ответ на 100 % !           (устройства > внутр > внешняя память

                                                                                                                            (устройства вывода)< --                                                <                                                              

                                                                                                                                                                                                                    процессор                                                                                 

удачи !