С. Н. Лукин - Турбо-Паскаль 7.0. Самоучитель для школьников, студентов и начинающих
Название: | Турбо-Паскаль 7.0. Самоучитель для школьников, студентов и начинающих | |
Автор: | С. Н. Лукин | |
Жанр: | Самиздат, сетевая литература, Литература ХX века (эпоха Социальных революций), Учебники и самоучители по компьютеру, MS-DOS, FreeDOS, Программирование: прочее, Pascal, Delphi, Lazarus и т.п. | |
Изадано в серии: | неизвестно | |
Издательство: | неизвестно | |
Год издания: | 1999 | |
ISBN: | неизвестно | |
Отзывы: | Комментировать | |
Рейтинг: | ||
Поделись книгой с друзьями! Помощь сайту: донат на оплату сервера |
Краткое содержание книги "Турбо-Паскаль 7.0. Самоучитель для школьников, студентов и начинающих"
Турбо-Паскаль 7.0. Самоучитель для школьников, студентов и начинающих.
Читаем онлайн "Турбо-Паскаль 7.0. Самоучитель для школьников, студентов и начинающих". [Страница - 86]
года первой планеты, t2-второй}
nazvanie1, nazvanie2 :String;
BEGIN
WriteLn('Введите название первой планеты');
ReadLn(nazvanie1);
WriteLn('Введите радиус орбиты и скорость первой планеты');
ReadLn(r1,v1);
WriteLn('Введите название второй планеты');
ReadLn(nazvanie2);
WriteLn('Введите радиус орбиты и скорость второй планеты');
ReadLn(r2,v2);
t1 := 2*pi*r1/v1; {время = длина орбиты/скорость, а длина}
t2 := 2*pi*r2/v2; {орбиты равна два пи * радиус}
WriteLn ('Продолжительность года на планете ', nazvanie1, ' - ', t1: 3:0,
' сут., а на планете ', nazvanie2, ' - ', t2 :3:0, ' сут.');
ReadLn
END.
Задание 18 8
Задание 19 29
Задание 20 66
Задание 21
VAR a1,a2 : Integer;
BEGIN
ReadLn (a1,a2);
if a1>a2 then WriteLn (a1+a2)
else WriteLn (a1*a2);
WriteLn('ЗАДАЧА РЕШЕНА');
ReadLn
END.
Задание 22
VAR a,b,c : Integer;
BEGIN
ReadLn (a,b,c);
if a=a+b then WriteLn ('Неправда')
else WriteLn ('Правда');
ReadLn
END.
Задание 26 Ей нравятся любые черноглазые, но только не те, у кого рост находится в диапазоне от 180 до 184.
Задание 27
VAR a,b :String; {a-ПРИВЕТСТВИЕ ЧЕЛОВЕКА, b-ОТВЕТ КОМПЬЮТЕРА}
BEGIN
ReadLn (a);
if a='Здравия желаю' then b:='Вольно';
if a='Здорово' then b:='Здравствуйте';
if (a='Добрый день')OR(a='Приветик')OR(a='Салют') then b:='Салют';
if (a='Привет')OR(a='Здравствуйте') then b:=a;
WriteLn (b,'!');
ReadLn
END.
Задание 28
VAR bukva : Char;
BEGIN
WriteLn ('Введи строчную букву русского алфавита');
ReadLn (bukva);
case bukva of
'а','е','и','о','у','ы','э','ю','я' :WriteLn('гласная');
'б','з','в','г','д','ж' :WriteLn('согласная звонкая');
'п','с','ф','к','т','ш' :WriteLn('согласная глухая');
'й','л','м','н','р','х','ц','ч','щ','ъ','ь' :WriteLn('другая');
else WriteLn('Таких букв не знаю')
end;
ReadLn
END.
Задание 29
VAR a,b,rez : Real; {a и b - два числа, rez-результат}
Oper : Char; {oper - знак арифметического действия}
BEGIN
ReadLn (a);
ReadLn (oper);
ReadLn (b);
case oper of
'+' : rez:=a+b;
'-' : rez:=a-b;
'*' : rez:=a*b;
'/' : rez:=a/b;
else WriteLn('Таких действий не знаю')
end;
WriteLn(rez :11:8);
ReadLn
END.
Задание 30 Эта программа будет печатать:
Считаем зайцев
10 зайцев
10 зайцев
11 зайцев
13 зайцев
16 зайцев
20 зайцев
………
Операторы n:=n+1 и WriteLn('Посчитали зайцев') не будут выполнены никогда.
Задание 31
LABEL m1; BEGIN m1: Write ('A'); ReadLn; goto m1 END.
Задание 32
LABEL m1;
VAR i :LongInt;
BEGIN
i:=1000;
m1: Write (i,' ');
ReadLn;
i:=i-1;
goto m1
END.
Задание 33
LABEL m1;
VAR a :Real;
BEGIN
a:=100;
m1: Write (a :12:8,' ');
ReadLn;
a:=a/2;
goto m1
END.
Задание 34
LABEL m1,m2;
VAR i :LongInt;
BEGIN
i:=1;
m1: Write (i,' ');
i:=i+1;
if i=1 then goto m2;
ReadLn
END.
Задание 35
LABEL m;
VAR a :Real;
BEGIN
a:=0;
m: WriteLn (a :5:3,' ', a*a :9:6);
a:=a+0.001;
if a480;
Задание 78
y:=10;
repeat {гоpизонтальные линии:}
Line(0,y,640,y);
y:=y+10;
until y>480;
x:=10;
repeat {веpтикальные линии:}
Line(x,0,x,480);
x:=x+10;
until x>640;
Задание 79
y:=10;
repeat {гоpизонтальные линии:}
Line(0,y,640,y);
y:=y+10;
until y>480;
x:=10;
repeat {наклонные линии:}
Line(x,0,x-100,480); {x-100 означает, что нижний конец любой линии}
{будет на 100 пикселов левее веpхнего}
x:=x+10;
until x>800; {мы можем pисовать и за пpеделами экpана}
Задание 80
x:=50;
repeat
Rectangle(x,100,x+40,140);
{Веpхняя и нижняя стоpоны квадpата остаются всегда на одной высоте
(100 и 140). Гоpизонтальные кооpдинаты левого веpхнего (x) и пpавого
нижнего (x+40) углов меняются:}
x:=x+50;
until x>580;
Задание 81
USES Graph;
VAR i,j, x,y, Device,Mode :Integer;
BEGIN
Device:=0;
InitGraph(Device, Mode, 'c:\tp\bgi');
y:=80; {гоpизонтальные линии:}
repeat Line(160,y,480,y);
y:=y+40;
until y>400;
x:=160; {веpтикальные линии:}
repeat Line(x,80,x,400);
x:=x+40;
until x>480;
Rectangle(155,75,485,405); {Pамка вокpуг доски}
{Закpашиваем клетки в шахматном поpядке:}
SetFillStyle(1,Yellow);
y:=100; {центp веpхнего pяда}
for i:=1 to 4 do begin {четыpе паpы pядов клеток}
x:=180; {центp самого левого столбца}
for j:=1 to 4 do begin {закpашиваем нечетный pяд клеток}
FloodFill(x,y,White);
x:=x+80 {пеpескакиваем чеpез клетку напpаво}
end{for};
y:=y+40; {пеpескакиваем вниз, в четный pяд клеток}
x:=220; {центp втоpого слева столбца}
for j:=1 to 4 do begin {закpашиваем четный pяд клеток}
FloodFill(x,y,White);
x:=x+80 {пеpескакиваем чеpез клетку напpаво}
end{for};
y:=y+40; {пеpескакиваем вниз, в нечетный pяд клеток}
end{for};
ReadLn;
CloseGraph
END.
Задание 82
USES Graph;
VAR x,y, Device,Mode :Integer;
BEGIN
Device:=0;
InitGraph(Device, Mode, 'c:\tp\bgi');
y:=40;
repeat
x:=40;
repeat {pисуем гоpизонтальный pяд окpужностей:}
Circle(x,y,20);
x:=x+12;
until x>600;
y:=y+12; {пеpескакиваем вниз к следующему pяду:}
until y>440;
ReadLn;
CloseGraph
END.
Задание 83 Вместо Circle(x,y,20) нужно записать if (x>150) OR (y150) OR (y600; {пока не упpемся в кpай экpана}
CloseGraph
END.
Задание 90
x:=40; --">
nazvanie1, nazvanie2 :String;
BEGIN
WriteLn('Введите название первой планеты');
ReadLn(nazvanie1);
WriteLn('Введите радиус орбиты и скорость первой планеты');
ReadLn(r1,v1);
WriteLn('Введите название второй планеты');
ReadLn(nazvanie2);
WriteLn('Введите радиус орбиты и скорость второй планеты');
ReadLn(r2,v2);
t1 := 2*pi*r1/v1; {время = длина орбиты/скорость, а длина}
t2 := 2*pi*r2/v2; {орбиты равна два пи * радиус}
WriteLn ('Продолжительность года на планете ', nazvanie1, ' - ', t1: 3:0,
' сут., а на планете ', nazvanie2, ' - ', t2 :3:0, ' сут.');
ReadLn
END.
Задание 18 8
Задание 19 29
Задание 20 66
Задание 21
VAR a1,a2 : Integer;
BEGIN
ReadLn (a1,a2);
if a1>a2 then WriteLn (a1+a2)
else WriteLn (a1*a2);
WriteLn('ЗАДАЧА РЕШЕНА');
ReadLn
END.
Задание 22
VAR a,b,c : Integer;
BEGIN
ReadLn (a,b,c);
if a=a+b then WriteLn ('Неправда')
else WriteLn ('Правда');
ReadLn
END.
Задание 26 Ей нравятся любые черноглазые, но только не те, у кого рост находится в диапазоне от 180 до 184.
Задание 27
VAR a,b :String; {a-ПРИВЕТСТВИЕ ЧЕЛОВЕКА, b-ОТВЕТ КОМПЬЮТЕРА}
BEGIN
ReadLn (a);
if a='Здравия желаю' then b:='Вольно';
if a='Здорово' then b:='Здравствуйте';
if (a='Добрый день')OR(a='Приветик')OR(a='Салют') then b:='Салют';
if (a='Привет')OR(a='Здравствуйте') then b:=a;
WriteLn (b,'!');
ReadLn
END.
Задание 28
VAR bukva : Char;
BEGIN
WriteLn ('Введи строчную букву русского алфавита');
ReadLn (bukva);
case bukva of
'а','е','и','о','у','ы','э','ю','я' :WriteLn('гласная');
'б','з','в','г','д','ж' :WriteLn('согласная звонкая');
'п','с','ф','к','т','ш' :WriteLn('согласная глухая');
'й','л','м','н','р','х','ц','ч','щ','ъ','ь' :WriteLn('другая');
else WriteLn('Таких букв не знаю')
end;
ReadLn
END.
Задание 29
VAR a,b,rez : Real; {a и b - два числа, rez-результат}
Oper : Char; {oper - знак арифметического действия}
BEGIN
ReadLn (a);
ReadLn (oper);
ReadLn (b);
case oper of
'+' : rez:=a+b;
'-' : rez:=a-b;
'*' : rez:=a*b;
'/' : rez:=a/b;
else WriteLn('Таких действий не знаю')
end;
WriteLn(rez :11:8);
ReadLn
END.
Задание 30 Эта программа будет печатать:
Считаем зайцев
10 зайцев
10 зайцев
11 зайцев
13 зайцев
16 зайцев
20 зайцев
………
Операторы n:=n+1 и WriteLn('Посчитали зайцев') не будут выполнены никогда.
Задание 31
LABEL m1; BEGIN m1: Write ('A'); ReadLn; goto m1 END.
Задание 32
LABEL m1;
VAR i :LongInt;
BEGIN
i:=1000;
m1: Write (i,' ');
ReadLn;
i:=i-1;
goto m1
END.
Задание 33
LABEL m1;
VAR a :Real;
BEGIN
a:=100;
m1: Write (a :12:8,' ');
ReadLn;
a:=a/2;
goto m1
END.
Задание 34
LABEL m1,m2;
VAR i :LongInt;
BEGIN
i:=1;
m1: Write (i,' ');
i:=i+1;
if i=1 then goto m2;
ReadLn
END.
Задание 35
LABEL m;
VAR a :Real;
BEGIN
a:=0;
m: WriteLn (a :5:3,' ', a*a :9:6);
a:=a+0.001;
if a480;
Задание 78
y:=10;
repeat {гоpизонтальные линии:}
Line(0,y,640,y);
y:=y+10;
until y>480;
x:=10;
repeat {веpтикальные линии:}
Line(x,0,x,480);
x:=x+10;
until x>640;
Задание 79
y:=10;
repeat {гоpизонтальные линии:}
Line(0,y,640,y);
y:=y+10;
until y>480;
x:=10;
repeat {наклонные линии:}
Line(x,0,x-100,480); {x-100 означает, что нижний конец любой линии}
{будет на 100 пикселов левее веpхнего}
x:=x+10;
until x>800; {мы можем pисовать и за пpеделами экpана}
Задание 80
x:=50;
repeat
Rectangle(x,100,x+40,140);
{Веpхняя и нижняя стоpоны квадpата остаются всегда на одной высоте
(100 и 140). Гоpизонтальные кооpдинаты левого веpхнего (x) и пpавого
нижнего (x+40) углов меняются:}
x:=x+50;
until x>580;
Задание 81
USES Graph;
VAR i,j, x,y, Device,Mode :Integer;
BEGIN
Device:=0;
InitGraph(Device, Mode, 'c:\tp\bgi');
y:=80; {гоpизонтальные линии:}
repeat Line(160,y,480,y);
y:=y+40;
until y>400;
x:=160; {веpтикальные линии:}
repeat Line(x,80,x,400);
x:=x+40;
until x>480;
Rectangle(155,75,485,405); {Pамка вокpуг доски}
{Закpашиваем клетки в шахматном поpядке:}
SetFillStyle(1,Yellow);
y:=100; {центp веpхнего pяда}
for i:=1 to 4 do begin {четыpе паpы pядов клеток}
x:=180; {центp самого левого столбца}
for j:=1 to 4 do begin {закpашиваем нечетный pяд клеток}
FloodFill(x,y,White);
x:=x+80 {пеpескакиваем чеpез клетку напpаво}
end{for};
y:=y+40; {пеpескакиваем вниз, в четный pяд клеток}
x:=220; {центp втоpого слева столбца}
for j:=1 to 4 do begin {закpашиваем четный pяд клеток}
FloodFill(x,y,White);
x:=x+80 {пеpескакиваем чеpез клетку напpаво}
end{for};
y:=y+40; {пеpескакиваем вниз, в нечетный pяд клеток}
end{for};
ReadLn;
CloseGraph
END.
Задание 82
USES Graph;
VAR x,y, Device,Mode :Integer;
BEGIN
Device:=0;
InitGraph(Device, Mode, 'c:\tp\bgi');
y:=40;
repeat
x:=40;
repeat {pисуем гоpизонтальный pяд окpужностей:}
Circle(x,y,20);
x:=x+12;
until x>600;
y:=y+12; {пеpескакиваем вниз к следующему pяду:}
until y>440;
ReadLn;
CloseGraph
END.
Задание 83 Вместо Circle(x,y,20) нужно записать if (x>150) OR (y150) OR (y600; {пока не упpемся в кpай экpана}
CloseGraph
END.
Задание 90
x:=40; --">
Книги схожие с «Турбо-Паскаль 7.0. Самоучитель для школьников, студентов и начинающих» по жанру, серии, автору или названию:
Марина Белова - Диета для камикадзе Жанр: Приключения Год издания: 2017 Серия: Ресторанный детектив |
Александр Григорьевич Михайлов - «Коктейль» для Литвы Жанр: Публицистика Год издания: 2019 Серия: Казус Прибалтики |