115. Написать программу, которая выводит на экран таблицу стоимости, например , яблок в диапазоне от
100Г до 1 кг с шагом 100.
Program m17;
const
n=10;
var
mas:array [1..10] of real;
i:integer;
k,y,a:real;
begin
writeln('Введите цену одного килограмма и нажмите Enter');
readln(a);
writeln('Вес(гр) Стоимость(руб.)');
for i:=1 to n do begin
k:=k+100;
y:=k*a/1000;
writeln(k:3:0,' ',' ',' ',' ',' ',y:2:2);
end;
readln;
end.
116. Написать программу, которая выводит таблицу значений функции y=|x| в диапазоне от -4 до 4
с шагом 0,5.
Program m18;
const
n=17;
var
i:integer;
k,y,a,x:real;
begin
writeln('Таблица значений');
x:=-4;
for i:=1 to n do begin
y:=abs(x);
x:=x+0.5;
writeln(y:2:1);
end;
readln;
end.
117. Написать программу, которая выводит таблицу значений функции y=|x-2|+|x+1| в диапазоне от -4 до
4 С шагом 0,5.
Program m19;
const
n=17;
var
i:integer;
k,y,a,x:real;
begin
writeln('Таблица значений');
x:=-4;
for i:=1 to n do begin
y:=abs(x+2);
x:=x+0.5;
writeln(y:2:1);
end;
readln;
Вход
writeln('Введите цену одного килограмма и нажмите Enter'); readln(a);
writeln('Вес(гр) Стоимость(руб.)');
writeln('Вес(гр) Стоимость(руб.)');
for i:=1 to n do
k:=k+100; y:=k*a/1000;
writeln(k:3:0,' ',' ',' ',' ',' ',y:2:2);
Выход
for i:=1 to n do
x:=-4;
Вход
writeln('Таблица значений');
y:=abs(x); x:=x+0.5;
writeln(y:2:1);
Выход
end.
118. Написать программу, которая выводит на экран таблицу умножения, например на 7.
Program m20;
const
n=17;
var
i:integer;
k,y,a,x:real;
begin
writeln('Таблица значений');
x:=-4;
for i:=1 to n do begin
y:=abs(x-2)+abs(x+1);
x:=x+0.5;
writeln(y:2:1);
end;
readln;
end.
119. Написать программу, которая выводит двоичное представление введенного с клавиатуры десятичного целого числа в диапазоне от 0 да 255.
Program m21;
const
n=9;
var
i:integer;
k,y,a,x:real;
begin
writeln('Таблица значений');
for i:=2 to n do begin
y:=7*i;
writeln('7x',i,'=',y:2:0);
end;
readln;
end.
120. Написать программу, выводит двоичное представление введенного с клавиатуры числа в десятичное.
Program m22;
var
b:array [1..255] of real;
a,i,n,k:integer;
begin
writeln('Преобразование десятичного числа в двоичное.');
writeln('Введите целое число от 0 до 255 и нажмите Enter');
readln(a);
i:=0;
k:=a;
while a>=1 do
begin
i:=i+1;
b[i]:=a mod 2;
a:=a div 2;
end;
n:=i;
write('Десятичному числу',' ',k,' ','соответствует
Вход
writeln('Таблица значений');
x:=-4;
for i:=1 to n do
y:=abs(x+2)+ abs(x+2); x:=x+0.5;
writeln(y:2:1);
Выход
Вход
writeln('Таблица значений');
for i:=2 to n do
y:=7*i;
writeln('7x',i,'=',y:2:0);
Выход
Вход
writeln('Преобразование десятичного числа в двоичное.');
writeln('Введите целое число от 0 до 255 и нажмите Enter'); readln(a);
i:=0; k:=a;
a>=1
i:=i+1;b[i]:=a mod 2;a:=a div 2;
n:=i;
двоичное',' ');
for i:=n downto 1 do
write(b[i]:1:0);
readln;
end.