Не получается составить программу

@Paylo · Регистрация: 28.10.2012

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

Добрый день!
Не получается составить программу, выдает ошибку и не понятно как ее исправить..помогите
Функции такие:
Y=(sqrt(x*a^1,2))/a^3;
Z=ctg(2,6*(x+a))
a=-5,1 x=4,78
Мой код:

Pascal
1
2
3
4
5
6
7
8
program prog1;
Begin
WRITE(*,*) 'введение a и x';
READ(*,*)a,x;
Y=(sqrt(x*a**2))/a**3;
Z=ctg(2,6*(x+a));
WRITE(*.*)'a=-5,1',a,'x=4,78',x,'Y=',Y,'Z=',Z;
END

Помогите пожалуйста исправить код, чтобы работало.

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

Pascal
1
2
3
4
5
6
7
8
9
program prog1;
VAR x,a,y,z:real;
Begin
Writeln('Введите переменные');
Readln(x;a);
y:=(sqrt(x*a**1,2))/a**3
z:=ctg(2,6(x+a))
writeln('z=';'y=';y);
End

Так тоже ошибку выкидывает...

@ZX Spectrum-128 · 04.02.2017, 13:26

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program prog1;
 
var
  a, x, y, z: real;
 
function ctg(x: real): real;
begin
  ctg := cos(x) / sin(x);
end;
 
begin
  a := -5.1;
  x := 4.78;
  Y := (sqrt(x * power(a, 1.2))) / power(a, 3);
  Z := ctg(2.6 * (x + a));
  WRITE('Y=', Y, ', Z=', Z);
end.

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных выбран регистр накопления, в. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip