Программирование
Паскаль turbo_pascal_7_1_tpx , PascalABCNETSetup, PABCInstall , TP_7_RusLg , блок-схемы редактор diamFC
Глава I
Основные приемы программирования.
§1. Арифметика действительных чисел. Вычисление по формулам.
7. Условие: Смешано v1 литров воды температуры t1 с v2 литрами воды температуры t2 . Найти объем и температуру образовавшейся смеси.
Решение: Блок-схема:
- 1
39. Даны два действительных числа. Вывести первое число, если оно больше второго, и оба числа, если это не так.
Решение: Блок-схема:
- 2
75.Доказать, что любую целочисленную денежную сумму, большую 7 руб., можно выплатить без сдачи трешками и пятерками. Для данного n > 7 найти такие целые неотрицательные a и b, что 3a +5b = n.
Блок-схема:
- 3
84. Даны натуральное n, действительное x. Вычислить:
В) sinx+sin sinx+
- 4
134. Получить на экране рис. 15 и обеспечить возможность «зажигать» и «гасить» свет в доме: включение и выключение света должно выполнятся с клавиатуры, окно дома при зажженном и при погашенном свете должно окрашиваться в разные цвета.
Блок-схема:
- 5
uses crt,graphABC;
var c:char;
begin
clearwindow(clGray);
setpencolor(clGreen);
rectangle(100,100,400,300);{дом}
floodfill(200,200,clGreen);
setpencolor(clBrown);
line(50,100,450,100);{крыша}
line(49,101,250,15);
line(451,101,249,14);
floodfill(250,50,clBrown);
setpencolor(clGray);
rectangle(200,150,300,250);{окно}
floodfill(250,200,clgray);
textout(150,400,'Включить свет-1 выключить-2 выход-Enter');
repeat
if keypressed then
begin
c:=readkey;
case c of
'1':begin
setpencolor(clYellow);
rectangle(200,150,300,250);
FloodFill(250,200,clYellow);
end;
'2':begin
setpencolor(clGray);
rectangle(200,150,300,250);
FloodFill(250,200,clGray);
end;
#13:exit;
end;
end;
until c=#13;
end.
§6. Пошаговый ввод данных и вывод результатов *)
Условие Задачи:
143.Даны действительные числа a1, a2, a3, a4, x1, ..., x50. Получить b1, ..., b50, где
- 6
184.Условие задачи: Даны, целые числа p,q,a1, ..a67 p>q>=0. В последовательности a1...a67 Заменить нулями члены, модуль которых при делении на р дает в остатке q.
Решение: Блок-схема:
- 7
readln;
end.
§10. Вложенные циклы.
323.Условие задачи:
Дано натуральное число n .Получить все натуральные числа меньше n и взаимно простые с ним.
Блок-схема:
- 8
var d, i, j, m, n: integer;
begin
write('n = ');
readln(j);
j := abs(j);
for i := 1 to j - 1 do
begin
m := i; n := j; d := 1;
while not((m = 0) or (n = 0)) do
if (m mod 2 = 0) and (n mod 2 = 0)
then begin
d := d * 2; m := m div 2; n := n div 2
end
else if (m mod 2 = 0) and (n mod 2 = 1)
then m:= m div 2
else if (m mod 2 = 1) and (n mod 2 = 0)
then n:= n div 2
else if (m mod 2 = 1) and (n mod 2 = 1) and (m >= n)
then m := m - n
else if (m mod 2 = 1) and (n mod 2 = 1) and (m <= n)
then n := n - m;
if d * (n + m) = 1 then write(i, ' ')
end;
readln
end.
Ссылка на архив 200Руб
- Содержимое архива
