У меня задание по информатике связанное со слиянием документов ( я в этом уже разобрался). Мне нужно - id1428615120201003 от pelulachka 03.10.2020 23:51

Question

Информатика: У меня задание по информатике связанное со слиянием документов ( я в этом уже разобрался). Мне нужно составить таблицу по типу табеля с оценками и тд. На фото показан собственно сам текст который надо набрать и серым выделены значения которые будут идти из таблицы. А собственно вопрос том что, ниже там указано под наименование предметов , перечень 4 предметов , следовательно мне нужно в таблице ввести только 4 предмета и оценки по ним, а не все которые есть в школьной программе? (у препода спросить

pelulachka · Accepted Answer

program raf105;

uses

graphABC;

var

a: array[1..20,1..2] of integer;

x,y,i:integer;

begin

ClearWindow(clBlack);

randomize;

repeat

if i = 20 then

i:= 0;

i:=i+1;

x:=random(windowwidth);

y:=random(windowheight);

if a[i,1] = 0 then

begin

a[i,1]:= x;

a[i,2]:= y;

end

else

begin

setbrushcolor(clBlack);

circle(a[i,1],a[i,2],4);

a[i,1]:= x;

a[i,2]:= y;

end;

sleep(200);

setbrushcolor(clWhite);

circle(x,y,4);

until false;

end.

PascalABC 3.4.2

MOGZ ответил