1. Рисунки кодируются с следующих команд:
установить
у — установить в качестве текущей
точку с координатами (x, y);
Линия xl, yl нарисовать линию от текущей
точки до точки с координатами (x, y), при этом точка
(x1, y1) становится текущей;
Окружность х, у Крадиус? нарисовать окружность
с центром в точке (x, y) и радиусом <радиус»;
Прямоугольник
уі, х2, у2 нарисовать
прямоугольник, где (x1, y1) — координаты левого верх-
него, а (x2, y2) правого нижнего угла этого прямо-
угольника,
A -
Описание
установить 20, 80
Линия к 65, 110
Линия к110, 80
Линия к 20, 80
Прямоугольник 20, 30, 110, 10
Прямоугольник 30, 80, 40, 30
Прямоугольник 50, 80, 60, 30
Прямоугольник 70, 80, 80, 30
Прямоугольник 90, 80, 100, 30
#include<conio.h>
#include<stdio.h>
#include <stdlib.h>
#include<time.h>
#define N 25
#define K 3
int prime(int num)
{ int i;
for(i=2;i<=num/2;i++)
if(num%i==0) break;
if(i==num/2+1 || num==1) return num;
else return 0;
}
int maxPos(int A[])
{ int i,max,mPos;
max=0;
for(i=0;i<N;i++)
if(A[i]>max)
{ max=A[i];
mPos=i;
}
return mPos;
}
int main()
{ int i,j,X[N],Y[N],pos;
srand(time(NULL));
for(i=0;i<N;i++)
{ X[i]=rand()%30+1;
Y[i]=prime(X[i]);
}
printf("Original array\n");
for(i=0;i<N;i++)
printf("%3d",X[i]);
printf("\nArray-masque of prime numbers\n");
for(i=0;i<N;i++)
printf("%3d",Y[i]);
printf("\n\n");
for(j=0;j<K;j++)
{ pos=maxPos(Y);
printf("%3d in position %3d targeted\n",X[pos],pos);
Y[pos]=-1;
X[pos]=-1;
}
j=0;
for(i=0;i<N;i++)
if(X[i]!=-1)
{ Y[j]=X[i];
j++;
}
printf("\nResult:\n");
for(i=0;i<j;i++)
printf("%3d",Y[i]);
getchar();
return 0;
}
Объяснение:
В непосредственном режиме- видимо без ввода программы, ввести последовательно строки (сначала присваиваем значение переменной икс, затем вычисляем выражение и помещаем это значение в переменную игрек, и после печатаем значение переменной игрек):
LET X=1.12
LET Y=SQR (X^3+EXP X-LN (3*X))*(1+4*SIN (X/2)+5*EXP (SIN X))
PRINT Y
И записать результат вычислений, который высветится на экране (у меня получилось 27.839525 но у вас может немного отличаться).
Надеюсь, что в вашей версии бейсика нет отличий от той, что у меня (она весьма старая).