Var A,B:real; begin writeln('Введите числа А и В');Readln(A,B); if A < 0 then A:=A +5;if B < 0 then B:= B +5; if A > 0 then A:= A /1.5;if B > 0 then B:= B /1.5; write('A =',A,' B=',B);end.
1. Цилиндр, конус и шар; 2. Конический хвостовик инструмента (сверло, зенкер, фреза, развёртка, зажимной патрон, электрод контактной сварки) и коническое отверстие соответствующего размера (гнездо) в шпинделе или задней бабке, например, токарного станка; 3. Сфера представляет собой совокупность информации, информационной инфраструктуры, субъектов, осуществляющих сбор, формирование, распространение и использование информации, а также системы регулирования возникающих при этом общественных отношений; 5. 1. Выбрать создание детали (Файл-->Создать-->Деталь). 2. Выбрать в дереве модели плоскость x-y. 3. Включить режим эскиз (кнопка панели управления ). 4. На геометрической панели построения выбрать ввод окружность. 5. Ввести параметры: координаты центра - 0,0; диаметр окружности - 35 мм. 6. Закончить редактирование эскиза (повторно нажать на кнопку «эскиз»). 7. На панели редактирования детали выбрать Операция выдавливания. 8. В окне Параметры на вкладке Операция выдавливания установить параметры: прямое направление; расстояние 50 мм (высота цилиндра)и нажать кнопку Создать. 9. На экране должно появиться изображение цилиндра.
Uses Crt; const n=5; m=7; type Mas = array [1..n, 1..m] of integer; var i, j, j1, j2: integer; Sumj1, Sumj2: real; A: Mas; begin ClrScr; Randomize; SumJ1:=0; SumJ2:=0; for i:=1 to n do for j:=1 to m do A[i,j]:=random (10); WriteLn (' Massiv A: '); for i:=1 to n do begin for j:=1 to m do Write (A[i,j]:4); WriteLn; end; WriteLn; repeat Write (' Stolbez #1 = '); ReadLn(j1); until (j1>=1) and (j1<=m); repeat Write (' Stolbez #2 = '); ReadLn(j2); until (j2>=1) and (j2<=m) and (j1<>j2); for i:= 1 to n do SumJ1 := SumJ1+A[i,j1]; for i:= 1 to n do SumJ2:=SumJ2+A[i,j2]; SumJ1:=SumJ1/n; SumJ2:=SumJ2/n; WriteLn; WriteLn (' Srednee stolbza ', j1, ' = ', SumJ1:4:2); WriteLn (' Srednee stolbza ', j2, ' = ', SumJ2:4:2); ReadLn; end.
begin
writeln('Введите числа А и В');Readln(A,B);
if A < 0 then A:=A +5;if B < 0 then B:= B +5;
if A > 0 then A:= A /1.5;if B > 0 then B:= B /1.5;
write('A =',A,' B=',B);end.