Паскаль АВС:
Program Albinur;
uses crt;
var
v0,a,t : real;
begin
writeln('Программа вычисляет скорость объекта при равноускоренном движении');
writeln(' в заданный момент времени');
write('Введите начальную скорость в м/с '); readln(v0);
write('Введите ускорение в м/с^2 '); readln(a);
write('Введите время в с '); readln(t);
writeln(); writeln();
writeln('*** Вычисляю... ***');
writeln(); writeln();
writeln('Через ',t,' секунд после начала движения скорость объекта будет равна ',v0+a*t,' м/с');
end.
Объяснение:
Program ToDec;
Uses crt;
var s:string;
n,l,i:integer;
function Pow(x,y:integer):integer;
begin
if y>0 then Pow:=Pow(x,y-1)*x
else Pow:=1;
end;
function ToDec(A : string) : integer;
var L : Byte;
begin
if A = '' then ToDec := 0
else begin
L := length(A);
case A[1] of
'0' : ToDec := ToDec(Copy(A, 2, L - 1));
'1' : ToDec := Pow(2, L - 1) + ToDec(Copy(A, 2, L - 1));
end;
end;
end;
begin
clrscr;
write('Введите двоичное число: ');
readln(s);
writeln('Это число в десятичной системе : ', ToDec(S));
readkey;
end.
maxn = 15;
type
myarr = array [1..maxn] of longint;
var
a: myarr;
k1, k2, k3, sr, i: longint;
begin
for i := 1 to 15 do begin
read(a[i]);
sr := sr + a[i];
end;
sr := sr div 15;
for i := 1 to 15 do begin
if (a[i] > sr) then
inc(k1);
if (a[i] = sr) then
inc(k2);
if (a[i] < sr) then
inc(k3);
end;
writeln('Количество элементов, больших среднего арифметического, = ', k1);
writeln('Количество элементов, равного среднему арифметическому, = ', k2);
writeln('Количество элементов, меньших среднего арифметического, = ', k3);
end.