Паскаль пусть вводится последовательность вещественных чисел, оканчивающаяся нулем и состоящая более чем из одного ненулевого элемента. определите наибольшее число последовательности.
uses Crt; var a, Max: real; i: integer; begin ClrScr; i:=0; Repeat i:=i+1; Write ('a',i,'='); ReadLn (a); if a<>0 then begin if a>Max then Max:=a; end; until a=0; WriteLn; WriteLn(' Max = ', Max:6:4); ReadLn; end.
1. компьютерная графика – это наука, один из разделов информатики, изучающая способы формирования и обработки изображений с компьютера. 2. ве́кторная гра́фика — способ представления объектов и изображений в компьютерной графике, основанный на описании элементарных объектов, обычно называемых примитивами, таких как: точки, линии, сплайны, кривые безье, круги и окружности, многоугольники. объекты векторной графики являются графическими изображениями объектов. термин "векторная графика" используется для пояснения различий от растровой графики, в которой изображение представлено в виде графической матрицы. 3. плоттер (графопостроитель) — устройство для автоматического вычерчивания с большой точностью рисунков, схем, сложных чертежей, карт, трехмерных изображений и другой графической информации на бумаге размером до a0. так же как и у принтеров, изображение на бумаге формируется при печатающей головки.
uses Crt;
var a, Max: real;
i: integer;
begin
ClrScr;
i:=0;
Repeat
i:=i+1;
Write ('a',i,'='); ReadLn (a);
if a<>0 then
begin
if a>Max then Max:=a;
end;
until a=0;
WriteLn;
WriteLn(' Max = ', Max:6:4);
ReadLn;
end.