Тексты программ можно скопировать в среду программирования Паскаль ABC, и проверить работу программ.
1. Определить стоимость покупки и размер сдачи. Цена товара, количество купленных килограмм и количество поданных кассиру денег вводятся с клавиатуры.
Uses crt;
Var c, k, s, p: real; m: integer;
begin
Write ('Введите цену ');
Readln (c);
Write ('Введите кол-во кг. ');
Readln (k);
Write ('Введ. поданные деньги ');
Readln (m);
s := c * k;
p := m - s;
Writeln ('Стоимость покупки = ',s);
Writeln ('Размер сдачи = ',p);
end.
2. Нахождение суммы цифр вводимого с клавиатуры целого трёхзначного числа.
Uses crt;
var x, a, b, c, s: integer;
begin
write ('Введите число ');
readln (x);
a := x div 100; //первая цифра
b := x mod 100 div 10; //вторая цифра
c := x mod 10; //третья цифра
s := a + b + c;
writeln ('s= ', s)
end.
3. Определить, что больше А рублей или В долларов и найти разницу в рублях.
uses crt;
var a,b,k,x: real; t: string;
begin
Write ('Введите рубли ');
Readln (a);
Write ('Введите доллары ');
Readln (b);
Write ('Введите курс доллара ');
Readln (k);
If a>b*k then begin
t:='больше рублей';
x:=a-b*k;
end
Else begin
t:='больше долларов';
x:=b*k-a
End;
Write (t);
Writeln (' на ',x ,' руб');
end.
4. Программа решения квадратного уравнения (алгоритм с тремя неполными формами ветвления).
uses crt;
var a,b,c,d,x,x1,x2: real;
begin
write ('Введите коэффициенты a, b, c ');
readln (a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln ('Корней нет');
if d=0 then begin
x:=-b/(2*a);
writeln ('Корень уравнения x=', x:6:2)
end;
if d>0 then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln ('Корни уравнения:');
writeln ('x1=', x1:6:2);
writeln ('x2=', x2:6:2)
end;
end.
5. Вывести на экран один из столбцов таблицы умножения.
uses crt;
var i, n, p:integer;
begin
write ('Номер столбца? ');
readln (n);
for i := 1 to 10 do begin
p := i * n;
writeln ( i, ' x ', n, ' = ',p);
end;
end.
6. Вывести на экран таблицу связи "фунт – килограмм" для 2, 6, ..., 30 фунтов. 1 фунт = 410 грамм.
uses crt;
var i, a:integer; f:real;
begin
a:=2;
for i:= 1 To 8 do begin
f := a * 0.41;
Writeln ( a, ' фунт = ', f, ' кг. ');
a := a + 4;
end;
end.
