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.
Удачи!
Мне нравится0
19.12.2016 15:08:41
{Шагимуратова 9Б}
Program aktirovka;
var
 veter,t:Real;
begin
 Write ('Введите температуру воздуха:');
 Readln (t);
 Write ('Введите скорость ветра в м\с:');
 Readln (veter);
 If (t=-24) and (veter>=10) Then Write ('актировка с 1 по 4 классы');
 if (t=-25) or (t=-26) and (veter>=5) and (veter<10) Then Write ('актировка с 1 по 4 классы');
 if (t=-27) or (t=-28) and (veter<5) Then Write ('актировка с 1 по 4 классы');
 if (t=-29)  Then Write ('актировка с 1 по 4 классы');
 If (t=-27) and (veter>=10) Then Write ('актировка с 1 по 8 классы');
 if (t=-28) or (t=-29) and (veter>=5) and (veter<10) Then Write ('актировка с 1 по 8 классы');
 if (t=-30) or (t=-30) and (veter<5)Then Write ('актировка с 1 по 8 классы');
 if (t=-32)  Then Write ('актировка с 1 по 8 классы');
 If (t=-31) and (veter>=10) Then Write ('актировка с 1 по 11 классы');
 if (t=-32) or (t=-33) and (veter>=5) and (veter<10) Then Write ('актировка с 1 по 11 классы');
 if (t=-34) or (t=-35) and (veter<5)Then Write ('актировка с 1 по 11 классы');
 if (t<-36)  Then Write ('актировка с 1 по 11 классы');
 if (t>-24) then write ('топай в школу');
end.
Ответить Ссылка Мне нравится0
Мне нравится0
20.12.2016 08:12:04
Валерия Михайловна, а у Вас не может сразу несколько ответов появиться?
Вот что у меня получилось:
Введите температуру воздуха:-29
Введите скорость ветра в м\с:6
актировка с 1 по 4 классыактировка с 1 по 8 классы
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 09:46:18
{Шагимуратова 9Б}
Program aktirovka;
var
 veter,t:Real;

begin
 Write ('Введите температуру воздуха:');
 Readln (t);
 Write ('Введите скорость ветра в м\с:');
 Readln (veter);
 If (t=-24) and (veter>=10) Then Write ('актировка с 1 по 4 классы');
 if (t=-25) or (t=-26) and (veter>=5) and (veter<10) Then Write ('актировка с 1 по 4 классы');
 if (t=-27) or (t=-28) and (veter<5) Then Write ('актировка с 1 по 4 классы');
 if (t=-29)and (veter<5) and (veter>0)  Then Write ('актировка с 1 по 4 классы');
 If (t=-27) and (veter>=10) Then Write ('актировка с 1 по 8 классы');
 if (t=-28) or (t=-29) and (veter>=5) and (veter<10) Then Write ('актировка с 1 по 8 классы');
 if (t=-30) or (t=-31) and (veter<5)Then Write ('актировка с 1 по 8 классы');
 if (t=-32)  Then Write ('актировка с 1 по 8 классы');
 If (t=-31) and (veter>=10) Then Write ('актировка с 1 по 11 классы');
 if (t=-32) or (t=-33) and (veter>=5) and (veter<10)  Then Write ('актировка с 1 по 11 классы');
 if (t=-34) or (t=-35) and (veter<5)Then Write ('актировка с 1 по 11 классы');
 if (t<=-36)  Then Write ('актировка с 1 по 11 классы');
 if (t>-24) then write ('топай в школу');
end.
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 15:16:30
Валерия Михайловна, а Вы не могли бы сами тестировать свою программу?
Введите температуру воздуха:-32
Введите скорость ветра в м\с:100
актировка с 1 по 8 классыактировка с 1 по 11 классы
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 18:09:24
{Шагимуратова 9Б}
Program aktirovka;
var
veter,t:Real;
begin
Write ('Введите температуру воздуха:');
Readln (t);
Write ('Введите скорость ветра в м\с:');
Readln (veter);
if (t<=-36) and (veter=0) Then Write ('актировка с 1 по 11 классы')
else if (t=-34) or (t=-35) and (veter<5) and (veter>0) Then Write ('актировка с 1 по 11 классы')
else if (t=-32) or (t=-33) and (veter>=5)  Then Write ('актировка с 1 по 11 классы')
else If (t=-31) and (veter>=10) Then Write ('актировка с 1 по 11 классы')
else if (t=-32) and (veter=0) Then Write ('актировка с 1 по 8 классы')
else if (t=-30)or (t=-31) and (veter<5) and (veter>0) Then Write ('актировка с 1 по 8 классы')
else if (t=-28) or (t=-29)and (veter>=5)Then Write ('актировка с 1 по 8 классы')
else If (t=-27) and (veter>=10) Then Write ('актировка с 1 по 8 классы')
else if (t=-29)and (veter=0) Then Write ('актировка с 1 по 4 классы')
else if (t=-27)or (t=-28) and (veter<5) and (veter>0) Then Write ('актировка с 1 по 4 классы')
else if (t=-25)or (t=-26) and (veter>=5) Then Write ('актировка с 1 по 4 классы')
else If (t=-24) and (veter>=10) Then Write ('актировка с 1 по 4 классы')
else Write('топай в школу');
end.



