Помогите пожалуйста написать код для вывода вещественных чисел

Question

Помогите пожалуйста написать код для вывода вещественных чисел

Дима Алексеенко Ученик (194), открыт 5 часов назад

Не получается вывести вещественные числа

Answer 1

kaiu Высший разум (118726) 5 часов назад

Два раза подряд else без указания if
Пиши сам и нам тут код..чтобы мы чуть подправили, а не все набирали за тебя по картинке

Дима АлексеенкоУченик (194) 4 часа назад

я и не просил всё за меня писать,мне просто нужно что бы мне на ошибки указали

kaiu Высший разум (118726) Дима Алексеенко, ну указал одну, не смотря на другие, если помогло, то хорошо

Answer 2

 program CalculateValues; 
 
uses Math; 
 
var 
  a, b_input, t, c, b, q, r, z, p: real; 
 
begin 
  writeln('Введите значения a, b, t, c:'); 
  readln(a, b_input, t, c); 
 
  if c > 4 then 
    z := sqr(a) + sin(c) 
  else 
    z := 1 - abs(a * c); 
 
  q := 1.5 * z; 
 
  r := q + sin(38 * Pi / 180); 
 
  if a <= -2 then 
    p := 1 + sqr(q) 
  else 
    p := 1 + ln(abs(q) + 3); 
 
  b := q * r + exp(-sin(p * z)) - sqrt(abs(t)) + 4; 
 
  writeln('b = ', b:0:10); 
  writeln('q = ', q:0:10); 
  writeln('r = ', r:0:10); 
  writeln('z = ', z:0:10); 
  writeln('p = ', p:0:10); 
 
  readln; 
end.

Answer 3

Главная ошибка - скриншот текста задания, в котором перепутаны имена переменных. Судя по формулам, вводиться должно не a,b,t, а a,c,t. И раз налажали в одном месте, нет никаких гарантий, что не налажали в других местах.

Но если предположить, что в других местах ошибок нет, то код S.H.I., за исключением вводимых переменных в readln и бессмысленного readln в конце кода, вполне корректен.

 readln(a, c, t);