#include <stdio.h>
int main(void)
{
unsigned int
number;
scanf("%u", &number);
switch(number)
{
case 1:
{
printf("%s\n", "Понедельник");
break;
}
case 2:
{
printf("%s\n", "Вторник");
break;
}
case 3:
{
printf("%s\n", "Среда");
break;
}
case 4:
{
printf("%s\n", "Четверг");
break;
}
case 5:
{
printf("%s\n", "Пятница");
break;
}
case 6:
{
printf("%s\n", "Суббота");
break;
}
case 7:
{
printf("%s\n", "Воскресенье");
break;
}
}
return 0;
}
1.Подключается модуль, отвечающий за графику
2.Начало объявления переменных
3,Объявляется переменная "а", с числовым типом
4.Начало программы
5.Необходимо ввести значение переменной "а"
6.Перемещает указатель (начальную точку) на координаты а,1 где а - координата по оси Х, 1 - координата по оси Y
7.Рисует окружность с центром в точке x = а+а div 2,y = 1 где div целочисленное деление. То есть если а=5, то 5+5 div 2 будет равно 5. И третий параметр это радиус, то есть радиус равен а div 4.
8. Функция linto(x,y) рисует прямую линию в точку с координатами x и y. Причем рисует из точки, в которой указатель был до этого. То есть в данном случае из точки в центре окружности. Я думаю дальше можно догадаться, так как все функции описал. Программа написана на языке Pascal и она рисует что-то.
Var
a, b: integer;
function greatest_common_divisor(m, n: integer): integer;
var
modulo: integer;
begin
modulo := m mod n;
if modulo = 0 then
greatest_common_divisor := n
else
greatest_common_divisor := greatest_common_divisor(n, modulo)
end;
procedure reduce_the_fraction(a, b: integer);
var
gcd: integer;
sign: string;
begin
gcd := greatest_common_divisor(a, b);
if a * b < 0 then
sign := '-';
writeln(sign, abs(a) / gcd, '/', abs(b) / gcd);
end;
begin
write('Enter two numbers: ');
readln(a, b);
reduce_the_fraction(a, b);
end.
Пусть нужно узнать, где будет напечатана строка с номером n. Для предыдущих (n - 1) строк нужно (n - 1) div k полных страниц и ещё (n - 1) mod k строк на ((n - 1) div k + 1)-ой странице. n-я строка будет следующей на этой странице.
var
n, k, fullPages, restLines: integer;
begin
write('Номер строки: ');
readln(n);
write('Строк на странице: ');
readln(k);
fullPages := (n - 1) div k;
restLines := (n - 1) mod k;
writeln('Страница: ', fullPages + 1, ', строка: ', restLines + 1);
end.
