Задача 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.

Alle963    1   16.05.2020 07:49    15