6.Вывести на экран таблицу перевода температуры из градусов по шкале Цельсия (С) в градусы по шкале Фаренгейта (F) для значений от 0ОС до 30OС с шагом
10-11 класс
|
2ОС (перевод осуществляется по формуле F = 1,8∙C + 32). ( конструкція while)
На паскале
var
A,B:array [0..15] of real;
i:integer;
Begin
For i:=0 to 15 do
A[i]:=i*2;
For i:=0 to 15 do begin
B[i]:=1.8*A[i]+32;
Writeln(A[i],' градуса(ов)','=',B[i],' по Фаренгейту'); end;
end.
ВОТ ЕЩЕ ЧЕРЕЗ WHILE
var
A,B:array [0..15] of real;
i:integer;
Begin
For i:=0 to 15 do
A[i]:=i*2;
i:=0;
While i<=15 do begin
B[i]:=1.8*A[i]+32;
i:=i+1;
end;
For i:=0 to 15 do
Writeln(A[i],' градуса(ов)','=',B[i],'по Фаренгейту');
end.
var i:byte;
f:real;
begin
i:=0;
Writeln(' Градусы');
writeln('Цельсия Фаренгейта');
while i<=30 do begin
f:=1.8*i+32;
writeln(' ',i,' ',' ',f:0:2 );
i:=i+2;
end;
end.
без дурацкой лишней переменной=)
var i:byte;
begin
i:=0;
Writeln(' Градусы');
writeln('Цельсия Фаренгейта');
while i<=30 do begin
writeln(' ',i,' ',' ',1.8*i+32 );
i:=i+2;
end;
end.
во вложении прога,здесь пробелы убирают=(
Другие вопросы из категории
кВт/ч если потребление свыше 250, но не превышает 300 кВт/ч
-20 р. за кВт/ч, если потребление свыше 300 кВт/ч
Потребитель израсходовал n кВт/ч. Подсчитать плату. ПОМОГИТЕ ПОЖАЛУЙСТА!!!!
(для обозначения инверсии используется знак # перед переменной, например, #h означает h с инверсией, для обозначения логического сложения и умножения используются знаки + и *.
Читайте также
градусы по шкале Фаренгейта (F) для значений температуры от 0
0С до 400С с
шагом 5
0С. Формула перевода F=1,8С+32.
Паскаль.Циклы с условием
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
числа n.
№3
Вычислить значение факториала n!
№4
В диапазоне от 1 до n вывести все четные числа на экран.
№5
Найти количество чисел, которые делятся на 3 и 5, из диапазона от 1 до n.
2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.
экран с 20 по 50 в строку через пробел
2.для первыз десяти элементов найти среднее арифмитическое
3.вывести на экран только четные элементы с 1 по 10 элементы массива
4.найти сумму нечетныз значений с 20 по 50 элемент
5.найти количество элементов кратныз заданному числу,введёного с клавиатуры среди всез элементок линейного массива