Проверка. Паскаль
Вложений: 4
Добрый день. Необходима проверка и указания по исправлению. Спасибо.
|
Цитата:
Сразу скажу - ошибки есть. Конкретнее после появления ТЕКСТОВЫХ листингов. |
<code>program Project4;
{$APPTYPE CONSOLE} uses SysUtils, Math; procedure F(x,e:real); var y0,y1:real; begin y0:=1; y1:=1.5*y0-0.5*x*sqr(y0)*y0; while Abs (y0-y1)>e do begin y0:=y1; y1:=1.5*y0-0.5*x*sqr(y0)*y0; end; writeln('y=',y1:0:5); write('1/sqrt(x)=', 1/sqrt(x):0:5); end; var x,e:real; begin e:=0.00001; x:=2; F(x,e); Readln; { TODO -oUser -cConsole Main : Insert code here } end. </code> Ошибки логические. <code> program Project3; {$APPTYPE CONSOLE} uses SysUtils; var x,a,y,b,h,p:Real; i,n:Integer; function f1(x:Real):Real; var yy:Real; begin yy:=(sqr(sqr(x)))+sqr(x)*x-10*sqr(x)-34*x-25; f1:=yy; end; begin a:=-2; b:=0; h:=0.1; writeln ('a= ',a:4:0); writeln ('b= ',b:4:0); writeln ('h= ',h:4:1); n:=Round((b-a)/h); writeln ('n= ',n:4); p:=1; x:=a; y:=f1(x); writeln ('x= ',x:4:0); writeln ('y= ',y:4:0); writeln ('proizvedenie y>0 ravno',p:5:2); if y>0 then p:=p*y; for i:=1 to n do begin x:=x+h; y:=f1(x); writeln ('x= ',x:4:2); writeln ('y= ',y:4:2); Readln; if y>0 then p:=p*y; writeln ('proizvedenie y>0 ravno ',p:5:2); end; writeln ('proizvedenie y>0 ravno ',p:5:2); readln; end. </code> |
Так. Весело.
Вера, но ведь это программы от абсолютно других заданий! Я прошу совсем немногого: задание (можно картинкой) и набросок программы К НЕМУ (обязательно текстом). Или мои просьбы чрезмерны а потому невыполнимы? |
Ничего веселого не вижу. Это и есть те задания, которые я сделала в программе.
|
И задания к ним были выше.
|
А хотя да, одно не то.
program Project2; {$APPTYPE CONSOLE} uses SysUtils; var x,a,y,c,d:Real; function max2 (x1,x2:Real):Real; var max:Real; begin max:=x1; if max>x2 then max:=x2; max2:=max; end; function min3 (x1,x2,x3:Real):Real; var min:Real; begin min:=x1; if min<x2 then min:=x2; if min<x3 then min:=x3; min3:=min; end; begin Writeln ('vvod x,y,c,d'); Readln (x,y,c,d); if(x*y>3) then a:=((x*x*x)+ln(exp((c*d)*ln(x*y)))/ln(10)) else if ((x*y>2)and (x*y<3)) then a:=min3(x,y,max2(c*x,d*y)) else a:=((exp((c*d)*ln(2)))- x); Writeln ('a=', a:3:2); Readln; end. |
Выше были скинуты задания. Текста к ним не было. И мои наброски к ним тоже.
|
var x,e,n,x2,A:real;
begin e:=0.001; x:=0.4; X2:=x*x; A:=x; N:=2; Readln (A); While (A>e) do begin A:=A*x2/(N*(N+1)); N:=N+2; writeln('(a)=', a:0:5); Readln (A); end; end. Когда записано много вариантов и ты сидишь до утра, то не удивительно вставить другое. Так что не вижу ничего веселого. |
Цитата:
y = 1.5y-0.5xy³ методом простой итерации. Покажите пожалуйста, где что-либо подобное требуется в Ваших заданиях, показанных в первом посту темы? Что касается второй программы, то её смысла я вообще постичь не могу. Извините. Вера, всё, о чём я Вас просил, это выложить ТЕ ЖЕ ЛИСТИНГИ, которые Вы выложили в посте #1, только не в виде картинок, а ТЕКСТОМ. И всё. А Вы даёте какие-то совсем другие программы по неизвестно каким заданиям. Пожалуйста, если надо - разберемся и с ними, только тогда покажите сами задания. |
Часовой пояс GMT +4, время: 01:11. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.