Напишите Паскаль-программу для вычисления z=12x2+t3 при всех значениях x=7,5;8,5;9,5; иt=-1;-0,5;0; 0,5;1.
10-11 класс
|
var
z, x, t: real;
begin
x := 7.5;
repeat
t := -1;
repeat
z := 12 * x * x + t * t * t;
writeln(z:10:3, ' ', x:6:1, ' ', t:6:1);
t := t + 0.5;
until t > 1;
x := x + 1;
until x > 9.5;
end.
Другие вопросы из категории
1).составте программу которая удаляет первое слово текста
2)составте программу которая вставляет одно слово в текст после первого пробела
Определить без компьютера, что будет напечатано при выполнении следующих фрагментов программ:
1. k:=20; k:=k+10; if k+10<>30 then k:=8 else k:=k-1; WriteLn (k)
Ответ:
2. k:=20; k:=k+10; if k+10 = 30 then k:=8 else k:=k-1; WriteLn (k)
Ответ:
3. p:=1; if p>0 then p:=p+5; Write (p); if p>10 then p:=p+1; Write (p)
Ответ:
4. p:=5; if p>0 then p:=p*2 else p:=12; if p>5 then p:=p-1 else p:=p+1; WriteLn(p);
Ответ:
5. p:=0;p:=p+1; if p=0 then p:=5 else p:=p-1; WriteLn(p);
Ответ:
6*. p:=5;p:=p*2; if p mod 2=0 then WriteLn(p) else WriteLn(0);
Ответ:
веселились 1426 мух. Петр Петрович открыл форточку и, размахивая
полотенцем, выгнал из комнаты 226 мух. Но, прежде чем он успел
закрыть форточку, 214 мух вернулись обратно. Сколько мух теперь
веселится в комнате?
Читайте также
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
X - Y и вывода значения величины Z. Протестировать программу для X=5.5, X=0, X=-10.2
2) составить программу для вычисления периметра треугольника.