Расчет переменной по заданному условию

@LdDl · Регистрация: 01.02.2010

Студворк — интернет-сервис помощи студентам

Вводится любое кол-во вариантов наборов H (0<=H<26000).
Рассчитать Т.
T=216.6+0.0065*H (если 0<=H<11000)
T=216.6 (если 11000<=H<20000)
T=387+ 0.045*H (если 20000<=H<26000)

@andrei63 · 01.02.2010, 15:45

Pascal
1
2
3
4
5
6
7
8
9
var h:integer;
t:real;
begin
readln(h);
if (h>0) and (h<11000)THEN T:=216.6+0.0065*h;
IF (h>11000) AND (h<20000) then T:=216.6
else T:=387+ 0.045*h;
write(t);
end.

@nikkka · 01.02.2010, 16:41

Pascal
1
2
3
4
5
6
7
8
9
var h:integer;
t:real;
begin
readln(h);
if (h>0) and (h<11000)THEN T:=216.6+0.0065*h;
IF (h>11000) AND (h<20000) then T:=216.6
else T:=387+ 0.045*h;
write(t);
end.

Я бы и переменной h присвоил тип real.

@LdDl · 01.02.2010, 19:18 **[ТС]**

Ммм. А как быть с этим.

Сообщение от LdDl

Вводится любое кол-во вариантов наборов H

По идее метку надо делать.
И как её правильно запихнуть?)

@Puporev · 01.02.2010, 19:31

Сообщение от LdDl

По идее метку надо делать.

Что вас все на метки эти тянет. Пишите

Pascal
1
2
3
repeat
.............
until условие выхода

@кот Бегемот · 01.02.2010, 19:36

исправил

@Puporev · 01.02.2010, 19:36

alexevt, Он имеет ввиду, что по условию нужно вводить исходные данные не 1 раз, а пока не надоест.

@кот Бегемот · 01.02.2010, 19:40

Не по теме:

а куда прога делась?

Добавлено через 1 минуту

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var h:longint;
t:real;
begin
repeat
readln(h);
if (h>0) and (h<11000)THEN T:=216.6+0.0065*h else
IF (h>11000) AND (h<20000) then T:=216.6
else T:=387+ 0.045*h;
writeln('t=',t);
until h<=0;
readln;
end.

@LdDl · 01.02.2010, 22:33 **[ТС]**

Сообщение от Puporev

alexevt, Он имеет ввиду, что по условию нужно вводить исходные данные не 1 раз, а пока не надоест.

Ну, не пока не надоест, а заданное кол-во раз)

@Puporev · 01.02.2010, 22:37

Ну, не пока не надоест, а заданное кол-во раз)

Совсем плохой, что-ли, ну замени цикл repeat на for..do
Введи типа

Pascal
1
2
3
4
5
6
writeln('Сколько раз дурака валять?');
readln(k);
for i:=1 to k do
 begin
  твоя программа
 end;

@кот Бегемот · 01.02.2010, 22:37

ну, тогда так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var h:longint;
n:integer;
t:real;
begin
writeln('skolko povtorov?')
readln(n);
for i:=1 to n do
begin
readln(h);
if (h>0) and (h<11000)THEN T:=216.6+0.0065*h else
IF (h>11000) AND (h<20000) then T:=216.6
else T:=387+ 0.045*h;
writeln('t=',t);
end;
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@LdDl 0 / 0 / 0 Регистрация: 01.02.2010 Сообщений: 13

	Расчет переменной по заданному условию 01.02.2010, 15:03. Показов 904. Ответов 10 Метки нет (Все метки) Вводится любое кол-во вариантов наборов H (0<=H<26000). Рассчитать Т. T=216.6+0.0065H (если 0<=H<11000) T=216.6 (если 11000<=H<20000) T=387+ 0.045H (если 20000<=H<26000) 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	01.02.2010, 19:36
	исправил 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	01.02.2010, 19:36
	alexevt, Он имеет ввиду, что по условию нужно вводить исходные данные не 1 раз, а пока не надоест. 0