пы.сы. Сергей Алексеевич, добрый вечер!  все тестирую, но я ведь не машина... могу что-нибудь пропустить
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 18:25:18
Верю, Валерия Михайловна. Последний мой тест, дальше сама...
Введите температуру воздуха:-32
Введите скорость ветра в м\с:0
актировка с 1 по 11 классы
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 18:39:19
{Шагимуратова 9Б}
Program aktirovka;
var
veter,t:Real;
begin
Write ('Введите температуру воздуха:');
Readln (t);
Write ('Введите скорость ветра в м\с:');
Readln (veter);
If (t=-24) and (veter>=10) Then Write ('актировка с 1 по 4 классы')
else if (t=-25)or (t=-26) and (veter>=5) Then Write ('актировка с 1 по 4 классы')
else if (t=-27)or (t=-28) and (veter<5) and (veter>0) Then Write ('актировка с 1 по 4 классы')
else if (t=-29)and (veter=0) Then Write ('актировка с 1 по 4 классы')
else If (t=-27) and (veter>=10) Then Write ('актировка с 1 по 8 классы')
else if (t=-28) or (t=-29)and (veter>=5)Then Write ('актировка с 1 по 8 классы')
else if (t=-30)or (t=-31) and (veter<5) and (veter>0) Then Write ('актировка с 1 по 8 классы')
else if (t=-32) and (veter=0) Then Write ('актировка с 1 по 8 классы')
else If (t=-31) and (veter>=10) Then Write ('актировка с 1 по 11 классы')
else if (t=-32) or (t=-33) and (veter>=5) Then Write ('актировка с 1 по 11 классы')
else if (t=-34) or (t=-35) and (veter<5) and (veter>0) Then Write ('актировка с 1 по 11 классы')
else if (t<=-36)  Then Write ('актировка с 1 по 11 классы')
else Write('топай в школу');
end.
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
Агапкина Камила
19.12.2016 15:36:05
Агапкина Программа ИСПРАВЛЕННЫЙ ВАРИАНТ
{Агапкина Камила 9Б}
program aktirovka
var a,b,c, t,v: smallint;
begin
a:=0;
b:=0;
writeln('Введите температуру воздуха в градусах');
readln(t);
writeln('Введите скорость ветра в м/с');
readln(v);
if (t>=24) and (v>10) or (t>=25) and (v>=5) and (v<10) or  (t>=27) and (v>0) and (v<5) or (t>=29) and (v=0) then
a:=1;
if (t>=27) and (v>10) or (t>=28) and (v>=5) and (v<=10) or (t>=30) and (v>0) and (v<5) or (t>=32) and (v=0) then
b:=1;
if (t>=31) and (v>10) or (t>=32) and (v<=10)and (v>=5) or (t>=34) and (v>0) and (v<5)or (t>=36) and (v=0) then
c:=1;
if (a>b) and (b>c) then
writeln('Сегодня актированный день с 1 по 4 классы.');
if (a=b) and (b>c) then
writeln ('Сегодня актированный день с 1 по 8 классы.');
if (b=1) and (c=1) then
writeln('Сегодня актированный день с 1 по 11 классы.');
if (a=0) and (a=b) and (b=c) then
writeln('Сегодня актированного дня нет.');
end.
Ответить Ссылка Мне нравится0
Мне нравится0
20.12.2016 08:13:32
Камила, попробуй текст программы из сообщения скопируй в Паскаль и запусти. Что получилось?
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
Агапкина Камила
20.12.2016 15:04:18
Агапкина Программа
{Агапкина 9Б}
{Агапкина 9Б}
var a,b,c,t,v:byte;
begin
a:=0;
b:=0;
c:=0;
writeln('Введите температуру воздуха в градусах');
readln(t);
writeln('Введите скорость ветра в м/с');
readln(v);
if (t>29) and (v=0) or (t>=27) and (v>0) and (v<5) or (t>=25) and (v>=5) and (v<10) or (t>=24) and (v>10) then
a:=1;
if (t>=32) and (v=0) or (t>=30) and (v>0) and (v<5) or (t>=28) and (v>=5) and (v<=10) or (v>=27) and (v>10) then
b:=1;
if (t>=36) and (v=0) or (t>=34) and (v>0) and (v<5)or (t>=32) and (v<=10)and (v>=5) or (t>=31) and (v>10) then
c:=1;
if (a>b) and (a>c) then
writeln('Сегодня актированный день с 1 по 4 классы!');
if (a=b) and (b>c) then
writeln('Сегодня актированный день с 1 по 8 классы!');
if (a=b) and (b=c) and (a=1) then
writeln('Сегодня актированный день с 1 по 11 классы!');
if (a=b) and (b=c) and (a=0) then
writeln('Сегодня актированного дня нет.')
end.
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 15:17:40
Камила, странная актировка при положительных температурах...
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
Агапкина Камила
20.12.2016 15:37:31
Ну у вас же в программе такое же...
Введите температуру воздуха в градусах: 34.3
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
21.12.2016 14:47:47
Молодец, Камила, заметила опечатку... Поправил.
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
Агапкина Камила
21.12.2016 13:30:10
ФИНАЛЬНЫЙ ВАРИАНТ
{Агапкина 9Б}
var a,b,c,t,v:smallint;
begin
a:=0;
b:=0;
c:=0;
writeln('Введите температуру воздуха в градусах');
readln(t);
writeln('Введите скорость ветра в м/с');
readln(v);
if (t<=-29) and (v>=0) or (t>-29) and (t<=-27) and (v>0) or (t>-27) and (t<=-25) and (v>=5) or (t>-25) and (t<=-24) and (v>10) then
a:=1;
if (t<=-32) and (v>=0) or (t>-32) and (t<=-30) and (v>0) or (t>-30) and (t<=-28) and (v>=5) or (t>-28) and (t<=-27) and (v>10) then
b:=1;
if (t<=-36) and (v>=0) or (t>-36) and (t<=-34) and (v>0) or (t>-34) and (t<=-32)and (v>=5) or (t>-32) and (t<=-31) and (v>10) then
c:=1;
if (a=0) and (a=b) and (b=c) then
writeln ('Сегодня актированного дня нет');
if (a=1) and (a>b) and (a>c) then
writeln ('Сегодня актированный день с 1 по 4 классы!');
if (a=1) and (a=b) and (a>c) then
writeln('Сегодня актированный день с 1 по 8 классы!');
if (a=1) and (a=b) and (a=c) then
writeln('Сегодня актированный день с 1 по 11 классы!');
end.
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
19.12.2016 15:52:12
Задание на актировке
{Зайнутдинова Эмилия 9б}
program aktirovka;
var t, skorvetra:real;
begin
write('Введите температуру воздуха в градусах:');
read(t);
write('Введите скорость ветра в м/с:');
read(skorvetra);
if(t>-24)and (skorvetra>=0)then write('Нужно идти в школу');
if (t<-36) then write('Актированный день с 1-11 классы');
if (t= -35)or(t=-34) and (skorvetra<5)then write('Актированный день с 1-11 классы');
if (t= -33)or(t=-32) and (skorvetra<10) and (skorvetra>=5) then write('Актированный день с 1-11 классы');
if (t= -31) and (skorvetra>10) then write('Актированный день с 1-11 классы');

