Катя Штерн
This gallery contains 5 photos.
Эти световые обычные на первый взгляд текстуры были сделаны довольно не обычным путем. Когда я вытащила телефон из кармана, обнаружила, что он сделал эти фотографии будучи там. Так что, если ваш телефон делает фотографии не тогда когда надо, не спешите расстраиваться! Может он делает специально для вас новые текстуры. 
Я думаю каждый из вас пользовался эффектами в готовых редакторах изображения или просто натыкался на них. Сегодня я расскажу как сделать подобные эффекты в фотошопе. Вы спросите: зачем? Ведь их и так легко сделать нажав одну кнопку. Но согласитесь, когда вы сами делаете их в фотошопе, вы можете сделать их индивидуальными, получить более качественное изображение и самое главное выделится.
Введите с клавиатуры десять чисел. Выведите на экран произведение этих чисел.
Program Anadra;
uses crt;
var a,b,c: integer;
begin
writeln(‘Введите 10 чисел’);
c:=1;
for a:= 1 to 10
do
begin
readln(b);
c:=c*b;
end;
writeln(‘Произведение чисел равно ‘,c);
end.
Каждый фотошопер хоть раз в жизни скачивал готовые кисти. Но я думаю каждый из вас хотел бы научится их делать самим. Чтож, сегодняшний урок будет посвящен именно этому.
Итак начнём.
Давайте подумаем, что можно сотворить в фотошопе? Конечно первое, что приходить в голову, это возможность побывать в местах, в которых может даже не ступала нога человека, научится летать, ну или просто перекрасить что-то в невиданный цвет. Последним мы с вами сегодня и займемся.
Размер 100 на 100
Из трех данных чисел выбрать наименьшее и наибольшее.
Program Anadra;
uses crt;
var a,b,c,min,max :integer;
begin
writeln(‘Введите 3 числа’);
readln(a);
readln(b);
readln(c);
If a>b then max:=a
Else max:=b;
If c>max then max:=c;
If a<b then min:=a
Else min:=b;
If c<min then min:=c;
writeln(‘Самое большое число ‘,max);
writeln(‘Самое маленькое число ‘,min);
end.
Из трех данных чисел выбрать наименьшее.
Program Anadra;
uses crt;
var a,b,c,min :integer;
begin
writeln(‘Введите 3 числа’);
readln(a);
readln(b);
readln(c);
If a<b then min:=a
Else min:=b;
If c<max then min:=c;
writeln(‘Самое маленькое число ‘,min);
end.
Разбор решения:
Задачка решается аналогично этой.
Из трех данных чисел выбрать наибольшее.
Program Anadra;
uses crt;
var a,b,c,max :integer;
begin
writeln(‘Введите 3 числа’);
readln(a);
readln(b);
readln(c);
If a>b then max:=a
Else max:=b;
If c>max then max:=c;
writeln(‘Самое большое число ‘,max);
end.
Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).
Program Anadra;
uses crt;
var a,b,c: integer;
begin
writeln(‘Введите 3 числа’);
readln(a);
readln(b);
readln(c);
If a>0 then a:=sqr(a)*a;
If a<0 then a:=sqr(a);
If b>0 then b:=sqr(b)*b;
If b<0 then b:=sqr(b);
If c>0 then c:=sqr(c)*c;
If c<0 then c:=sqr(c);
writeln(‘Новые значения: ‘);
writeln(a);
writeln(b);
writeln(c);
end.
Найти площадь прямоугольного треугольника, если даны длины его катетов a и b.
Program Anadra;
uses crt;
var a,b: integer;
S: real;
begin
writeln(‘Введите значения двух катетов’);
readln(a);
readln(b);
S:=(a*b)*0.5;
writeln(‘Площадь треугольника равна ‘,S);
end.
Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.
Program Anadra;
uses crt;
var a,b,c,d,e,f: integer;
x,y: real;
begin
writeln(‘Введите два числа’);
readln(a);
readln(b);
с:=sqr(a);
d:=sqr(b);
x:=(c+d)/2;
e:=abs(a);
f:=abs(b);
y:=(e+f)/2;
writeln(‘Среднее арифметическое их квадратов ‘,x);
writeln(‘среднее арифметическое их модулей ‘,y);
end.
Разбор решения:
Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.
Решение:
Program Anadra;
uses crt;
var a,b,c,d,e: integer;
f: real;
begin
writeln(‘Введите два числа’);
readln(a);
readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
writeln(‘Сумма чисел ‘, c);
writeln(‘Разность ‘,d);
writeln(‘Произведение ‘,e);
writeln(‘Частное ‘,f);
end.
Разбор решения: