Школьная информатика - Примеры программ

Примеры программ

Тексты программ можно скопировать в среду программирования Паскаль 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.

		Среда, 18.12.2024
	Школьная информатика	Автор сайта: Кочетов Николай Александрович, учитель информатики, город Суворов Тульская область.