if (t= -32)and (skorvetra>=0) then write('Актированный день с 1-8 классы');
if (t<= -30) and (skorvetra<=5) then write('Актированный день с 1-8 классы');
if (t<= -29) or(t=-28) and (skorvetra<10) and (skorvetra>=5)then write('Актированный день с 1-8 классы');
if(t= -27)and (skorvetra>=10) then write('Актированный день с 1-8 классы');

if(t>-29)and (skorvetra>=0)then write('Актированный день с 1-4 классы');
if (t= -28)or(t=-27) and (skorvetra<5)then write('Актированный день с 1-4 классы');
if (t= -26)or(t=-25) and (skorvetra<10) and (skorvetra>5)then write('Актированный день с 1-4 классы');
if (t=-24) and(skorvetra>=10)then write('Актированный день с 1-4 классы');
end.
Ответить Ссылка Мне нравится0
Мне нравится0
19.12.2016 22:16:39
Эмилия, а скорость ветра отрицательная быть может?
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 12:53:54
{Зайнутдинова 9б}
program aktirovann;
var t :real;
var skorvetra:byte;
begin
write('Введите температуру воздуха в градусах:');
read(t);
write('Введите скорость ветра в м/с:');
read(skorvetra);
if(t>-24)and (skorvetra>=0)then write('Нужно идти в школу')
else if (t<=-36) and (skorvetra=0) then write('Актированный день с 1-11 классы')
else if (t<=-34) and (skorvetra<5)and (skorvetra>0) then write('Актированный день с 1-11 классы')
else if (t<=-32) and (skorvetra<10) and (skorvetra>=5) then write('Актированный день с 1-11 классы')
else if (t<=-31) and (skorvetra>10) then write('Актированный день с 1-11 классы')

else if (t<=-32) and (skorvetra=0) then write('Актированный день с 1-8 классы')
else if (t<=-30) and (skorvetra<5) and (skorvetra>0) then write('Актированный день с 1-8 классы')
else if (t<=-28) and (skorvetra<10) and (skorvetra>=5)then write('Актированный день с 1-8 классы')
else if (t<=-27) and (skorvetra>=10) then write('Актированный день с 1-8 классы')

else if (t<=-29) and (skorvetra=0) then write('Актированный день с 1-4 классы')
else if (t<=-27) and (skorvetra<5) and (skorvetra>0)then write('Актированный день с 1-4 классы')
else if (t<=-25) and (skorvetra<10) and (skorvetra>=5) then write('Актированный день с 1-4 классы')
else if (t<=-24) and (skorvetra>=10)then write('Актированный день с 1-4 классы')
else write('Нужно идти в школу');
end.
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 15:23:17
Эмилия, вот такой ответ у меня получился...

