9Б класс(1 группа): 19 декабря (актировка)

 

9Б класс(1 группа): 19 декабря (актировка)

кейс9.gif
Продолжаем изучать язык программирования Паскаль.
Тема урока "Программирование условий на Паскале"

Ваши помощники:
Учебник "И.Г. Семакин. Информатика и ИКТ. 9 класс.", пар.12-13 (стр.80-90)
Паскаль с нуля. Условные операторы.


Задание: создать актуальную программу, которая после ввода необходимых данных сообщает о наличии актированного дня. Все необходимые данные для решения задачи найти на сайте лицея. Все данные вводятся с клавиатуры в сопровождении комментариев. Ответ задачи выводится в отдельной строке в полной форме.

Решение задачи имеет два уровня реализации:
На "4":
пренебречь скоростью ветра, взять только температуру (без ветра)
Пример результата работы программы
Введите температуру воздуха в градусах: -32.4 
Сегодня актированный день с 1 по 8 класс!
На "5": получить корректный ответ, введя в программу данные о температуре и скорости ветра
Пример результата работы программы
Введите температуру воздуха в градусах: -34.3 
Введите скорость ветра в м/с: 4 
Сегодня актированный день с 1 по 11 класс!
Тексты задач (не файлы!) размещаем в комментарии к сообщению.
Пример оформления программного кода:
{Иванов 9а}
Program Bolezn;
var
  t:Real;
begin
  Write ('Введите температуру тела:');
  Readln (t);
  If t>36.6 Then Write ('Сожалею, Вы больны!') 
    Else Write ('Поздравляю, Вы здоровы!');
end.
Удачи!
ахтямоваахтямова
22.12.2016 13:350 ОтветитьЕщё
дз на актировку
{АХТЯМОВА 9Б}
Program AKTIROVKA;
var
t: real;
W:byte;
begin
Write ('Введите температуру воздуха в градусах:');
Readln (t);
Write ('Введите скорость ветра в м/с:');
Readln (w);
If (t<=-36) and (w=0) Then Write ('Сегодня актированный день с 1 по 11 класс!')
else If (t<=-34) and (w<5) and (w>0) Then Write ('Сегодня актированный день с 1 по 11 класс!')
else If (t<=-32) and (w>=5) and (w<=10) Then Write ('Сегодня актированный день с 1 по 11 класс!')
else If (t<=-31) and (w>10) Then Write ('Сегодня актированный день с 1 по 11 класс!')
else If (t<=-32) and (w=0) Then Write ('Сегодня актированный день с 1 по 8 класс!')
else If (t<=-30) and (w<5) and (w>0) Then Write ('Сегодня актированный день с 1 по 8 класс!')
else If (t<=-28) and (w>=5) and (w<=10) Then Write ('Сегодня актированный день с 1 по 8 класс!')
else If (t<=-27) and (w>10) Then Write ('Сегодня актированный день с 1 по 8 класс!')
else If (t<=-29) and (w=0) Then Write ('Сегодня актированный день с 1 по 4 класс!')
else If (t<=-27) and (w<5) and (w>0)Then Write ('Сегодня актированный день с 1 по 4 класс!')
else If (t<=-25) and (w>=5) and (w<=10) Then Write ('Сегодня актированный день с 1 по 4 класс!')
else If (t<=-24) and (w>10) Then Write ('Сегодня актированный день с 1 по 4 класс!')
else Write ('Актировки нет.');
end.
gadaborsheva_aminagadaborsheva_amina
23.12.2016 16:380 ОтветитьЕщё
Актировка
.....................
София СоломахаСофия Соломаха
25.12.2016 20:270 ОтветитьЕщё
Домашняя работа
{Соломаха София 9Б}
program aktirovka;
var
t: real;
begin
write ('Введите температуру воздуха в градусах: ');
readln (t);
if t>= -27 then
if t<= -24 then write ('Сегодня актированный день с 1 по 4 класс!')
else write ('Сегодня нет актированного дня.');
if t>= -31 then
if t< -27 then write ('Сегодня актированный день с 1 по 8 класс!');
if t< -31 then
if t> -36 then write ('Сегодня актированный день с 1 по 11 класс!');
if t< -36 then write ('Сегодня актированный день с 1 по 11 класс!');
end.
*
 
....