Программа алгоритма циклической структуры
 

Здравствуйте!!, для каждого 0.16<=(меньше или равно)y<=1.6 с шагом дельта y=0.24 при всех 0.1 <=z<=0.5 вычислить s=(y*sqr(x)+z)*arcsinz, причемб если y<0.8, то дельта z =0.1, иначе дельта z=0.05
помогите пожайлуста!!! на ПАскалЕ!!!

Непонятно, откуда берется значение переменной x! Допустим, что оно вводится с клавиатуры, тогда алгоритм решения задачи следующий:

1) определяете переменные x,y,z,s вещественного типа
2) в теле программы запрашиваете ввод значения x с клавиатуры.
3) задаете начальное значение переменным y=0.16 и z=0.1
4) заводите цикл "пока" (While) с условием его выполнения пока y не превысит 1.6
5) заводите цикл "пока" с условием его выполнения, пока значение z не превысит 0.5
6) внутри вложенного цикла (п. 5) вычисляете значение переменной s, затем вводите условие на увеличение значения переменной z в зависимости от значения y (соответственно на 0.1 или на 0.05), выводите полученное значение s на экран
7)внутри внешнего цикла (п. 4) увеличиваете значение переменной y
8) после внешнего цикла пишите команду ожидания нажатия клавиши.

А уж программу, думаю, напишите сами, в реализации ничего особо сложного нет.

спс конечно... ты профессионал.. ( я и так знаю) но я не понимаю еще так .. можешь написать? да х вводится с клавиатуры!!!-) пожайлуста..я только начинаю писать программы:)

Если самостоятельно не начнете думать - никогда не научитесь!

Сходите сюда, скачайте среду, она руссифицированная, с русской справочной системой. А здесь неплохой учебник по Pascal с примерами.

если не получится ...я пришлю ошибку посмотрите ?

Текст программы сюда разместИте, если что-то в нем не так будет - исправим вместе.

program oops;
uses crt;
var x,y,z,s:real;
;k:integer;
begin
clrscr; //для использования нужно подключать библиотеку crt, что в данном случае неоправданно,
//дает увеличение размера файла
write('x=');
readln(x);
y:=0.16;
repeat
z:=0.1;
repeat
s:=(y*sqr(x)+z)*arctan(z);:=
writeln('x='); //перед writeln пишет 42 ошибка (ошибка в выражении что делать)?
k:=k+1;
if k mod 20=0 then
begin
write('Press Enter...');
readln
end;
if y<0.8 then z:=z+0.1 else z:=z+0.05;
until z>0.55;{
y:=y+0.24;
until y>1.84;
readln;
end.

Вы вообще откуда этот листинг выдрали? Ошибки и излишний код выделены красным!

сам написал... просто в некоторых местах у ошибку выдает и требует поставить : или ; хз сам почему так!

ну так что .. что с ней делать?