Программа которая выводит направление робота после выполнения полученной команды.
program pr3; {Программа которая выводит направление робота после выполнения полученной команды}
uses crt;
var c,n:integer;
begin
clrscr;
writeln('выберите направление робота: 1-север, 2-запад, 3-юг, 4-восток');
readln(c);
writeln('выберите команду: 0-продолжать двежение, 1-поворот налево, -1-поворот направо');
readln(n);
case n of
0:c:=c;
1:c:=c+1;
-1:c:=c-1;
end;
write('робот направлен на ');
case c of
0,4:writeln('восток');
1,5:writeln('север');
2:writeln('запад');
3:writeln('юг');
end;
end.
Вид экрана:
Операторы прямой и обратный пересчет.
Программа печатающая столбиком все целые числа от 20 до 35.
program pr1; {Программа печатающая столбиком все целые числа от 20 до 35}
uses crt;
var i:integer;
begin
clrscr;
writeln('все целые числа от 20 до 35');
for i:=20 to 35 do
writeln(i);
end.
Вид экрана:
Программа нахождения всех целых чисел от b до 1.
Program pr2;{Программа нахождения всех целых чисел от b до 1}
uses crt;
var b,p,i:integer;
begin
clrscr;
writeln('введите значение b, b<20');
readln(b);
p:=1;
if b<1 then for i:=b to 1 do p:=i*p
else for i:=1 to b do p:=i*p;
writeln('Произведение всех целых чисел от',b,' до 1 = ',p);
end.
Вид экрана:
Программа выведения всех четных чисел начиная с числа n и до числа m.
Program pr3;{Программа выведения всех четных чисел начиная с числа N и до числа M}
uses crt;
var i,m,n:integer;
begin
clrscr;
writeln('введите два числа');
readln(n,m);
writeln('все четные числа от ',n,' до ',m);
if n>m then for i:=n downto m do begin
if i mod 2=0 then writeln(i);
end
else for i:=n to m do
if i mod 2=0 then writeln(i);
end.
Вид экрана:
Программа вывода всех трехзначных чисел, сумма которых равна данному числу.
Program pr4; {Программа вывода всех трехзначных чисел,
сумма цифр которых равна данному числу}
uses crt;
var i,n,ed,des,sot,s:integer;
begin
clrscr;
writeln('введите число');
readln(n);
writeln('все трехзначные числа, сумма цифр которых равно',n,':');
for i:=100 to 999 do begin
ed:=i mod 10;
des:=(i div 10) mod 10;
sot:=i div 100;
s:=ed+des+sot;
if s=n then writeln(i);
end;
end.
Вид экрана:
Программа проверки умения складывать и вычитать числа в пределах 100.
program pr5;{Программа проверки умения складывать и вычитать числа в пределах 100}
uses crt;
var i,a,b,k,s:integer; o:string;
begin
clrscr;
writeln;
randomize;
writeln(' Проверка умения складывать и вычитать');
writeln(' После примера введите ответ и нажмите <Enter>');
for i:=1 to 10 do begin
a:=random(101);
b:=random(a);
if i mod 2 = 0 then begin write(' ',a,'-',b,'=');readln(s);
if a-b=s then k:=k+1
else writeln(' Вы ошиблись! ',a,'-',b,'=',a-b);
end
else begin write(' ',a,'+',b,'=');readln(s);
if a+b=s then k:=k+1
else writeln(' Вы ошиблись! ',a,'+',b,'=',a+b);
end;
end;
writeln(' Правильных ответов:',k);
write(' Оценка:');
case k of
10: writeln('Отлично');
9,8: writeln('Хорошо');
7,6: writeln('Удовлетворительно');
0..5: writeln('Плохо');
end;
end.
Вид экрана:
Операторы цикла While. Repeat.