На мой взгляд, самая интересная, но сложная профессия - это быть врачом.
Врач - очень благородная профессия. В современном мире очень быстро развивается медицина. Ведь человек, его здоровье - это самое важное, что есть на земле. Врачи бывают разных
специальностей. Например, лор, невролог, врачи скорой Я думаю, что врачам скорой
сложнее всего. Представьте, сколько вызовов за день могут взвалить на свои плечи эти трудолюбивые люди. Мы должны с уважением относиться к врачам. Ведь придет и наш черед
обратиться к ним за И они Врачи никогда не кинут тебя в беде.
Вот почему я считаю, что врач - это самая благородная и трудная профессия на земле.
Минимальная единица изображения:
растровая: пиксели
векторная: графические формулы
Какая информация хранится в файлах векторного и раствого типа:
Ростовая: о пикселях, составляющих изображения.
Векторная: о графических примитивах, составляющих изображение.
С каких средств получается изображение:
растровая: Paint, Gipm, Adobe Photoshop
Векторная: Microsoft Word, OpenOffice, CorelDRAW , Macromedia Flash.
Объём графических файлов:
растровая: очень большой объём
Векторная: относительно небольшой объём
реакция изображения на изменение его размера:
Растровая: не желательно, возможно искажение.
Векторная: качество не будет потеряно, остаётся прежний вид.
Достоинства графики:
растровая: позволяет работать с фотореалестичными изображениями, простая ретушь и комбинация частей изображения, ввод сканера и и цифровыми камерами.
векторная: маленький объём файла, простое маштабирование.
Недостатки графики:
растровая: большой объём файла, маштабирование с искажением и ухудшение качества,
векторная: не пригодна для реалестичных изображений.
Форматы файлов:
растровая: BPM, GIF, JPG, PCX, TIF.
векторная: WMF, EPS, DXF, CCM
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var min:=a.Min;
a.Transform(x->x<0?x*min:x); a.Println
end.
Пример
n= 15
-34 7 0 -48 4 42 35 14 -47 6 -29 43 46 40 -18
1632 7 0 2304 4 42 35 14 2256 6 1392 43 46 40 864
2. Популярное до сих пор в школах решение на TurboPascal 7.01 (1983г.)
uses Crt;
const
nn=100;
var
i,n,min:integer;
a:array[1..nn] of integer;
begin
ClrScr;
Randomize;
Write('n='); Read(n);
min:=100;
for i:=1 to n do begin
a[i]:=Random(101)-50;
Write(a[i],' ');
if a[i]<min then min:=a[i]
end;
Writeln;
for i:=1 to n do
if a[i]<0 then a[i]:=a[i]*min;
for i:=1 to n do
Write(a[i],' ');
Writeln;
ReadKey
end.