Пояснення до алгоритму. Враховуючи, що Земля робить повний оберт навколо Сонця приблизно за 365 днів, 5 годин і 46 с, доходимо висновку

Враховуючи, що Земля робить повний оберт навколо Сонця приблизно за 365 днів, 5 годин і 46 с, доходимо висновку, що рік за Юліанським календарем довший від сонячного. (За Юліанським календарем високосний рік той, номер якого можна без залишку поділити на 4.) У 1582 р. за вказівкою папи Римського Григорія ХІІІ було проведено реформу календаря. Відповідно до впроваджених змін високосними перестали вважати роки, що закінчуються двома нулями, за винятком тих, які діляться на 400 без остачі. За цією системою роки 1600, 2000, 2400 є високосними, а роки 1700, 1800, 1900, 2100 – ні.

Алгоритм мовою Паскаль має вигляд:

Program Example_4;

var Day, Month, L: byte; Year: word;

Name_Month: string;

Begin

write (‘ Введіть номер місяця та року > ‘);

readln (Month, Year);

case Month of

1: begin Name_Month:= ‘Січень‘; Day:=31; end;

Begin

Name Month:=’ Лютий ‘;

if (Year mod 4=0) and (not (Year mod 400=0))

then L:=1

else L:=0

Day:=28+L;

end;

3: begin Name_Month:=’ Березень ‘; Day:=31; end;

4: begin Name_Month:=’ Квітень ‘; Day:=30; end;

5: begin Name_Month:=’ Травень ‘; Day:=31; end;

6: begin Name_Month:=’ Червень ‘; Day:=30; end;

7: begin Name_Month:=’ Липень ‘; Day:=31; end;

8: begin Name_Month:=’ Серпень ‘; Day:=31; end;

9: begin Name_Month:=’ Вересень ‘; Day:=30; end;

10: begin Name_Month:=’ Жовтень ‘; Day:=31; end;

11: begin Name_Month:=’ Листопад ‘; Day:=30; end;

12: begin Name_Month:=’ Грудень ‘; Day:=31; end;

else begin Name_Month:=’ Номер місяця заданий неправильно ‘;

Day:=0

end;

end;

writeln (‘ Місяць:’, Name_Month);

if Day >0

then writeln (‘ Кількість днів:’, Day);

end.

Нагадуємо, що тип string, який використовується у наведеній програмі, дає змогу зберігати будь-який набір ASII-символів. Для внесення у змінну необхідного значення використовується оператор присвоєння, в якому потрібний текст береться в апострофи.

ОСТАННІЙ ОПЕРАТОР РОЗГАЛУЖЕННЯ (if Day>0…) ДАЄ ЗМОГУ НЕ ВИВОДИТИ НА ЕКРАН ЗНАЧЕННЯ ЗМІННОЇ Day (кількість днів у місяці), ЯКЩО НОМЕР МІСЯЦЯ ЗАДАНИЙ НЕПРАВИЛЬНО (більше 12 або менше 1)

Контрольні запитання

1.Якої структури слід дотримуватися при описанні команд мови?

2.Що вам відомо про команду присвоювання?

3.Розкажіть про команди розгалуження.

Вправи

Вправа 1. Складіть алгоритм, що знаходить суму більшого й меншого з чотирьох чисел.

Вправа 2. Складіть алгоритм розв’язування лінійного рівняння.

Вправа 3. Складіть алгоритм розв’язування біквадратного рівняння.

Вправа 4. Розробіть алгоритм, що визначає, вартість послуг залежно від дня тижня.

Вправа 5. Складіть алгоритм, що визначає, в якому координатному квадранті знаходиться точка А(х,у).

Вправа 6. Складіть алгоритм, що обчислює значення z, при заданих a, b, x:

Поиск по сайту: