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

Упражнение 1:

Номер 1

Укажите верные варианты записи условного оператора.

Ответ:

(1) if .NOT.status s=s+1

(2) if (x<2) s=s+10

(3) if (x>0) then min=34 else min=k**5 end if

(4) if (x>0) then a=s*x

(5) if (x<0.AND.y<0) s=s+10

Номер 2

Укажите верные варианты записи условного оператора.

Ответ:

(1) if (.NOT.error s=s+2)

(2) if (x=2) s=s+10

(3) if (x>0) then min=34-k else min=k**5 end if

(4) if (x>-5) v=w*sin(x)

(5) if x<3.AND.y>8 exit

Номер 3

Укажите верные варианты записи условного оператора.

Ответ:

(1) if (error\=-1) exit

(2) if (x<0) cycle

(3) if (a>b) elseif (b>0) q=8

(4) if (c==4) do k=1,10 S=(S+X)*C end do

(5) if (Q=='F') stop

Номер 4

Укажите верные варианты записи условного оператора.

Ответ:

(1) if (i/=k) exit

(2) if (x=0) cycle

(3) if (a>b) then do k=1,100 S=S-k*k end do end if

(4) if (C==4) S=(S+X)*C

(5) if ('%'==key) stop

Номер 5

Укажите верные варианты записи условного оператора.

Ответ:

(1) if (k<0) k>0

(2) if (param=0) stop

(3) if (a>b) then do k=1,100 S=S-k*k end do else stop end if

(4) if (C=='file') exit

(5) if (koef<1.35d0) stop

Упражнение 2:

Номер 1

Вычислите значение выражения , . В ответ ввести целую часть результата

Ответ:

(1) 0

(2) 1208925819614629174706136

(3) 15678895819614629174706136

(4) 1208925819637758564706136

(5) 208925819614629174706

(6) 10

Номер 2

Вычислите значение выражения с N корнями: math

. Значение

N - 25

. Ответ - целая часть результата

Ответ:

(1) 149823958309486058757057854

(2) 349083498694587958795795874

(3) 12932322050339083491305643

(4) 12932321483933802587296693

(5) 1605565867

Номер 3

Вычислите значение выражения  при . Ответ - целая часть результата.

Ответ:

(1) 298359028359023859832095395

(2) 52667262546587964278272897

(3) 52667264001074725142726472

(4) 52667264001074725142217911

Номер 4

Найти сумму ряда при N=20 . Ответ - целая часть результата.

Ответ:

(1) 538989069702701719906

(2) 538989058900888101405

(3) 538989114761352500261

(4) 3904763894763487638468

Номер 5

Дано натуральное , действительное значение . Вычислить .

Ответ:

(1) 67967967976967976

(2) 34634634634646346

(3) 45745745845845845

(4) 48804956953

Упражнение 3:

Номер 1

Вычислите значение комплексного выражения,. В ответ введите целое значение мнимой части результата.

Ответ:

(1) 4749308720784053553265176

(2) -4749308720784053553265176

(3) 4574578456856980783235335

(4) 34234235346346463463463463

Номер 2

Дано , вычислить . В ответ ввести целое значение вещественной части результата.

Ответ:

(1) 1657

(2) -1543

(3) 758

(4) -9435

Номер 3

Дано, вычислить .В ответ ввести целое значение мнимой части результата.

Ответ:

(1) -5

(2) -2893472983579283

(3) -10

(4) 10

Номер 4

Дано	, вычислить .В ответ ввести целое значение мнимой части результата.

Ответ:

(1) 238942

(2) 52696

(3) -39451

(4) -52700

Номер 5

Дано  , вычислить .В ответ ввести целое значение вещественной части результата.

Ответ:

(1) 238942

(2) 52696

(3) -39451

(4) -52700

Упражнение 4:

Номер 1

Вычислите выражение  x=1,243. 
В ответ введите целую часть результата.

Ответ:

(1) 235235

(2) 25

(3) 457457845

(4) 96142

Номер 2

Вычислите выражение , x=1,13625582. В ответ введите целую часть результата.

Ответ:

(1) 2131901825871

(2) 346346457457

(3) 4578568679

(4) 375686967078078078

Номер 3

Вычислите выражение , x= 1,83478346. В ответ введите целую часть результата.

Ответ:

(1) 3466346234

(2) 3634745745

(3) 5667967967

(4) 3254694577

Номер 4

Вычислите выражение , x=2. В ответ введите целую часть результата.

Ответ:

(1) 23634634

(2) 14495040

(3) 76897689780

(4) 5745745

Номер 5

Вычислите выражение ,x=3. В ответ введите целую часть результата.

Ответ:

(1) 4568569670780789-89-78

(2) 615611668902827781184000

(3) 679780780780768078

(4) 346346363

Упражнение 5:

Номер 1

Какой из приведенных циклов вычисляет выражение .

Ответ:

(1) s=0.0 do k=1,n s=s+x**k/k end do

(2) s=1.0; pr=1.0 do k=2,n s=s+x**k/pr pr=pr*k end do

(3) s=1.0; pr=1.0 do k=2,n pr=x/k s=s+pr*x/k end do

(4) s=1.0; pr=1.0 do k=1,n pr=pr*x/k s=s+pr end do

(5) s=x; pr=1.0 do k=2,n pr=pr*x/k s=s+pr end do

Номер 2

Какой из приведенных циклов вычисляет выражение .

Ответ:

(1) slag=1.0 sinx=0.0 zn=1 do k=1,11 slag=slag*x/k if (mod(k,2)==0) continue sinx=sinx+zn*slag zn=-zn end do

(2) slag=1.0 sinx=0.0 zn=1 do k=1,11,2 slag=x/k*slag*(-1)**k sinx=sinx+zn*slag end do

(3) slag=1.0 sinx=0.0 do k=1,11,2 slag=slag*x/k slag=slag*x/(k+1) sinx=sinx+slag*(-1)**k end do

(4) slag=1.0 sinx=0.0 zn=1 do k=1,11,2 slag=slag*x/k zn=zn+1 sinx=sinx+slag*(-1)**zn slag=slag*x/(k+1) end do

(5) slag=1.0 sinx=0.0 zn=-1 do k=1,11 zn=-zn slag=x*slag/k if (mod(k,2)==0) continue sinx=sinx+zn*slag end do

Номер 3

Какой из приведенных циклов вычисляет выражение .

Ответ:

(1) slag=1.0 zn=-1 cosx=1.0 do k=2,12 zn=-zn slag=slag*x/k if (mod(k,2)==0) cycle cosx=cosx+zn*slag end do

(2) slag=x zn=1 cosx=1.0 do k=2,12 slag=slag*x/k if (mod(k,2)==1) cycle zn=-zn cosx=cosx+zn*slag end do

(3) slag=x zn=0 cosx=1.0 do k=2,12,2 slag=slag*x/k slag=slag*x/(k+1) zn=zn+1 cosx=cosx+(-1)**zn*slag end do

(4) slag=x zn=-1 cosx=1.0 do k=2,12,2 slag=slag*x/(k+1) slag=slag*x/k zn=zn+1 cosx=cosx+(-1)**zn*slag end do

(5) slag=x zn=-1 cosx=1.0 do k=1,12 slag=slag*x/k if (mod(k,2)==1) cycle zn=zn+1 cosx=cosx+(-1)**zn*slag end do

Номер 4

Какой из приведенных циклов вычисляет выражение .

Ответ:

(1) lnx=0.0 do k=1,12 lnx=lnx+(-1)**k*x/k end do

(2) lnx=0.0 do k=1,12 lnx=lnx+(-x)**k/k end do

(3) lnx=0.0 do k=1,12 lnx=lnx-(-x)**k/k+1 end do

(4) lnx=0.0 do k=0,12 lnx=lnx+x**(k+1)/(k+1) end do

(5) lnx=0.0 do k=1,12 lnx=lnx+x**k*(-1)**(k+1)/k end do

Номер 5

Какой из приведенных циклов вычисляет выражение .

Ответ:

(1) sum=1/a do k=1,12 sum=sum+(-1)**k*x/a**(k+1) end do

(2) sum=1/a do k=1,12 sum=sum+(-1)**k*x**k/a**(k+1) end do

(3) sum=1/a do k=1,12 sum=sum+(-1)**k*x/a**k+1 end do

(4) sum=1/a do k=1,12 sum=sum+(-1)**k*(x/a)**k+1 end do

(5) sum=1/a do k=1,12 sum=sum+(-1)**k*(x/a)**(k+1) end do

Упражнение 6:

Номер 1

Функция  протабулирована на отрезке от  до  с шагом . Сколько значений функции попадет в область  и ?

Ответ:

(1) 103

(2) 52

(3) 204

(4) 1024

Номер 2

Функция  протабулирована на отрезке от  до  с шагом . Сколько значений функции попадет в область  и ?

Ответ:

(1) 31

(2) 40

(3) 26

(4) 95

Номер 3

Функция  протабулирована на отрезке от  до  с шагом . Сколько значений функции попадет в область  и ?

Ответ:

(1) 55

(2) 103

(3) 515

(4) 314

Номер 4

Функция  протабулирована на отрезке от  до  с шагом . Сколько значений функции не попадет в область  и ?

Ответ:

(1) 55

(2) 103

(3) 628

(4) 458

Номер 5

Функция  протабулирована на отрезке от  до  с шагом . Сколько значений функции не попадет в область  и ?

Ответ:

(1) 55

(2) 103

(3) 250

(4) 1201

Упражнение 7:

Номер 1

Сколько потребуется просуммировать членов ряда , чтобы очередное слагаемое стало меньше 0.00001?

Ответ:

(1) 56

(2) 125

(3) 247

(4) 354

Номер 2

Сколько потребуется просуммировать членов ряда , чтобы очередное слагаемое стало меньше 0.0003
?

Ответ:

(1) 54

(2) 125

(3) 247

(4) 354

Номер 3

Сколько потребуется просуммировать членов ряда , чтобы очередное слагаемое стало больше 10
?

Ответ:

(1) 76

(2) 125

(3) 512

(4) 1020

Номер 4

