программирование.

[LeX68RuS]

помогите плиз...очень нужно...

7)Числовая прямая разбита на отрезки точками А1;А2;…AN. Вычислить кому из отрезков принадлежит заданная точка Х.
14)Заданно целое число а>100. Поменять местами i-ую и j-ую цифры этого числа.
27)Вычислить площадь полной поверхности и объёма правильной N-угольной пирамиды по стороне основания.
37)Описать функцию Posk(sub S ,S,K) целого типа,возвращающую mnlep позиции,с которой в строке S содержится K-е вхождение подстроки sub S (K>0).Если количество вхождений Sub S в строке S меньше K, то функция возвращает 0.Вывести значения этой функции для пяти данных троек : K, sub S,S .
41)Описать функцию Binto Dec (S) (HexToDec(S)) целого типа,которая определяет целое неотрицательное число по его строковому представлению S в двоичной (16-ричной) системе счисления.Параметр S имеет тип string,состоит из символов [‘0’-‘1’] ([‘0’-‘9’,’A’-‘F’]) и не содержит ведущих нулей (за исключением значения ‘0’).Используя эту функцию,вывести пять чисел,для которых даны их двоичные (16-ричные)представления.
43)Описать функцию Min(A,N) Max(A,N) вещественного типа,находящую минимальный (максимаьный)элемент массива А, состоящего из N вещественных чисел.С помощью этой функции найти минимальные(максимальные) элементы массивов A,B.С размера NA,NB,NC соответственно.

турбо делфи .Visual Basic .(желательно с комментариями)

[Utkin]

Наработки есть? Если ты думаешь, что здесь просто решают лабы для студентов, то это ошибка. Здесь помогают решать, а не решают их за кого-то.

[sllh_111]

14)

 unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    edit1: TEdit;
    edit2: TEdit;
    stroka: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
s: string; //переменная в которой хранится число в строковом виде (так удобнее работать.)
d,i,j:integer; //d-длина строки, i,j - соответствующие позиции перемещаемых цифр.
begin
s:=stroka.Text;
d:=length(s);
i:=StrToInt(edit1.text);
j:=StrToInt(edit2.Text);
stroka.Text:=Copy(s,1,i-1)+copy(s,j,1)+copy(s,i+1,d-(d-j+1+i))+copy(s,i,1)+copy(s,j+1,d-j);
end;

end.

7)

 const int n = 10;
int a[n + 1];
for (int p = 1; p <= n; p++)
   scanf("%i", &a[p]);

int left = -1;
for (int i = 1; i <= n; i++)
   if ((a[i] <= x) && (a[i] > left)) left = a[i];
if (left == -1) {
     Такого отрезка нет, выходим;
   }

int right = n + 1;
for (int i = 1; i <= n; i++)
   if ((a[i] >= x) && (a[i] < right)) right = a[i];
if (right == n + 1) {
     Такого отрезка нет, выходим;
   }

printf("[%i, %i]", left, right);

ищем left = наибольшее из i, таких что a[i] <= x;
ищем right = наименьшее из j, таких что a[j] >= x;
искомый отрезок - [left, right]
перепроверь, может я с условиями чё напутал.

[sllh_111]

ну а в остальном сам

[LeX68RuS]

sllh_111 спасибо большущее...=)
ребят дело в том что мы проходили поверхностно.и эти задачи нам дали и сказала разберайтесь сами...а как я разберусь если я только на 1 курсе...и помоч некому кроме вас...

[Stilet]

и помоч некому кроме вас

А книги? А поисковики?
Вот хотя бы теория про максимум минимум с примерами:
http://www.programmersforum.ru/showt...EB%FC%ED%FB%E9

[LeX68RuS]

просто мне уже в пятницу сдавать...всего и не выучу...

[Utkin]

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

просто мне уже в пятницу сдавать...всего и не выучу...

А главное сдам в пятницу и забуду нафиг эту ерунду, а то, не дай аллах, еще мозг поцарапаю.

[LeX68RuS]

не прав.забыть не получится.всё только начинается...

[terentij]

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

просто мне уже в пятницу сдавать...всего и не выучу...

43 сделал? может выложишь? (конечно понимаю что зря надеюсь, но все-же)