Помогите с двумя программами

Deomurg · 11.01.2011, 20:10

Название: 7f13259f64e7t.jpg
Просмотров: 116

Размер: 3.5 Кб

помогите кто чем может... завтро отчитать надо... Писать в среде Free Pascal... заранее спасибо

Vladimir_S · 11.01.2011, 20:26

Цитата:

Сообщение от Deomurg

Вложение 140046

помогите кто чем может... завтро отчитать надо... Писать в среде Free Pascal... заранее спасибо

Ничего не выйдет: тег IMG у нас запрещен, а клик по Вашей ссылке раскрывает только маленькую неразборчивую копию без возможности увеличения. Так что Вам - сюда:
Как вставить картинки в свой пост

Deomurg · 11.01.2011, 20:37

вот... так можно?

Vladimir_S · 11.01.2011, 20:43

Цитата:

Сообщение от Deomurg

Вложение 140047

вот... так можно?

Можно. Но не нужно. Более того, крайне нежелательно. А можно и нужно вот так:

Deomurg · 11.01.2011, 20:44

program prog_8;
uses crt;
const p=3.14;
var y:array[1..11] of real;
b,j,u,o,i,n:integer;
m,sum:real;
begin
clrscr;
n:=0;
j:=0;
for i:=1991 to 2001 do
begin
inc(n);
y[n]:=100*(abs(cos(2*i)/(3*i-p))+2.54);
if y[n]<0 then
inc(j);
end;
writeln('god velichina dohoda');
n:=0;
for i:=1991 to 2001 do
begin
inc(n);
write(i,' ',y[n]:5:3);
writeln;
end;
if j<>0 then
begin
m:=y[1];
n:=0;
for i:=1991 to 2001 do
begin
inc(n);
if y[n]<0 then
sum:=sum+y[n];
if y[n]<m then
begin
m:=y[n];
b:=i;
end;
end;
writeln('summa ubitkov sostavlyet=',sum:5:3);
writeln('v ',b,' godu ubitki bili naimenshie');
end;
for i:=1 to n do
if y[i]>0 then
inc(u)
else inc(o);
if u=n then writeln('firma na ptotachenii 10 let ubitkov ne imela')
else if o=n then writeln('firma na protishenii 10 let pribili ne imela')
else writeln('firma na protichenii 10 let imela i ubitki i pribol');
readln;
end.