Сколько потребуется просуммировать членов ряда , чтобы очередное слагаемое стало больше 1000
?

Ответ:

(1) 76

(2) 125

(3) 512

(4) 1017

Номер 5

Сколько потребуется просуммировать членов ряда , чтобы очередное слагаемое стало больше 2000
?

Ответ:

(1) 900

(2) 1024

(3) 2008

(4) 4080

Упражнение 8:

Номер 1

Сколько раз переменная k увеличится на 2? k = 1
  do 
    select case (k)
      case (1,3,4,7)
	    k=k+1
	  case (2,5,6,8,12:20)
	    k=k+2
	  case (9)
	    k=k-2
      case (10)
	    k=k+5
       case (21)
	     exit
	end select
  end do

Ответ:

(1) 6

(2) 11

(3) 4

(4) 5

Номер 2

Сколько раз переменная k увеличится на 2? k = 1
  do 
    select case (k)
	  case (5:16,18:19)
	    k=k+2
      case (1:4)
	    k=k+1
       case (20)
	     exit
	  case (17)
	    k=k-7
	end select
  end do

Ответ:

(1) 6

(2) 11

(3) 4

(4) 5

Номер 3

Сколько раз переменная k увеличится на 3? k = 2
  do 
    select case (k)
	  case (0,4,8,12,20)
	    k=k+1
      case (2,6,10,14,18)
 	    k=k+2
	  case (1,3,5,7,9,11,13,15,17,19)
	    k=k+3
	  case (16)
	    k=k-1
	  case (21:) 
	    exit
	end select
  end do

Ответ:

(1) 6

(2) 11

(3) 4

(4) 5

Номер 4

Сколько раз переменная k увеличится на 1?   k = 1
  do 
    select case (k)
	  case (1,2,6,8,9,12,14)
	    k=k+1
      case (3,4,7,11,13,15)
 	    k=k+2
	  case (5)
	    k=k-1
	  case (10)
	    k=k+4
	  case (16:) 
	    exit
	end select
  end do

Ответ:

(1) 6

(2) 11

(3) 4

(4) 5

Номер 5

Сколько раз переменная k увеличится на 3? k = 3
  do 
    select case (k)
	  case (3,7,9,12,18)
	    k=k+1
      case (5,8,10,13,15)
 	    k=k+2
	  case (11)
	    k=k-4
	  case (4,6,14,16,17)
	    k=k+3
	  case (19:) 
	    exit
	end select
  end do

Ответ:

(1) 2

(2) 11

(3) 4

(4) 5

Упражнение 9:

Номер 1

Для генерации последовательности псевдослучайных целых чисел в диапазоне  используется запись:

Ответ:

(1) call random(x); R=int(x*13)-4

(2) call random(x); R=x*12-4

(3) call random(x); R=-4+x*10

(4) call random(x); R=4-x*12

(5) call random(x); R=(x-4)*10

Номер 2

Для генерации последовательности псевдослучайных целых чисел в диапазоне  используется запись:

Ответ:

(1) call random(x); R=int(4*x)-4

(2) call random(x); R=3-int(x*4)

(3) call random(x); R=4-int(x*2)

(4) call random(x); R=-4+int(x*7)

(5) call random(x); R=int(x*4)

(6) call random(x); R=-int(4*x)

Номер 3

Для генерации последовательности псевдослучайных целых чисел в диапазоне  используется запись:

Ответ:

(1) call random(x); R=int(x*20)-7

(2) call random(x); R=-int(x*19)+8

(3) call random(x); R=int(x*14)-8

(4) call random(x); R=-7+int(x*13)

(5) call random(x); R=int(-21*x)+8

Номер 4

Для генерации последовательности псевдослучайных целых чисел в диапазоне  используется запись:

Ответ:

(1) call random(x); R=int(x*7)-3

(2) call random(x); R=int(x*6)+3

(3) call random(x); R=3-int(x*8)

(4) call random(x); R=-3+int(x)*6

(5) call random(x); R=-4+int(4*x)

Номер 5

Для генерации последовательности псевдослучайных целых чисел в диапазоне  используется запись:

Ответ:

(1) call random(x); R=int(x*7)+8

(2) call random(x); R=int(x*8)+8

(3) call random(x); R=9+int(x*7)

(4) call random(x); R=int(x*8+7)

(5) call random(x); R=8+int(x*6)

Упражнение 10:

Номер 1

Вычислите сумму . В ответ введите целую часть результата.

Ответ:

(1) 1024

(2) 4574

(3) 2132

(4) 3544

Номер 2

Вычислите сумму . В ответ введите целую часть результата.

Ответ:

(1) 44

(2) 50

(3) 56

(4) 244

Номер 3

Вычислите сумму . В ответ введите целую часть результата.

Ответ:

(1) 1024

(2) -1024

(3) -649

(4) 649

Номер 4

Вычислите сумму . В ответ введите целую часть результата.

Ответ:

(1) -10

(2) 10

(3) -30

(4) -50

Номер 5

Вычислите сумму . В ответ введите целую часть результата.

Ответ:

(1) 778

(2) 1024

(3) 2132

(4) 3544

Введение в программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel - тест 3