Введите температуру воздуха в градусах:-36
Введите скорость ветра в м/с:10
Актированный день с 1-8 классы
Правильно?
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 22:40:49
{Зайнутдинова 9б}
program aktirovann;
var t, skorvetra: real;
begin
write('Введите температуру воздуха в градусах:');
read(t);
write('Введите скорость ветра в м/с:');
read(skorvetra);
if (skorvetra<0) then write ('Вы некорректно ввели скорость ветра. Она должна быть положительной.');
if(t>-24)and (skorvetra>=0)then write('Нужно идти в школу')
else if (t<=-36) then write('Актированный день с 1-11 классы')
else if (t<=-34) and (skorvetra<5)and (skorvetra>0) then write('Актированный день с 1-11 классы')
else if (t<=-32) and (skorvetra<10) and (skorvetra>=5) then write('Актированный день с 1-11 классы')
else if (t<=-31) and (skorvetra>10) then write('Актированный день с 1-11 классы')

else if (t<=-32) then write('Актированный день с 1-8 классы')
else if (t<=-30) and (skorvetra<5) and (skorvetra>0) then write('Актированный день с 1-8 классы')
else if (t<=-28) and (skorvetra<10) and (skorvetra>=5)then write('Актированный день с 1-8 классы')
else if (t<=-27) and (skorvetra>=10) then write('Актированный день с 1-8 классы')

else if (t<=-29) then write('Актированный день с 1-4 классы')
else if (t<=-27) and (skorvetra<5) and (skorvetra>0)then write('Актированный день с 1-4 классы')
else if (t<=-25) and (skorvetra<10) and (skorvetra>=5) then write('Актированный день с 1-4 классы')
else if (t<=-24) and (skorvetra>=10)then write('Актированный день с 1-4 классы')
else if (skorvetra>=0) then write('Нужно идти в школу');
end.
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
19.12.2016 16:10:15
Дз_Дьяченко_9б_1гр
var
t,v:byte;
begin
write('Введите температуру воздуха (по цельсию): ');
readln(t);
write('Введите скорость ветра (м/с): ');
readln(v);
if (t>=29)and(t<32)and(v=0) or (t>=27)and(t<30)and(v<=5)and(v>0) or (t>=25 )and(t<28 )and(v>5)and(v<=10)and(v>0) or (t>=24)and(t<27)and(t>10)and(v>0) then
writeln('Сегодня актированный день с 1 по 4 класс!');

if (t>=32)and (t<36) and(v=0) or (t>=30)and(t<34)and(v<=5)and(v>0) or (t>=28 )and(t<32)and(v>5)and(v<=10)and(v>0) or (t>=27)and(t<31)and(t>10)and(v>0) then
writeln('Сегодня актированный день с 1 по 8 класс!');

if (t>=36)and(v=0) or (t>=34)and(v<=5)and(v>0) or (t>=32)and(v>5)and(v<=10)and(v>0) or (t>=31)and(v>10) and(v>0) then
writeln('Сегодня актированный день с 1 по 11 класс!');

if (t<29)and(v=0) or (t<27)and(v<=5)and(v>0) or (t<25)and(v>5)and(v<=10)and(v>0) or (t<24)and(t>10)and(v>0) then
writeln('Сегодня не актированный день!');

end.
Ответить Ссылка Мне нравится0
Мне нравится0
19.12.2016 19:19:20
Данил, по моему у тебя программа даже летом актировки покажет...
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
19.12.2016 21:31:58
Извините, сглупил!
var
t,v:byte;
begin
write('Введите температуру воздуха (по цельсию): ');
readln(t);
write('Введите скорость ветра (м/с): ');
readln(v);
if (t>=29)and(t<32)and(v=0) or (t>=27)and(t<30)and(v<=5)and(v>0) or (t>=25 )and(t<28 )and(v>5)and(v<=10) or (t>=24)and(t<27)and(v>10) then
writeln('Сегодня актированный день с 1 по 4 класс!');

if (t>=32)and (t<36) and(v=0) or (t>=30)and(t<34)and(v<=5)and(v>0) or (t>=28 )and(t<32)and(v>5)and(v<=10) or (t>=27)and(t<31)and(v>10) then
writeln('Сегодня актированный день с 1 по 8 класс!');

if (t>=36)and(v=0) or (t>=34)and(v<=5)and(v>0) or (t>=32)and(v>5)and(v<=10) or (t>=31)and(v>10) then
writeln('Сегодня актированный день с 1 по 11 класс!');

if (t<29)and(v=0) or (t<27)and(v<=5)and(v>0) or (t<25)and(v>5)and(v<=10) or (t<24)and(v>10) then
writeln('Сегодня не актированный день!');

end.
Ответить Ссылка Мне нравится0
Мне нравится0
19.12.2016 22:14:03
Данил, с летом ничего не изменилось...
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
19.12.2016 21:42:40
Дз
{Вастаев Олег 9Б}
Program actirovka;
{Программа работает строго по установленному температурному режиму}
var
t,v:integer;
begin
write('Введите температуру воздуха в градусах: ');
 readln(t);
 write('Введите скорость ветра в м/с: ');
 readln(v);
 {1-4}
if (v=0) and (t=-29) then write('Сегодня актированный день с 1 по 4 класс'); {без ветра -29˚}
if (v<=5) and (t=-27) then write('Сегодня актированный день с 1 по 4 класс'); {при скорости ветра до 5 м/сек -27˚}
if (v>=5) and (v<=10) and (t=-25) then write('Сегодня актированный день с 1 по 4 класс'); {при скорости ветра от 5 м/сек до 10 м/сек -25˚}
if (v>=10) and (t=-24) then write('Сегодня актированный день с 1 по 4 класс'); {при скорости ветра более 10 м/сек -24˚}
if (v<=10) and (t>-24) then write('Актированного дня - нет');
 {1-8}
