То что в скобках не напиши только, это для пометок program Znaniya; (1)uses crt; (2)var x,y:real; (3)begin (4)clrscr; (5)x:=-1; (6)while x<=1 do (7) begin (8) y:=x*x*x*x+1.5*x*x*x-2*x*x+4*cos(2*x)*sin(4*x); (9) writeln('x=', x:4:1,' y=', y:5:2); (10) x:=x+0.2 (11) end;readlnend.
Принтер — перифирийное устройство компьютера, предназначенное для перевода текста или графики на физический носитель из электронного вида малыми тиражами (от единиц до сотен) без создания пе. Этим принтеры отличаются от полиграфического оборудования , которое за счёт печатной формы быстрее и дешевле на крупных тиражах (сотни и более экземпляров). Классификация-По возможности печати графической информации принтеры делятся • ударно-шрифтовые (алфавитно-цифровые, ) - барабанные, на основе лепесткового печатающего устройства или пишущей машинки с электромагнитным приводом. Исторические типы. Морально устарели в 1980-е годы. С начала 1990-х годов не выпускаются.• матричные;• лазерные (также светодиодные принтеры);• струйные;• сублимационные• твердо чернильные• 3D принтеры• По количеству цветов печатиo на монохромные(одноцветные) (монохромные)o цветные.На цветных принтерах, к качестве основы цветовой модели используются цвета CMYK:o Cyan - голубойo Magenta - пурпурныйo Yellow - желтыйo Kobalt - черный (английское название соответствует названию тяжелого металла (кобальта), входящего в состав черных красителей)
Вот. Мой вариант генератора. program pr; var text:string;i,length,i2,i3,view,n:integer; begin randomize; write('Кол-во паролей: '); readln(n); writeln(); write('Длина одного пароля: '); readln(length); writeln(); writeln('Вид. 1 - буквы, 2 - цифры, 3 - буквы и цифры'); write('ответ: '); readln(view); writeln(); case view of 1:begin for i:=1 to n do begin for i2:=1 to length do begin text:=text+chr(97+random(26)); end; writeln(text); text:=''; end; end; 2:begin for i:=1 to n do begin for i2:=1 to length do begin text:=text+chr(48+random(10)); end; writeln(text); text:=''; end; end; 3:begin for i:=1 to n do begin for i2:=1 to length do begin i3:=random(2); if i3=0 then text:=text+chr(48+random(10)); if i3=1 then text:=text+chr(97+random(26)); end; writeln(text); text:=''; end; end; else begin writeln('Неверный ввод'); end end; end.
program Znaniya; (1)uses crt; (2)var x,y:real; (3)begin (4)clrscr; (5)x:=-1; (6)while x<=1 do (7) begin (8) y:=x*x*x*x+1.5*x*x*x-2*x*x+4*cos(2*x)*sin(4*x); (9) writeln('x=', x:4:1,' y=', y:5:2); (10) x:=x+0.2 (11) end;readlnend.