Программирование pascal

Программирование
1 курс 2 семестр
Аватара пользователя
Артём Мамзиков
Admin
Сообщения: 804
Стаж: 5 лет 1 месяц
Откуда: Вологодская область
Поблагодарили: 33 раза
Контактная информация:

Программирование pascal

Сообщение Артём Мамзиков »

7 Вариант
Программирование

Паскаль turbo_pascal_7_1_tpx , PascalABCNETSetup, PABCInstall , TP_7_RusLg , блок-схемы редактор diamFC

Глава I
Основные приемы программирования.
§1. Арифметика действительных чисел. Вычисление по формулам.

7. Условие: Смешано v1 литров воды температуры t1 с v2 литрами воды температуры t2 . Найти объем и температуру образовавшейся смеси.

Решение: Блок-схема:
1
1
§2. Разветвление.

39. Даны два действительных числа. Вывести первое число, если оно больше второго, и оба числа, если это не так.

Решение: Блок-схема:
2
2
§3. Простейшая целочисленная арифметика

75.Доказать, что любую целочисленную денежную сумму, большую 7 руб., можно выплатить без сдачи трешками и пятерками. Для данного n > 7 найти такие целые неотрицательные a и b, что 3a +5b = n.

Блок-схема:
3
3
§4. Простейшие циклы.

84. Даны натуральное n, действительное x. Вычислить:
В) sinx+sin sinx+
4
4
§5. Простейшие графические построения.

134. Получить на экране рис. 15 и обеспечить возможность «зажигать» и «гасить» свет в доме: включение и выключение света должно выполнятся с клавиатуры, окно дома при зажженном и при погашенном свете должно окрашиваться в разные цвета.


Блок-схема:
5
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
6
§7. Сочетания цикла и разветвления.
184.Условие задачи: Даны, целые числа p,q,a1, ..a67 p>q>=0. В последовательности a1...a67 Заменить нулями члены, модуль которых при делении на р дает в остатке q.
Решение: Блок-схема:
7
7
write(A:4);
readln;
end.

§10. Вложенные циклы.
323.Условие задачи:
Дано натуральное число n .Получить все натуральные числа меньше n и взаимно простые с ним.
Блок-схема:
8
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Руб
Содержимое архива
Содержимое архива
количество слов: 325

Вернуться в «Программирование»