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


Ответ
 
Опции темы Опции просмотра
Старый 03.06.2012, 14:21   #1 (permalink)
levsha1993
Новичок
 
Регистрация: 03.06.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Работа в Паскале

С клавиатуры вводится натуральное число n. Вычислить:


Миниатюры
16042012823.jpg  
levsha1993 вне форума   Ответить с цитированием

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

Просмотрите содержимое этих ссылок, может быть что то найдете

Моя вторая работа
Моя первая работа

Старый 03.06.2012, 16:49   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 25,205
Сказал(а) спасибо: 235
Поблагодарили 449 раз(а) в 142 сообщениях
Репутация: 79088
По умолчанию

Цитата:
Сообщение от levsha1993 Посмотреть сообщение
С клавиатуры вводится натуральное число n. Вычислить:
Что, совсем лень проклятущая детинушку загрызла - с такими детскими задачками вылезать на форумы приходится? Ах она, негодная... Ну да ладно, побалуем ее, любимую:
Код:
Var
 n,k:Byte;
 Sum:Real;
Begin
 Repeat
  Write('Enter n ("0" to quit): ');
  Readln(n);
  If n>0 then
   begin
    Sum:=0;
    For k:=1 to n do
     Sum:=Sum+Exp((k+1/k)*Ln((k+1)/Sqrt(2*k-1)));
    Writeln('Sum = ',Sum:0:8);
   end;
 Until n=0;
End.
Код:
Const
 N0=20;
Type
 Vector=Array[1..N0] of Byte;
Var
 n,i,j,Imin,Imax,Min,Max:Byte;
 M:Array[1..N0] of Vector;
 V:Vector;
 f:Text;
Begin
 Min:=200;
 Max:=0;
 Assign(f,'Matr.txt');
 Rewrite(f);
 Writeln(f,'Initial matrix:');
 Write('n (<',N0,')= ');
 Readln(n);
 Randomize;
 For i:=1 to n do
  begin
   For j:=1 to n do
    begin
     M[i][j]:=Random(100);
     Write(f,M[i][j]:4);
     If M[i][j]<Min then
      begin
       Min:=M[i][j];
       Imin:=i;
      end;
     If M[i][j]>Max then
      begin
       Max:=M[i][j];
       Imax:=i;
      end;
    end;
   Writeln(f);
  end;
 Writeln(f);
 Writeln(f,'Minimal element equal to ',Min,' is in line N',Imin);
 Writeln(f,'Maximal element equal to ',Max,' is in line N',Imax);
 Writeln(f);
 Writeln(f,'Changed matrix:');
 V:=M[Imin];
 M[Imin]:=M[Imax];
 M[Imax]:=V;
 For i:=1 to n do
  begin
   For j:=1 to n do
    Write(f,M[i][j]:4);
   Writeln(f);
  end;
 Close(f);
End.
__________________
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, время: 14:50.

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