if (v=0) and (t=-32) then write('Сегодня актированный день с 1 по 8 класс'); {без ветра -32˚}
if (v<=5) and (t=-30) then write('Сегодня актированный день с 1 по 8 класс'); {при скорости ветра до 5 м/сек -30˚}
if (v>=5) and (v<=10) and (t=-28) then write('Сегодня актированный день с 1 по 8 класс'); {при скорости ветра от 5 м/сек до 10 м/сек -28˚}
if (v>=10) and (t=-27) then write('Сегодня актированный день с 1 по 8 класс'); {при скорости ветра более 10 м/сек -27˚}
 {1-11}
if (v=0) and (t=-36) then write('Сегодня актированный день с 1 по 11 класс'); {без ветра -36˚}
if (v<=5) and (t=-34) then write('Сегодня актированный день с 1 по 11 класс'); {при скорости ветра до 5 м/сек -34˚}
if (v>=5) and (v<=10) and (t=-32) then write('Сегодня актированный день с 1 по 11 класс'); {при скорости ветра от 5 м/сек до 10 м/сек -32˚}
if (v>=10) and (t=-31) then write('Сегодня актированный день с 1 по 11 класс'); {при скорости ветра более 10 м/сек -31˚}


end.
Ответить Ссылка Мне нравится0
Мне нравится0
19.12.2016 22:15:08
Олег, а скорость ветра отрицательная - это он куда дует?
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
19.12.2016 23:05:36
исправление
{Вастаев Олег 9Б}
Program actirovka;
{Программа работает строго по установленному температурному режиму}
var
t,v:integer;
begin
write('Введите температуру воздуха в градусах: ');
 readln(t);
 write('Введите скорость ветра в м/с: ');
 readln(v);
 {1-4}
if (v=0) and (t=-29) then write('Сегодня актированный день с 1 по 4 класс'); {без ветра -29˚}
if (v<=5) and (t=-27) then write('Сегодня актированный день с 1 по 4 класс'); {при скорости ветра до 5 м/сек -27˚}
if (v>=5) and (v<=10) and (t=-25) then write('Сегодня актированный день с 1 по 4 класс'); {при скорости ветра от 5 м/сек до 10 м/сек -25˚}
if (v>=10) and (t=-24) then write('Сегодня актированный день с 1 по 4 класс'); {при скорости ветра более 10 м/сек -24˚}
if (v<=10) and (t>-24) then write('Актированного дня - нет');
 {1-8}
if (v=0) and (t=-32) then write('Сегодня актированный день с 1 по 8 класс'); {без ветра -32˚}
if (v<=5) and (t=-30) then write('Сегодня актированный день с 1 по 8 класс'); {при скорости ветра до 5 м/сек -30˚}
if (v>=5) and (v<=10) and (t=-28) then write('Сегодня актированный день с 1 по 8 класс'); {при скорости ветра от 5 м/сек до 10 м/сек -28˚}
if (v>=10) and (t=-27) then write('Сегодня актированный день с 1 по 8 класс'); {при скорости ветра более 10 м/сек -27˚}
 {1-11}
if (v=0) and (t=-36) then write('Сегодня актированный день с 1 по 11 класс'); {без ветра -36˚}
if (v<=5) and (t=-34) then write('Сегодня актированный день с 1 по 11 класс'); {при скорости ветра до 5 м/сек -34˚}
if (v>=5) and (v<=10) and (t=-32) then write('Сегодня актированный день с 1 по 11 класс'); {при скорости ветра от 5 м/сек до 10 м/сек -32˚}
if (v>=10) and (t=-31) then write('Сегодня актированный день с 1 по 11 класс'); {при скорости ветра более 10 м/сек -31˚}
if v<0 then write('Похоже вы что-то не так ввели(скорость ветра не может быть отрицательной!).')

end.
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 08:01:05
Олег, а что изменилось?
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 13:01:00
дз
{Вастаев Олег 9Б}
Program actirovka;
{Программа работает строго по установленному температурному режиму}
var
t,v:integer;
begin
write('Введите температуру воздуха в градусах: ');
 readln(t);
 write('Введите скорость ветра в м/с: ');
 readln(v);
 {1-4}
if (v=0) and (t=-29) and (v>0) then write('Сегодня актированный день с 1 по 4 класс'); {без ветра -29˚}
if (v<=5) and (t=-27) and (v>0) then write('Сегодня актированный день с 1 по 4 класс'); {при скорости ветра до 5 м/сек -27˚}
if (v>=5) and (v<=10) and (v>0) and (t=-25) then write('Сегодня актированный день с 1 по 4 класс'); {при скорости ветра от 5 м/сек до 10 м/сек -25˚}
if (v>=10) and (t=-24) and (v>0) then write('Сегодня актированный день с 1 по 4 класс'); {при скорости ветра более 10 м/сек -24˚}
if (v<=10) and (t>-24) and (v>0) then write('Актированного дня - нет');
 {1-8}
