Помогите, пожалуйста, решить. Паскаль

AnnArhiA · 27.01.2015, 21:05

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

условие: дан целочисленный массив с количеством элементов n. напечатать те его элементы, индексы которых являются степенями двойки (1,2,4,8,16...)

Николай_С · 27.01.2015, 23:34

А как Вы это решили?
Не стесняйтесь, приведите текст своей проги.

Vladimir_S · 28.01.2015, 11:19

Таких "преподш" надо расстреливать из рогатки. В детстве. Чтобы сами не мучились и других не мучили. Или просто гнать в три шеи.
Ну вот, например, через логарифмы:

Код:

Const
 N=100;

Var
 A:Array[1..N] of Integer;
 i:Integer;

Begin
 Randomize;
 Writeln('Initial array:');
 for i:=1 to N do
  begin
   A[i]:=Random(100);
   Write(A[i]:4);
  end;
 Writeln;
 Writeln;
 Writeln('Selected elements:');
 for i:=1 to N do
  if Frac(Ln(i)/Ln(2))=0 then Write(A[i]:4);
 Readln
End.

AnnArhiA · 28.01.2015, 14:43

спасибо огромное))

может еще с одной задачкой поможете?)

В столовой предлагается N комплексных обедов,состоящих из Q блюд. Известны стоимость и калорийность каждого блюда. Сколько стоят самый дешевый и самый дорогой обеды? Сколько калорий включает в себя самое калорийное блюдо?

Vladimir_S · 28.01.2015, 15:02

Цитата:

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

спасибо огромное))

может еще с одной задачкой поможете?)

В столовой предлагается N комплексных обедов,состоящих из Q блюд. Известны стоимость и калорийность каждого блюда. Сколько стоят самый дешевый и самый дорогой обеды? Сколько калорий включает в себя самое калорийное блюдо?

Можно.
Только если Вы сами придумаете перечень блюд (первое, второе, десерт) и в каждом из них зададите стоимость и калорийность. А также число комбинаций (комплексных обедов). Данные представьте в виде текстового файла или просто напишите в сообщении. Названия блюд желательно латиницей.

27.01.2015, 21:05	#1 (permalink)
AnnArhiA Новичок Регистрация: 08.01.2015 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите, пожалуйста, решить. Паскаль я вроде как и решила, но преподша говорит что не правильно и надо решать через экспоненту....может кто-нибудь знает как это решить через экспоненту? помогите плиз-плиз-плиз условие: дан целочисленный массив с количеством элементов n. напечатать те его элементы, индексы которых являются степенями двойки (1,2,4,8,16...)

28.01.2015, 11:19	#3 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Таких "преподш" надо расстреливать из рогатки. В детстве. Чтобы сами не мучились и других не мучили. Или просто гнать в три шеи. Ну вот, например, через логарифмы: Код: Const N=100; Var A:Array[1..N] of Integer; i:Integer; Begin Randomize; Writeln('Initial array:'); for i:=1 to N do begin A[i]:=Random(100); Write(A[i]:4); end; Writeln; Writeln; Writeln('Selected elements:'); for i:=1 to N do if Frac(Ln(i)/Ln(2))=0 then Write(A[i]:4); Readln End.

27.01.2015, 23:34	#2 (permalink)
Николай_С Радиоинженер Регистрация: 25.09.2012 Адрес: г.Дзержинск Нижегородской обл. Сообщений: 25,300 Записей в дневнике: 7 Сказал(а) спасибо: 292 Поблагодарили 219 раз(а) в 70 сообщениях Репутация: 110185	А как Вы это решили? Не стесняйтесь, приведите текст своей проги.

28.01.2015, 14:43	#4 (permalink)
AnnArhiA Новичок Регистрация: 08.01.2015 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо огромное)) может еще с одной задачкой поможете?) В столовой предлагается N комплексных обедов,состоящих из Q блюд. Известны стоимость и калорийность каждого блюда. Сколько стоят самый дешевый и самый дорогой обеды? Сколько калорий включает в себя самое калорийное блюдо?

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