проверка задачи Опции

[dasha885]

1 раз работаю в Паскале.
Есть и где тут ошибки?И как запустить программу( у меня не выходит)

program My_Homework1;
uses crt;
var
x,a,c:extended;
b:integer;
chislitel,znam,R:extended;
begin
clrscr
WRITE('введте->>');
Readln(x);
a:=7.3;
b:=34;
c:=54.32;
chislitel:=2*d-sgr(cos)x;
znam:=ABS(sin(7+c)\cos(7+c))-a;
R:=chislitel\znam;
WRITE:('R='R);
readkey;
end

[Better Kind]

1 раз работаю в Паскале.
Есть и где тут ошибки?

Ага.

Код

clrscr[b];[/b]
.....
chislitel:=2*[b]b-sqr(cos(x));[/b]
znam:=ABS(sin(7+c)[b]/[/b]cos(7+c))-a;
R:=chislitel[b]/[/b]znam;
WRITE('R='[b],[/b]R);

на последнем енде поставь точку END.

Alt+F5 - экран пользователя (можно видеть результат работы программы)
F9 - Make (компилирует связи) программы
Alt+F9 - Компиляция
Ctrl+F9 - Запуск программы.

Сообщение отредактировано: Better Kind - 30.10.2007 23:27