if (v=0) and (t=-32) and (v>0) then write('Сегодня актированный день с 1 по 8 класс'); {без ветра -32˚}
if (v<=5) and (t=-30) and (v>0) then write('Сегодня актированный день с 1 по 8 класс'); {при скорости ветра до 5 м/сек -30˚}
if (v>=5) and (v<=10) and (v>0) and (t=-28) then write('Сегодня актированный день с 1 по 8 класс'); {при скорости ветра от 5 м/сек до 10 м/сек -28˚}
if (v>=10) and (t=-27) and (v>0) then write('Сегодня актированный день с 1 по 8 класс'); {при скорости ветра более 10 м/сек -27˚}
 {1-11}
if (v=0) and (t=-36) and (v>0) then write('Сегодня актированный день с 1 по 11 класс'); {без ветра -36˚}
if (v<=5) and (t=-34) and (v>0) then write('Сегодня актированный день с 1 по 11 класс'); {при скорости ветра до 5 м/сек -34˚}
if (v>=5) and (v<=10) and (v>0) and (t=-32) then write('Сегодня актированный день с 1 по 11 класс'); {при скорости ветра от 5 м/сек до 10 м/сек -32˚}
if (v>=10) and (t=-31) and (v>0) then write('Сегодня актированный день с 1 по 11 класс'); {при скорости ветра более 10 м/сек -31˚}
if v<0 then write('Похоже вы что-то не так ввели(скорость ветра не может быть отрицательной!).')

end.
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 15:24:53
Олег, вопрос остался без ответа
Олег, а скорость ветра отрицательная - это он куда дует?
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 16:46:49
Не пойму на какую ошибку вы пытаетесь мне указать.
...
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 18:20:59
На тип данных, Олег.
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
19.12.2016 22:51:51
актировка
{Сысак9Б}
Program Aktirovka;
var
v:byte;
t:shortint;
begin
write('Введите температуру воздуха в градусах:');
readln(t);
write('Введите скорость ветра в м/с:');
readln(v);
if (t<-35) and (v<1) and (v>-1) or (t<-33) and (v<5) and (v>0) or (t<-31) and (v<10) and (v>4) or (t<-30) and (v>9)
 then write('Актированный день с 1 по 11')
 else if (t<-31) and (v<1) and (v>-1) or (t<-29) and (v<5) and (v>0) or (t<-27) and (v<10) and (v>4) or (t<-26) and (v>9)
      then write('Актированный день с 1 по 8')
      else  if (t<-28) and (v<1) or (t<-26) and (v<5) and (v>0) or (t<-24) and (v<10) and (v>4) or (t<-23) and (v>9)
            then write('Актированный день с 1 по 4')
            else write('Актированного дня нет');
end.
Ответить Ссылка Мне нравится0
Мне нравится0
20.12.2016 08:03:27
Валерия, странная проверка для целых чисел...
(v<1) and (v>-1)
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 13:01:45
изменения актировка
{Сысак9Б}
Program Aktirovka;
var
v:byte;
t:shortint;
begin
write('Введите температуру воздуха в градусах:');
readln(t);
write('Введите скорость ветра в м/с:');
readln(v);
if (t<-35) and (v=0) or (t<-33) and (v<5) and (v>0) or (t<-31) and (v<10) and (v>4) or (t<-30) and (v>9)
 then write('Актированный день с 1 по 11')
 else if (t<-31) and (v=0) or (t<-29) and (v<5) and (v>0) or (t<-27) and (v<10) and (v>4) or (t<-26) and (v>9)
      then write('Актированный день с 1 по 8')
      else  if (t<-28) and (v=0) or (t<-26) and (v<5) and (v>0) or (t<-24) and (v<10) and (v>4) or (t<-23) and (v>9)
            then write('Актированный день с 1 по 4')
            else write('Актированного дня нет');
end.
Ответить Ссылка Мне нравится0
Мне нравится0
20.12.2016 15:39:58
Валерия, работает правильно, но проверки всё таки странные...
Например...
if (t<-35) and (v=0)...
Такое ощущение, что при низких температурах только безветрие даёт актировку...
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 17:05:24
{Сысак9Б}
Program Aktirovka;
var
v:byte;
t:shortint;
begin
write('Введите температуру воздуха в градусах:');
readln(t);
write('Введите скорость ветра в м/с:');
readln(v);
if (t<-35) or (t<-33) and (v<5) and (v>0) or (t<-31) and (v<10) and (v>4) or (t<-30) and (v>9)
 then write('Актированный день с 1 по 11')
 else if (t<-31) or (t<-29) and (v<5) and (v>0) or (t<-27) and (v<10) and (v>4) or (t<-26) and (v>9)
      then write('Актированный день с 1 по 8')
      else  if (t<-28) or (t<-26) and (v<5) and (v>0) or (t<-24) and (v<10) and (v>4) or (t<-23) and (v>9)
            then write('Актированный день с 1 по 4')
            else write('Актированного дня нет');
end.
Ответить Родитель Ссылка Мне нравится0
Мне нравится0
20.12.2016 19:34:35
исправление
{Вастаев Олег 9Б}
Program actirovka;
{Программа работает строго по установленному температурному режиму}
var
v:byte;
t:integer;
begin
write('Введите температуру воздуха в градусах: ');
 readln(t);
 write('Введите скорость ветра в м/с: ');
 readln(v);
 {1-4}
