Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 11.05.2016, 15:31   #1 (permalink)
Vera101
Member
 
Регистрация: 11.05.2016
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Проверка. Паскаль

Добрый день. Необходима проверка и указания по исправлению. Спасибо.
Миниатюры
i2.png   i4.png   i1.png   i3.png  
Vera101 вне форума   Ответить с цитированием

Старый 11.05.2016, 15:31
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

По этим ссылкам содержится нужная вам информация

Проверка
Паскаль. Проверка системы уравнений на совместимость

Старый 11.05.2016, 15:45   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,304
Сказал(а) спасибо: 287
Поблагодарили 506 раз(а) в 164 сообщениях
Репутация: 91675
По умолчанию

Цитата:
Сообщение от Vera101 Посмотреть сообщение
Добрый день. Необходима проверка и указания по исправлению. Спасибо.
Добрый день, Вера. Готов Вам помочь, но при условии, что программы будут выложены в ТЕКСТОВОМ виде, а не рисунками. Или вручную их набивать для тестирования прикажете?
Сразу скажу - ошибки есть. Конкретнее после появления ТЕКСТОВЫХ листингов.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 11.05.2016, 19:48   #3 (permalink)
Vera101
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>
Vera101 вне форума   Ответить с цитированием
Старый 11.05.2016, 20:27   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,304
Сказал(а) спасибо: 287
Поблагодарили 506 раз(а) в 164 сообщениях
Репутация: 91675
По умолчанию

Так. Весело.
Вера, но ведь это программы от абсолютно других заданий! Я прошу совсем немногого: задание (можно картинкой) и набросок программы К НЕМУ (обязательно текстом). Или мои просьбы чрезмерны а потому невыполнимы?
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 11.05.2016, 20:30   #5 (permalink)
Vera101
Member
 
Регистрация: 11.05.2016
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Ничего веселого не вижу. Это и есть те задания, которые я сделала в программе.
Vera101 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 11.05.2016, 20:31   #6 (permalink)
Vera101
Member
 
Регистрация: 11.05.2016
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

И задания к ним были выше.
Vera101 вне форума   Ответить с цитированием
Старый 11.05.2016, 20:34   #7 (permalink)
Vera101
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.
Vera101 вне форума   Ответить с цитированием
Старый 11.05.2016, 20:39   #8 (permalink)
Vera101
Member
 
Регистрация: 11.05.2016
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Выше были скинуты задания. Текста к ним не было. И мои наброски к ним тоже.
Vera101 вне форума   Ответить с цитированием
Старый 11.05.2016, 20:43   #9 (permalink)
Vera101
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.

Когда записано много вариантов и ты сидишь до утра, то не удивительно вставить другое. Так что не вижу ничего веселого.
Vera101 вне форума   Ответить с цитированием
Старый 11.05.2016, 20:45   #10 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,304
Сказал(а) спасибо: 287
Поблагодарили 506 раз(а) в 164 сообщениях
Репутация: 91675
По умолчанию

Цитата:
Сообщение от Vera101 Посмотреть сообщение
Ничего веселого не вижу. Это и есть те задания, которые я сделала в программе.
Извините. Вероятно, у меня что-то со зрением. В первой программе я вижу решение уравнения
y = 1.5y-0.5xy³
методом простой итерации. Покажите пожалуйста, где что-либо подобное требуется в Ваших заданиях, показанных в первом посту темы?
Что касается второй программы, то её смысла я вообще постичь не могу. Извините.

Вера, всё, о чём я Вас просил, это выложить ТЕ ЖЕ ЛИСТИНГИ, которые Вы выложили в посте #1, только не в виде картинок, а ТЕКСТОМ. И всё. А Вы даёте какие-то совсем другие программы по неизвестно каким заданиям. Пожалуйста, если надо - разберемся и с ними, только тогда покажите сами задания.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 00:12.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.