существует режим «Edit Mode», который позволяет изменять длину или диаметр сегмента, и инструменты, позволяющие заменить круг на линию (и обратно), дублировать сегмент или "обездвижить" его в главном окне аниматора. Фигуры сохраняются в формате .stk.
если нужно подробней напиши в личку
Const mas : Array [0..6,0..8] Of String = (('Иванов Иван Иванович ', '1', '2', '3', '1', '5','3', '3', '2'), ('Петров Петр Петрович ', '5', '5', '5', '4', '5','5', '5', '5'), ('Сидаров Сидор Сидорович ', '3', '2', '3', '2', '2','2', '2', '1'), ('Алексеев Алексей Алексеевич ', '1', '2', '1', '1', '2','2', '2', '5'), ('Сергеев Сергей Сергеевич ', '2', '2', '5', '5', '5','5', '2', '3'), ('Степанов Степан Степанович ', '5', '5', '5', '4', '5','5', '5', '5'), ('Давыдов Давид Давидович ', '3', '3', '3', '3', '3','3', '3', '3')); var sr:real; // средний балл b:real;begin writeln('--------------------------------------------------------------------'); writeln('| ФИО |',' 1 |',' 2 |',' 3 |',' 4 |',' 5 |',' 6 |',' 7 |',' 8 |',' ср. |'); writeln('--------------------------------------------------------------------'); for var i:=0 to 6 do begin write('|'+mas[i,0]+'|'); sr:=0; for var j:=1 to 8 do begin write(' '+mas[i,j]+' |'); double.TryParse(mas[i,j],b); // строку в число sr:=sr+b; end; sr:=sr/8; write(sr:5:3); write('|'); writeln; end; writeln('--------------------------------------------------------------------'); end.
Ответ:
Рабочее поле-отображает место на рабочем поле,Сохранить-команды Записи текста в память,Вставить-Команды для написания текста,Курсор-Команды Записи текста в память,Строка меню,Меню специальных команд и действий