if (v=0) and (t=-29) and (v>0) then write('Сегодня актированный день с 1 по 4 класс'); {без ветра -29˚}
if (v<=5) and (t=-27) and (v>0) then write('Сегодня актированный день с 1 по 4 класс'); {при скорости ветра до 5 м/сек -27˚}
if (v>=5) and (v<=10) and (v>0) and (t=-25) then write('Сегодня актированный день с 1 по 4 класс'); {при скорости ветра от 5 м/сек до 10 м/сек -25˚}
if (v>=10) and (t=-24) and (v>0) then write('Сегодня актированный день с 1 по 4 класс'); {при скорости ветра более 10 м/сек -24˚}
if (v<=10) and (t>-24) and (v>0) then write('Актированного дня - нет');
 {1-8}
if (v=0) and (t=-32) and (v>0) then write('Сегодня актированный день с 1 по 8 класс'); {без ветра -32˚}
if (v<=5) and (t=-30) and (v>0) then write('Сегодня актированный день с 1 по 8 класс'); {при скорости ветра до 5 м/сек -30˚}
if (v>=5) and (v<=10) and (v>0) and (t=-28) then write('Сегодня актированный день с 1 по 8 класс'); {при скорости ветра от 5 м/сек до 10 м/сек -28˚}
if (v>=10) and (t=-27) and (v>0) then write('Сегодня актированный день с 1 по 8 класс'); {при скорости ветра более 10 м/сек -27˚}
 {1-11}
if (v=0) and (t=-36) and (v>0) then write('Сегодня актированный день с 1 по 11 класс'); {без ветра -36˚}
if (v<=5) and (t=-34) and (v>0) then write('Сегодня актированный день с 1 по 11 класс'); {при скорости ветра до 5 м/сек -34˚}
if (v>=5) and (v<=10) and (v>0) and (t=-32) then write('Сегодня актированный день с 1 по 11 класс'); {при скорости ветра от 5 м/сек до 10 м/сек -32˚}
if (v>=10) and (t>=-31) and (v>0) then write('Сегодня актированный день с 1 по 11 класс'); {при скорости ветра более 10 м/сек -31˚}
if v<0 then write('Похоже вы что-то не так ввели(скорость ветра не может быть отрицательной!).')

