М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
koli17
koli17
16.03.2020 16:33 •  Информатика

Составить программу которая в зависимости от введенного значения температуры воздуха (от -50 до 50 градусов) выводит на экран сообщения типа: -50 - холодно, 50 жакро и т.д. на языке basic

👇
Ответ:
mustafaalbakov
mustafaalbakov
16.03.2020
QBasic

INPUT "Введите температуру: ", t
SELECT CASE t
CASE IS < -50
   PRINT "Крайне холодно"
CASE IS <= -30
   PRINT "очень холодно!"
CASE IS <= -10
   PRINT "холодно"
CASE IS <= 10
   PRINT "Прохладно"
CASE IS <= 25
   PRINT "Тепло"
CASE IS <= 30
   PRINT "жарко"
CASE IS <= 40
   PRINT "очень жарко!"
CASE ELSE
   PRINT "крайне жарко!"
END SELECT
4,6(1 оценок)
Ответ:
talyaarpaci
talyaarpaci
16.03.2020
INPUT t
IF t<=-10 THEN PRINT "ОЧЕНЬ ХОЛОДНО!"
IF t>-10 AND t<=5 THEN PRINT "ХОЛОДНО!"
IF t>5 AND t<=15 THEN PRINT "ПРОХЛАДНО"
IF t>15 AND t<=23 THEN PRINT "ТЕПЛО"
IF t>23 AND t<=30 THEN PRINT "ЖАРКО"
IF t>30 AND t<=40 THEN PRINT "ОЧЕНЬ ЖАРКО!"
IF t>40 AND t<=50 THEN PRINT "ПУСТЫНЯ!"
4,8(53 оценок)
Открыть все ответы
Ответ:
voxlemap
voxlemap
16.03.2020

text = "Программа! "  # Переменная text Содержит строку "Программа! "

print(text [0:10])  # Индексирование каждого символа строки. [:] - Это срез. [0:10] - Вывести 10 символов - Целая строка, но только без пробела в конце строки, тк заданная команда выводит все символы строки (Если было бы [0:11] - то пробел конечно же был бы включен)

print(text [0:4])  # Вывести символы от индекса 0 - Это символ П, до индекса 4 - Это символ Р. Результат: Прог

print(text [-2])  # Отрицательное значение, обычно применяется для того, чтобы взять что-либо с конца строки, списка и т.п..

print(text [::3])  # Вывести каждый символ с чередованием 3 символа. Так скажем... Перешагнуть 2 символа, и уже 3й распечатать

4,4(14 оценок)
Ответ:
Galinachlen
Galinachlen
16.03.2020
{Лови прогу для одномерного массива. Если он двумерный, могу модифицировать.
Должна работать, не работает - отпишись, отыщу паскаль и исправлю.
Кидай прям весь ответ, кэп. Комментарии подотри, опять же кэп}

program massiv;
var x:array[1..10] of real;
n, i:integer;
s:real;

begin
writeln('Vvedite razmer massiva');
readln(n);
if (n<1) or (n>10) then writeln('Neverno zadano znacheniye razmera massiva')
else begin {check: +}
for i:=1 to n do begin writeln('Vvedite element ', i, 'iz ', n); readln(x[i]); end; {enter the array}
s:=0;
for i:=1 to n do
begin
s:=s+power(x[i], 3);
end;
writeln(s:2:2);
end;
readln; {stop here to read the program answer}
end.
4,4(17 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