125. Написать программу, которая выводит на экран изображение шахматной доски.
Program m27;
const
n=8;
var
mas:array [1..10,1..10] of string;
a,i,k,j:integer;
begin
writeln('Шахматная доска');
for i:=1 to n do
for j:=1 to n do begin
k:=i+j;
for i:=1 to n do
x:=a; s:=0;
y:=5*sqr(x)-x+2;
s:=s+y*dx;
x:=x+dx;
writeln('Значение интеграла: ',s:4:3);
Выход
Вход
writeln('Нижняя граница отрезка');readln(a);
writeln('Верхняя граница отрезка '); readln(b); writeln('Приращение аргумента '); readln(dx);
n:=round((b-a)/dx);
writeln('Значение интеграла: ',s:9:3);
for i:=1 to n do
x:=a; s:=0;
y1:=5*sqr(x)-x+2;
x:=x+dx;
y2:=5*sqr(x)-x+2;
s:=s+(y1+y2)*dx/2;
Выход
for i:=1 to n do
for j:=1 to n do
k:=i+j;
if k mod 2=1 then
mas[i,j]:='*'
else
mas[i,j]:=' ';
end;
for i:=1 to n do begin
for j:=1 to n do
write(' ',mas[i,j],' ');
writeln;
end;
readln;
end.
126. Написать программу, которая преобразует введенное пользователем десятичное число
в двоичное.
Program m28;
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,' ','соответствует двоичное',' ');
for i:=n downto 1 do
write(b[i]:1:0);
readln;
end.
127. Написать программу проверки знания таблицы умножения.
Program m29;
var
i,a,n,k,p1,p2,p,otvet:integer;
begin
randomize;
writeln('***Проверка знания таблицы умножения***');
writeln('После примера введите ответ и нажмите Enter');
k:=0;
for i:=1 to 10 do begin
p1:=random(9)+1;
p
writeln('***Проверка знания таблицы умножения***'); writeln('После примера
введите ответ и нажмите Enter');
2:=random(9)+1;p:=p1*p2;
write(p1,'*',p2,'=');
readln(otvet);
if otvet=p then
k:=k+1
else begin
writeln('Вы ошиблись!',p1,'*',p2,'=',p);
Да
Нет
if k mod 2=1
mas[i,j]:='*'
mas[i,j]:=' ';
for i:=1 to n do
for j:=1 to n do
write(' ',mas[i,j],' ');
Выход
Вход
writeln('Преобразование десятичного числа в двоичное.');
writeln('Введите целое число от 0 до 255 и нажмите Enter'); readln(a);
i:=0; k:=a;
a>=1
n:=i;
i:=i+1;b[i]:=a mod 2 ;a:=a div 2;
Выход
write('Десятичному числу',' ',k,' ','соответствует двоичное',' ');
for i:=n downto 1 do
write(b[i]:1:0);
Вход
k:=0;
e
for i:=1 to n do
nd;end;
writeln('Правильных ответов:',k);
write('Ваша оценка',' ');
case k of
10:writeln('5');
8..9:writeln('4');
6..7:writeln('3');
0..5:writeln('2');
end;
readln;
end.
p1:=random(9)+1;
p2:=random(9)+1;
p:=p1*p2;
write(p1,'*',p2,'=');
readln(otvet);
Нет
Да
if otvet=p
k:=k+1
writeln('Вы ошиблись!',p1,'*',p2,'=',p);
writeln('Правильных ответов:',k);
write('Ваша оценка',' ');
case k of
Выход
1
Вход
writeln('***Проверка знания таблицы умножения***'); writeln('После примера
введите ответ и нажмите Enter');
k:=0;
28. Написать программу проверки умения
складывать и вычитать числа в пределах 100.
Program m30;
var
i,a,n,k,p1,p2,p,otvet,tmp:integer;
begin
randomize;
writeln('***Проверка умения складывать и вычитать числа***');
writeln('После примера введите ответ и нажмите Enter');
k:=0;
for i:=1 to 10 do begin
p1:=random(99)+1;
p2:=random(99)+1;
if p1<p2 then begin
tmp:=p1;
p1:=p2;
p2:=tmp;
end;
p:=p1-p2;
write(p1,'-',p2,'=');
readln(otvet);
if otvet=p then
k:=k+1
else begin
writeln('Вы ошиблись!',p1,'-',p2,'=',p);
end;
end;
writeln('Правильных ответов:',k);
write('Ваша оценка',' ');
case k of
10:writeln('отлично');
8..9:writeln('хорошо');
6..7:writeln('удовлетворительно');
0..5:writeln('плохо');
end;
readln;
end.
for i:=1 to n do
p1:=random(9)+1;
p2:=random(9)+1;
if p1<p2
tmp:=p1;
p1:=p2;
p2:=tmp;
p:=p1-p2;
write(p1,'-',p2,'=');
readln(otvet);
if otvet=p
k:=k+1
writeln('Вы ошиблись!',p1,'-',p2,'=',p);
writeln('Правильных ответов:',k);
write('Ваша оценка',' ');
case k of
6..7
writeln('удовлетворительно');
Выход