|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
11.06.2011, 22:43 | #1 (permalink) | ||
Новичок
Регистрация: 26.05.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать программу и блок схему в Паскале
|
||
11.06.2011, 22:43 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Люди посещающие форум уже создавали что то подобное Написать программу в Паскале Помогите написать программу в Паскале |
12.06.2011, 08:59 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Несколько слов о выборе диапазонов, шагов и т.п. 1. Функция Z - четная по обоим аргументам, а потому достаточно ограничиться неотрицательными значениями. 2. Чтобы подкоренное выражение в числителе не оказалось отрицательным, значения х<1 исключаются. 3. Ну и чтобы поместилось в экран. Результат представлен в виде матрицы, строки которой соответствуют х, а столбцы - у. Код:
Const a=1.0; b=3.0; c=0.0; d=1.8; hx=0.1; hy=0.2; VAR Nx,Ny,i,j:Integer; x,y:Real; Function Z(Xz,Yz:Real):Real; begin Z:=SQRT(SQR(Xz)-1)/(Abs(Sin(Xz))+Abs(Cos(Yz))); end; BEGIN Nx:=Round((b-a)/hx); Ny:=Round((d-c)/hy); Write(' '); For j:=0 to Ny do Write(' y=',c+hy*j:3:1); Writeln; For i:=0 to Nx do begin x:=a+hx*i; Write('x=',x:3:1); For j:=0 to Ny do begin y:=c+hy*j; write(Z(x,y):7:3); end; Writeln; end; Readln END. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|