Задача 1
Программа на языке Паскаль:
var x, y, b: integer;
begin
write ('Input first number: ');
readln (x);
write ('Input second number: ');
readln (y);
writeln ('x = ', x, ', y = ', y);
writeln ('Changing values... changing values...');
b := x;
x := y;
y := b;
writeln ('x = ', x, ', y = ', y);
readln
end.
Задача 2.
Вывести на экран введенные пользователем данные в полях шириной, заданной по умолчанию, и полях шириной, определяемой пользователем.
Программа на языке Паскаль:
var
fname,sname: string;
age: byte;
f,s,a: byte;
begin
write('Name: ');
readln(fname);
write('Surname: ');
readln(sname);
write('Age: ');
readln(age);
writeln(fname:10,sname:20,age:5);
writeln;
write('Fields for name, surname and age: ');
readln(f,s,a);
writeln(fname:f,sname:s,age:a);
end.
Задача 3.
Получить от пользователя данные, обработать их и вывести на экран
Программа на языке Паскаль:
var
a,b,c,d,sum: integer;
mult: longint;
begin
write('Input number a: ');
readln(a);
write('Input number b: ');
readln(b);
sum:= a+b;
writeln('Sum of the numbers ',a,' and ',b,' is ',sum);
writeln;
writeln('Input below numbers c and d: ');
read(c,d);
mult:= c*d;
writeln('The result of multiplying ',c,' and ',d,' is ',mult);
end.
Задача 4.
Вывести на экран действительное число в различных форматах представления.
Программа на языке Паскаль:
var
a: real;
begin
write('Input real number: ');
readln(a);
writeln('Output without formatting: ',a);
writeln('Output in exponential form: ',a:12);
writeln('Output in exponential form: ',a:7);
writeln('Output in fixet-point: ',a:10:3);
writeln('Output in fixet-point: ',a:12:6);
end.
Задача 5.
Допустим, организации часто требуется красить баки цилиндрической формы. При этом они красят только верхнюю часть и стенки с внешней стороны.
Организации требуется программа, которая бы определяла, сколько банок краски необходимо для покраски того или иного бака.
Алгоритм решения задачи:
Программа должна запрашивать у пользователя следующую информацию:
• диаметр бака;
• высота бака;
• расход краски (площадь поверхности, которую можно покрасить одной банкой краски).В результате программа должна выдавать количество требуемых банок. При получении дробного числа округление должно всегда происходить в большую сторону.
Площадь крыши бака (круга) вычисляется по формуле p * d2 /4 (гдеp – число пи, d - диаметр).
Площадь боковой поверхности цилиндра: p * d * h (где h – высота).
Программа на языке Паскаль:
const pi = 3.14;
var
d, h, b: real;
top, wall, q: real;
q_int: integer;
begin
write('Диаметр: ');
readln(d);
write('Высота: ');
readln(h);
write('Окрашиваемая площадь одной банкой: ');
readln(b);
top := pi * sqr(d) / 4.0;
wall := pi * d * h;
q := (top + wall) / b;
q_int := trunc(q) + 1;
write('Количество банок: ', q_int);
readln
end.
512 бит = 512/8= 64 байт
1073741824 байт =1073741824/1024=1048576 Кбайт / 1024= 1024 Мбайт
1024 Кбайт = 1024*1024=1048576 байт
4
Дискета 3,5 = 720 Кбайт
СD= 650 Мбайт
DVD= 1,4 Гбайт- 17,08Гбайт
Жесткий диск = до 5 Тбайт (Терабайт)
5
30 Кбайт= 30*1024 = 30720 байт
125 Кбайт = 125* 1024 =128000 байт
1024 Кбайт = 1024* 1024 = 1048576 байт
71 Кбайт = 71 * 1024 = 72704 байт
13 Гбайт = 13*1024=13312Мбайт=13312*1024=13631488Кбай= 13631488 * 1024 = 13958643712байт
9216 байт = 9216/1024 = 9 Кбайт
32 Гбайт = 32*1024*1024=33554432 Кбайт
769Мбайт = 769*1024 = 787456 Кбайт
512 байт = 512 /1024 = 0,5 Кбайт
70254592 байт = 70254592/1024/1024=67 Мбайт
42 Гбайт = 42*1024= 43008 Мбайт
20482 Кбайт = 20482/1024 = 20Мбайт
2 Гбайт =2*1024=2048 Мбайт
Если сравнивать объекты и их свойства между собой, то можно говорить о свойствах общих и отличительных.
Общие свойства объединять объекты в группу (группа – это множество объектов, где каждый объект является элементом этого множества). Отличительные свойства отличить один объект от другого.
Например, свойство «защищать ноги» – это общее свойство ботинок, сапог, сандалий и туфель. А вот свойство «хранить тепло» – это отличительное свойство зимней обуви, если сравнивать её с летней.
Информация бывает - Визуальная (зрение) и звуковая (слух).
Вкусовая, тактильная, обонятельная.