8-я вот у меня какая вышла, но она работает только на половину(((

Vladimir_S · 11.01.2011, 20:57

По поводу второй задачи.
Я уже имел счастие с ней встречаться здесь (№4):
Помогите, пожалуйста, с семестровой
И тогда, и сейчас повторю: формула построена так, что НИ ПРИ КАКИХ значениях параметров величина у НЕ МОЖЕТ БЫТЬ ОТРИЦАТЕЛЬНОЙ! Потому что складывается значение АБСОЛЮТНОЙ ВЕЛИЧИНЫ некоей функции (неважно какой) с ПОЛОЖИТЕЛЬНОЙ КОНСТАНТОЙ. Значит, в условии - брёх. Разбирайтесь с преподавателем.
По первой задаче - обязательна ли кириллица? Нельзя ли латиницей обойтись? Поясню: я пользуюсь исключительно DOS-версией Free Pascal, и отсюда проблемы с кодировкой кириллицы.

Deomurg · 11.01.2011, 21:04

кирилица не нужна.. достаточно и латиницы.
Вопрос, можно ли 2-ю задачу написать хоть как нибудь, я имею ввиду выполнить без отрицательных значений параметра дополнительную чать или хоть как нибудь преобразовать мой вариант задачи что бы эта часть работала?

Vladimir_S · 11.01.2011, 21:25

Цитата:

Сообщение от Deomurg

Вопрос, можно ли 2-ю задачу написать хоть как нибудь, я имею ввиду выполнить без отрицательных значений параметра дополнительную чать или хоть как нибудь преобразовать мой вариант задачи что бы эта часть работала?

Вы знаете, единственное, что могу предложить - это вот такой глупейший вариант. Потому что если убытков быть не может, то и дальнейший анализ становится бессмысленным:

Код:

program prog_8;
uses
 crt;
var
 y:array[1991..2001] of real;
 i:integer;
begin
 clrscr;
 writeln('god velichina dohoda');
 for i:=1991 to 2001 do
  begin
   y[i]:=100*(abs(cos(2*i)/(3*i-Pi))+2.54);
   writeln(i,' ',y[i]:5:3);
  end;
 readln;
END.

Кстати, обратите внимание: Вашу константу я выбросил за ненадобностью: Паскаль имеет "встроенную" константу (функцию) Pi, отдающую число Архимеда.

Deomurg · 11.01.2011, 21:30

допустим... а что с 7-й?

Vladimir_S · 11.01.2011, 21:50

Цитата:

Сообщение от Deomurg

допустим... а что с 7-й?

А вот что:

Код:

program prog_7;
VAR
 S:STRING;
 i,k,Na,Naf,p:Byte;
BEGIN
 Writeln('Enter Name, Patronymic and Surname, divided by single space,');
 Writeln('e.g. Ivan Petrovich Sidorov:');
 Writeln;
 ReadLn(S);
 Writeln;
 Na:=0;
 For i:=1 to Length(S) do
  if S[i]='a' then Inc(Na);
 Naf:=0;
 p:=0;
 k:=0;
 Repeat
  Inc(k);
  If (S[k]=' ') and (p=0) then p:=1;
 Until (S[k]=' ') and (p=1);
 For i:=k+1 to Length(S) do
  if S[i]='a' then Inc(Naf);
 Writeln('Text contains ',Na,' letters "a"');
 Writeln('Surname contains ',Naf,' letters "a"');
 ReadLn;
END.

11.01.2011, 20:10	#1 (permalink)
Deomurg Новичок Регистрация: 11.01.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите с двумя программами помогите кто чем может... завтро отчитать надо... Писать в среде Free Pascal... заранее спасибо

11.01.2011, 20:37	#3 (permalink)
Deomurg Новичок Регистрация: 11.01.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	вот... так можно?

11.01.2011, 20:44	#5 (permalink)
Deomurg Новичок Регистрация: 11.01.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	program prog_8; uses crt; const p=3.14; var y:array[1..11] of real; b,j,u,o,i,n:integer; m,sum:real; begin clrscr; n:=0; j:=0; for i:=1991 to 2001 do begin inc(n); y[n]:=100(abs(cos(2i)/(3*i-p))+2.54); if y[n]<0 then inc(j); end; writeln('god velichina dohoda'); n:=0; for i:=1991 to 2001 do begin inc(n); write(i,' ',y[n]:5:3); writeln; end; if j<>0 then begin m:=y[1]; n:=0; for i:=1991 to 2001 do begin inc(n); if y[n]<0 then sum:=sum+y[n]; if y[n]<m then begin m:=y[n]; b:=i; end; end; writeln('summa ubitkov sostavlyet=',sum:5:3); writeln('v ',b,' godu ubitki bili naimenshie'); end; for i:=1 to n do if y[i]>0 then inc(u) else inc(o); if u=n then writeln('firma na ptotachenii 10 let ubitkov ne imela') else if o=n then writeln('firma na protishenii 10 let pribili ne imela') else writeln('firma na protichenii 10 let imela i ubitki i pribol'); readln; end. 8-я вот у меня какая вышла, но она работает только на половину(((

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

11.01.2011, 20:57	#6 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	По поводу второй задачи. Я уже имел счастие с ней встречаться здесь (№4): Помогите, пожалуйста, с семестровой И тогда, и сейчас повторю: формула построена так, что НИ ПРИ КАКИХ значениях параметров величина у НЕ МОЖЕТ БЫТЬ ОТРИЦАТЕЛЬНОЙ! Потому что складывается значение АБСОЛЮТНОЙ ВЕЛИЧИНЫ некоей функции (неважно какой) с ПОЛОЖИТЕЛЬНОЙ КОНСТАНТОЙ. Значит, в условии - брёх. Разбирайтесь с преподавателем. По первой задаче - обязательна ли кириллица? Нельзя ли латиницей обойтись? Поясню: я пользуюсь исключительно DOS-версией Free Pascal, и отсюда проблемы с кодировкой кириллицы.

11.01.2011, 21:04	#7 (permalink)
Deomurg Новичок Регистрация: 11.01.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	кирилица не нужна.. достаточно и латиницы. Вопрос, можно ли 2-ю задачу написать хоть как нибудь, я имею ввиду выполнить без отрицательных значений параметра дополнительную чать или хоть как нибудь преобразовать мой вариант задачи что бы эта часть работала?

11.01.2011, 21:30	#9 (permalink)
Deomurg Новичок Регистрация: 11.01.2011 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	допустим... а что с 7-й?