Помогите, пожалуйста, горю - Страница 2

Vladimir_S · 02.12.2011, 14:48

И это называется "пара задач"? Ну-ну... Может быть, пару и решу на выходных. А вообще-то, друг, мой тебе совет: берись за ум, причем собственный. Всю жизнь на форумах не проездишь.
А что до Паскаля - нет, не в курсе. Сам пользуюсь DOS-версией (отсюда, кстати, и английский язык - чтобы с кодировками кириллицы не мучиться).

Vladimir_S · 02.12.2011, 20:51

Задание 8

Код:

VAR
 T,a,b,c:Real;
 i:Integer;
BEGIN
 a:=5;
 b:=6;
 c:=2;
 T:=a/(b+Ln(c));
 For i:=1 to 9 do
  begin
   a:=a+1;
   b:=b+3;
   c:=c+2;
   if (i mod 2)=0 then T:=T*a/(b+Ln(c)) else T:=T*a/(b-Ln(c));
  end;
 Writeln('T = ',T:0:7);
 Readln;
END.

Задание 9

Код:

VAR
 M,N,NOK:Word;
BEGIN
 Write('M= ');
 Readln(M);
 Write('N= ');
 Readln(N);
 If M<N then NOK:=N-1 else NOK:=M-1;
 Repeat
  NOK:=NOK+1;
 Until ((NOK mod M)=0) and ((NOK mod N)=0);
 Writeln('NOK = ',NOK);
 Readln;
END.

Остальное давай-ка самостоятельно. Хватит уже дурака валять.

02.12.2011, 20:51	#12 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Задание 8 Код: VAR T,a,b,c:Real; i:Integer; BEGIN a:=5; b:=6; c:=2; T:=a/(b+Ln(c)); For i:=1 to 9 do begin a:=a+1; b:=b+3; c:=c+2; if (i mod 2)=0 then T:=Ta/(b+Ln(c)) else T:=Ta/(b-Ln(c)); end; Writeln('T = ',T:0:7); Readln; END. Задание 9 Код: VAR M,N,NOK:Word; BEGIN Write('M= '); Readln(M); Write('N= '); Readln(N); If M<N then NOK:=N-1 else NOK:=M-1; Repeat NOK:=NOK+1; Until ((NOK mod M)=0) and ((NOK mod N)=0); Writeln('NOK = ',NOK); Readln; END. Остальное давай-ка самостоятельно. Хватит уже дурака валять.

02.12.2011, 14:48	#11 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	И это называется "пара задач"? Ну-ну... Может быть, пару и решу на выходных. А вообще-то, друг, мой тебе совет: берись за ум, причем собственный. Всю жизнь на форумах не проездишь. А что до Паскаля - нет, не в курсе. Сам пользуюсь DOS-версией (отсюда, кстати, и английский язык - чтобы с кодировками кириллицы не мучиться).

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