Текст программы

Program zadacha4v1;

Uses crt;

Var

X:integer;

Y:real;

Begin

Clrscr;{очистка экрана}

Writeln(‘задача’:28);

Writeln(‘Построить таблицу табулирования функции на промежутке [-10,10] c шагом h=1’);

For x:=-10 to 10 do

Begin

If x<2 then

Y:=sqr(x)-4

Else

If (x>2) and(x<=5) then

Y:=sqrt(x-2)

Else

Y:=sqr(sqr(x));

Writeln(‘x=’,x,’y=’:6,y:4:2);

End;

textcolor(20);

writeln;

Writeln('Разработал Иванов И.И.':50);

Readln;

End.

Протокол выполнения

Задача № 5(одномерный массив)

Постановка задачи В одномерном массиве A (N) все элементы, удовлетворяющие условию –5 £ A(i) £ 15 обнулить. Массив заполнить случайным образом. Исходный и измененный массив вывести в отдельных строках.

Математическаямодель

и.д. a[i] Î R,

в.д. b[i] Î R,

Связь: