Var
N:integer;
A,S:real;
Begin
WriteLn('Введите N');
ReadLn(N);
WriteLn('Введите числа');
S:=0;
For N:=1 to N do
Begin
Read(A);
if A>0 then S:=S+A;
End;
if S=0 then Write('Положительных чисел нет')
else Write('S = ',S)
End.
1.
program list;var x,y,a,b:integer;beginwriteln('Введите размер листа x на y');readln(x,y);writeln('Введите размер изображения a на b');readln(a,b);if (x>a) and (y>b) thenwriteln('Можно разместить')elsewriteln('Нельзя разместить');end.
2.
program opred;var i,n:integer; natch:string; cif: char;beginwrite('Введите натуральное число N: ');readln(natch);write('Введите цифру A: ');readln(cif);n:=length(natch);if natch[n]=cif then write('Верно')elsewriteln('Неверно');end.
3.program opred;var i,n,g,sum,max,kol:integer; chis: array[1..100] of integer;beginwriteln('Вводите числа: ');i:=0;repeat i:=i+1;readln(chis[i]);until(chis[i]=0);n:=i-1;for i:=1 to n do //asum:=sum+chis[i];writeln('a) sum = ',sum);for i:=1 to n do //bbeginif (chis[i]<0) and (chis[i] mod 2 = 0) thenkol:=kol+1;end;writeln('b) kol = ',kol);for i:=1 to n do beginif chis[i]>chis[i+1] thenmax:=chis[i];end;writeln('c) max = ',max);end.
Логические данные- это одно из двух значений( истина или ложь).
uses Crt;
const n=10;
Type Mas=array [1..n] of integer;
var P, M: Mas;
i: integer;
begin
ClrScr;
for i:=1 to n do
P[i]:=10+random(20);
for i:= 1 to n do
Write (P[i]:4);
WriteLn; WriteLn;
for i:=1 to n do
if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i];
for i:=1 to n do
Write (M[i]:4);
ReadLn;
end.
Пуантилизм-направление в живописи, которое характеризуется созданием картин при помощи точечного нанесения краски на холст . Мозаика - точечное нанесение элементов, из которых будет состоять мозаика (кусочки стекла, бусины, камешки и т.д.). На экране монитора формируется изображение, состоящее из упорядоченных точек-пикселей (растр).
Общее - состоит из большого количества точек.
Разница - мозаика и техника пуантилизма - "хаотичное", неупорядоченное нанесение "точек"