end.
Ответить Ссылка Мне нравится0
Мне нравится0
21.12.2016 11:43:40
Дз
{Дмитриева 9Б}
program Pogoda;
var v:byte;
t: real;
begin
write ('Введите температуру воздуха в градусах: ');
readln(t);
write ('Введите скорость ветра в м/с: ');
readln(v);
if (t<=-36) then write ('Актированный день с 1 по 11 классы')
else if (t<=-34) and (v<5) and (v>0) then write ('Актированный день с 1 по 11 классы')
else if (t<=-32) and (v>=5) and (v<10) then write ('Актированный день с 1 по 11 классы')
else If (t<=-31) and (v>=10) then write ('Актированный день с 1 по 11 классы')
else if (t<=-32) then write ('Актированный день с 1 по 8 классы')
else if (t<=-30) and (v<5) and (v>0) then write ('Актированный день с 1 по 8 классы')
else if (t<=-28) and (v>=5) and (v<10) then write ('Актированный день с 1 по 8 классы')
else If (t<=-27) and (v>=10) then write ('Актированный день с 1 по 8 классы')
else if (t<=-29) then write ('Актированный день с 1 по 4 классы')
else if (t<=-27) and (v<5) and (v>0) then write ('Актированный день с 1 по 4 классы')
else if (t<=-25) and (v>=5) and (v<10) then write ('Актированный день с 1 по 4 классы')
else if (t<=-24) and (v>=10) then write ('Актированный день с 1 по 4 классы')
else write ('Беги в школу, дорогуша!');
end.
Ответить Ссылка Мне нравится0
Мне нравится0
21.12.2016 12:11:59
{АХТЯМОВА 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.
Ответить Ссылка Мне нравится0
Мне нравится0
21.12.2016 16:54:24
{Антонов9Б}
Program AktirovanniiDni;
var
v:byte;
t:real;
begin
write('Введите температуру воздуха в градусах:');
readln(t);
write('Введите скорость ветра в м/с:');
readln(v);
if (t<-35) and (v=0) or (t<-33) and (v<5) and (v>0) or (t<-31) and (v<10) and (v>4) or (t<-30) and (v>9)
then write('Сегодня актированный день с 1 по 11!')
else if (t<-31) and (v=0) or (t<-29) and (v<5) and (v>0) or (t<-27) and (v<10) and (v>4) or (t<-26) and (v>9)
then write('Сегодня актированный день с 1 по 8!')
else if (t<-28) and (v=0) or (t<-26) and (v<5) and (v>0) or (t<-24) and (v<10) and (v>4) or (t<-23) and (v>9)
then write('Сегодня актированный день с 1 по 4!')
else write('Нужно идти в школу');
end.
Ответить Ссылка Мне нравится0
Мне нравится0
21.12.2016 20:39:19
Дз
{Дмитриева 9Б}
program Pogoda;
var v:byte;
t: real;
begin
write ('Введите температуру воздуха в градусах: ');
readln(t);
write ('Введите скорость ветра в м/с: ');
readln(v);
if (t<=-36) then write ('Актированный день с 1 по 11 классы')
else if (t<=-34) and (v<5) and (v>0) then write ('Актированный день с 1 по 11 классы')
else if (t<=-32) and (v>=5) and (v<10) then write ('Актированный день с 1 по 11 классы')
else If (t<=-31) and (v>=10) then write ('Актированный день с 1 по 11 классы')
else if (t<=-32) then write ('Актированный день с 1 по 8 классы')
else if (t<=-30) and (v<5) and (v>0) then write ('Актированный день с 1 по 8 классы')
else if (t<=-28) and (v>=5) and (v<10) then write ('Актированный день с 1 по 8 классы')
else If (t<=-27) and (v>=10) then write ('Актированный день с 1 по 8 классы')
else if (t<=-29) then write ('Актированный день с 1 по 4 классы')
else if (t<=-27) and (v<5) and (v>0) then write ('Актированный день с 1 по 4 классы')
else if (t<=-25) and (v>=5) and (v<10) then write ('Актированный день с 1 по 4 классы')
else if (t<=-24) and (v>=10) then write ('Актированный день с 1 по 4 классы')
else write ('Беги в школу, дорогуша!');
end.
Ответить Ссылка Мне нравится0
Мне нравится0
22.12.2016 00:57:42
Доделанная работа
{Вастаев Олег 9Б}
Program actirovka;
{Программа работает по установленному температурному режиму 2016-2017 год}
var
v:byte;
t:shortint;
begin
write('Введите температуру воздуха в градусах: ');
 readln(t);

 {1-4}
  if t<=-24 then begin
write('Введите скорость ветра в м/с: ');
readln(v);
end;
if (v<5) and (t=-29) then write('Сегодня актированный день с 1 по 4 класс'); {без ветра -29˚}
if (v>=0) and (v<5) and (t=-28) then write('Сегодня актированный день с 1 по 4 класс');
if (v<10) and (t=-27) then write('Сегодня актированный день с 1 по 4 класс'); {при скорости ветра до 5 м/сек -27˚}
if (v>=5) and (v<=10) and (t=-26) then write('Сегодня актированный день с 1 по 4 класс');
if (v<5) and (t=-26) then write('Актированного дня - нет');
if (v>=5) and (v<=10) and (t=-25) then write('Сегодня актированный день с 1 по 4 класс'); {при скорости ветра от 5 м/сек до 10 м/сек -25˚}
if (v<5) and (t=-25) then write('Актированного дня - нет!');
if (v>=10) and (t=-24) then write('Сегодня актированный день с 1 по 4 класс'); {при скорости ветра более 10 м/сек -24˚}
if (v<10) and (t=-24) then write('Актированного дня - нет!');
if t>-24 then write('Актированного дня - нет!');
 {1-8}
if (v<5) and (t=-32) then write('Сегодня актированный день с 1 по 8 класс'); {без ветра -32˚}
if (v<10) and (t=-31) then write('Сегодня актированный день с 1 по 8 класс');
if (v<=20) and (t=-30) then write('Сегодня актированный день с 1 по 8 класс'); {при скорости ветра до 5 м/сек -30˚}
if (v>=5) and (v<=10) and (t=-29) then write('Сегодня актированный день с 1 по 8 класс');
if (v>=5) and (v<=10) and (v>0) and (t=-28) then write('Сегодня актированный день с 1 по 8 класс'); {при скорости ветра от 5 м/сек до 10 м/сек -28˚}
if (t=-27) and (v>=10) and (v>0) then write('Сегодня актированный день с 1 по 8 класс'); {при скорости ветра более 10 м/сек -27˚}
 {1-11}
if (v>=0) and (t<=-36) then write('Сегодня актированный день с 1 по 11 класс'); {без ветра -36˚}
if (v>=0) and (t=-35) then write('Сегодня актированный день с 1 по 11 класс');
if (v>=0) and (t=-34) then write('Сегодня актированный день с 1 по 11 класс'); {при скорости ветра до 5 м/сек -34˚}
if (v>=5) and (v<=10) and (t=-33) then write('Сегодня актированный день с 1 по 11 класс');
if (v<5) and (t=-33) then write('Сегодня актированный день с 1 по 8 класс');
if (v>=5) and (v<=10) and (t=-32) then write('Сегодня актированный день с 1 по 11 класс'); {при скорости ветра от 5 м/сек до 10 м/сек -32˚}
if (v>=10) and (t=-31) then write('Сегодня актированный день с 1 по 11 класс'); {при скорости ветра более 10 м/сек -31˚}


end.
Ответить Ссылка Мне нравится0
Мне нравится0
22.12.2016 13:35:52
дз на актировку
{АХТЯМОВА 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.
Ответить Ссылка Мне нравится0
Мне нравится0
23.12.2016 16:38:36
Актировка
.....................
Ответить Ссылка Мне нравится0
Мне нравится0
25.12.2016 20:27:30
Домашняя работа
{Соломаха София 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.
Ответить Ссылка Мне нравится0

....