Надеюсь азы ты знаешь, поэтому кидаю основной код
{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);
program Week;
var day:integer; week:array[1..7] of string;
begin
week[7]:='Воскресенье';
week[6]:='Суббота';
week[5]:='Пятница';
week[4]:='Четверг';
week[3]:='Среда';
week[2]:='Вторник';
week[1]:='Понедельник';
write('введите номер дня недели ');
readln(day);
writeln'**************************************');
case day of
'1'..'7': writeln('Сегодня - ',week[day]);
else writeln('Вы ввели неправильный номер дня недели')
end;
writeln('**************************************');
end.
Добавил блок-схему - только там исправь а то я ошибся:
Все блоки вывода должны быть параллелограммами (такие как ввод), а не прямоугольниками. Sorry :)
28) 3 Тбайт,48 мб
Объяснение:
, сейчас попробую еще