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


Ответ
 
Опции темы Опции просмотра
Старый 20.11.2013, 17:21   #1 (permalink)
Евгениус1
Новичок
 
Регистрация: 20.11.2013
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Задачи на массивы и функции

Всем, всем, всем доброго времени суток! Ребята, очень прошу, выручайте, помогите составить код программы для данных трёх задач, могу даже материально отблагодарить, пополнив баланс телефона если программа будет не замысловатой и хорошо работать! :t ehnari_ru_837::teh nari_ru_837:
Миниатюры
iaeiiiadhiue-iannea.jpg   aeaoiadhiue-iannea.jpg   ooieoeey.jpg  
Евгениус1 вне форума   Ответить с цитированием

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

С уверенностью могу сказать, что данные темы будут очень полезны

Нужна помощь в решении задачи по Паскалю с использованием функции и рекурсии
Задачи на двумерные и одномерные массивы

Старый 20.11.2013, 17:23   #2 (permalink)
Евгениус1
Новичок
 
Регистрация: 20.11.2013
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Забыл сказать, что код на языке Turbo Pascal...Очень надеюсь на вас!
Евгениус1 вне форума   Ответить с цитированием
Старый 25.11.2013, 11:18   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,304
Сказал(а) спасибо: 290
Поблагодарили 512 раз(а) в 169 сообщениях
Репутация: 93301
По умолчанию

Цитата:
Сообщение от Евгениус1 Посмотреть сообщение
Очень надеюсь на вас!
Ну что, сударь, всё ждёте, когда Вам на блюдечке преподнесут решение этих глупых школьных задачек? Так сами за прошедшее время ничего и не родили?
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 27.11.2013, 03:06   #4 (permalink)
Евгениус1
Новичок
 
Регистрация: 20.11.2013
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Вычисление числа элементов в виде функции

с программой беда, на экран не выходит в таком виде, в котором нужно, то есть в FUNCTION
Миниатюры
ooieoeey.jpg  
Евгениус1 вне форума   Ответить с цитированием
Старый 27.11.2013, 10:01   #5 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,304
Сказал(а) спасибо: 290
Поблагодарили 512 раз(а) в 169 сообщениях
Репутация: 93301
По умолчанию

Цитата:
Сообщение от Евгениус1 Посмотреть сообщение
с программой беда, на экран не выходит в таком виде, в котором нужно, то есть в FUNCTION
Прежде всего, не надо плодить вокруг одних и тех же задачек кучу тем. Темы объединены. А что до самой задачи, то, например, так:
Код:
Const
 X:Array[1..3,1..3] of Real=((0.2,3,4),(0.1,0.2,3.4),(7,8,9));
 Y:Array[1..4,1..4] of Real=((1,3,4,7),(8,9,-4,0),(2,3,7,8),(1,3,4,-3));
 RX=0.5;
 RY=2.5;

Type
 Arr=Array[1..4,1..4] of Real;

Var
 i,j,NumX,NumY:Byte;
 X1:Arr;
 A:Boolean;

Function Num(Z:Arr;N:byte;R:Real):Byte;
var
 p,q,M:Byte;
begin
 M:=0;
 for p:=1 to N do
  for q:=1 to N do
   if Z[p,q]<R then Inc(M);
 Num:=M;
end;

Begin
 for i:=1 to 3 do
  for j:=1 to 3 do
   X1[i,j]:=X[i,j];
 NumX:=Num(X1,3,RX);
 NumY:=Num(Y,4,RY);
 A:=(NumX>=NumY);
 Writeln(A);
 Readln
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, время: 01:28.

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