36.6 Then Write ('Сожалею, Вы больны!') Else Write ('Поздравляю, Вы здоровы!'); end.Удачи!">

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


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

 

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

Мне нравится0
Сергей Мохов
19.12.201609:2719.12.2016 09:27:45

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

Ваши помощники:
Учебник "И.Г. Семакин. Информатика и ИКТ. 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.
Удачи!
Сергей Мохов
19.12.201609:2719.12.2016 09:27:45
Просмотров:2157 Комментариев:45 Мне нравится0
Теги: #кейс9
Смотреть предыдущие комментарии (42)
ахтямоваахтямова
22.12.2016 13:350 ОтветитьЕщё
дз на актировку
{АХТЯМОВА 9Б}
Program AKTIROVKA;
var
t: real;
W:byte;
begin
Write ('Введите температуру воздуха в градусах:');
Readln (t);
Write ('Введите скорость ветра в м/с:');
Readln (w);
If (t else If (t0) Then Write ('Сегодня актированный день с 1 по 11 класс!')
else If (t=5) and (w else If (t10) Then Write ('Сегодня актированный день с 1 по 11 класс!')
else If (t else If (t0) Then Write ('Сегодня актированный день с 1 по 8 класс!')
else If (t=5) and (w else If (t10) Then Write ('Сегодня актированный день с 1 по 8 класс!')
else If (t else If (t0)Then Write ('Сегодня актированный день с 1 по 4 класс!')
else If (t=5) and (w else If (t10) 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 else write ('Сегодня нет актированного дня.');
if t>= -31 then
if t if t if t> -36 then write ('Сегодня актированный день с 1 по 11 класс!');
if t end.
*
 
....