11.05.2016, 15:31 | #1 (permalink) |
Member
Регистрация: 11.05.2016
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Проверка. Паскаль
|
11.05.2016, 15:31 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
По этим ссылкам содержится нужная вам информация Проверка Паскаль. Проверка системы уравнений на совместимость |
11.05.2016, 15:45 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Добрый день, Вера. Готов Вам помочь, но при условии, что программы будут выложены в ТЕКСТОВОМ виде, а не рисунками. Или вручную их набивать для тестирования прикажете?
Сразу скажу - ошибки есть. Конкретнее после появления ТЕКСТОВЫХ листингов. |
11.05.2016, 19:48 | #3 (permalink) |
Member
Регистрация: 11.05.2016
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
<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> |
11.05.2016, 20:27 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Так. Весело.
Вера, но ведь это программы от абсолютно других заданий! Я прошу совсем немногого: задание (можно картинкой) и набросок программы К НЕМУ (обязательно текстом). Или мои просьбы чрезмерны а потому невыполнимы? |
11.05.2016, 20:30 | #5 (permalink) |
Member
Регистрация: 11.05.2016
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ничего веселого не вижу. Это и есть те задания, которые я сделала в программе.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
11.05.2016, 20:34 | #7 (permalink) |
Member
Регистрация: 11.05.2016
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
А хотя да, одно не то.
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. |
11.05.2016, 20:43 | #9 (permalink) |
Member
Регистрация: 11.05.2016
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
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. Когда записано много вариантов и ты сидишь до утра, то не удивительно вставить другое. Так что не вижу ничего веселого. |
11.05.2016, 20:45 | #10 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
y = 1.5y-0.5xy³ методом простой итерации. Покажите пожалуйста, где что-либо подобное требуется в Ваших заданиях, показанных в первом посту темы? Что касается второй программы, то её смысла я вообще постичь не могу. Извините. Вера, всё, о чём я Вас просил, это выложить ТЕ ЖЕ ЛИСТИНГИ, которые Вы выложили в посте #1, только не в виде картинок, а ТЕКСТОМ. И всё. А Вы даёте какие-то совсем другие программы по неизвестно каким заданиям. Пожалуйста, если надо - разберемся и с ними, только тогда покажите сами задания. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|