1) var
s:string[100];
begin
write('Введите фамилию: ');
readln(s);
writeln;
writeln('Символов: ',length(s));
writeln('3ий символ: ',s[3]);
end.
2)var
y,x:real;
begin
readln(x);
y:=(sqr(x)+sqrt(x))/10;
writeln(y);
end.
3)var
g:integer;
begin
writeln('Год рождения: '); readln(g);
if 2019-g>18 then writeln('Совершеннолетний')
else if 2019-g<18 then writeln('Увы')
else writeln('В течение этого года станет совершеннолетним')
end.
4)var
sum,n,i:integer;
begin
readln(N);
sum:=0;
for i:=10 to N do
sum:=sum+i;
writeln(sum/(i-9));
end.
5)var
a,b:integer;
begin
repeat
readln(a,b);
writeln('Repeat');
until ((a>=0) and (a mod 2=0)) or ((b>=0) and (b mod 2=0));
writeln('a*b= ',a*b);
writeln('a+b= ',a+b);
end.
Var n,M:integer; zar:real;
begin
write('ведите заработок бригады');
Read(M);
n:=7;
zar:=M/n;
write(zar);<span>end.</span>
Нужен сам рисунок для высчитки координат (оригинал).
Операнды
line to
assign
Дай оригинал рисунка, тогда сделаеп))
а по сути ничего сложного. Строиш по рисунку х и у, высчитываеш координаты пересечения каждого круга с каждым направлением и все через if делаеш. Например:
read (a);
if (a = 1) then
line to (x,y);
как-то так))
Информационная модель — модель объекта, представленная в виде информации, описывающей существенные для данного рассмотрения параметры и переменные величины объекта, связи между ними, входы и выходы объекта и позволяющая путём подачи на модель информации об изменениях входных величин моделировать возможные состояния объекта.
ПРИМЕРЫ
1)Карта Москвы
2)График дежурств
3)математическая формула (а+б)²
Техника
Компьютер
Телефон
Животные
Собака
Люди
Человек
