Программы на поскале.

[serjant_zedrot]

1) В N-этажном доме M подъездов. На каждой лестничной площадке К квартир. Нумерация квартир в доме сквозная, на*чиная с 1. Написать программу, которая по номеру квартиры определяет номер подъезда и этажа, на котором находится квар*тира.
3) Заданы круг площади S и квадрат площади Р. Написать программу, проверяющую, поместится ли круг в квадрат или поместится ли квадрат в круг, или они не поместятся друг в друга.
4) Написать программу, позволяющую вычислить с помощью цикла:
2+4+6+…+2n, где n задается с клавиатуры.
5) Два массива содержат по n целых положительных чисел (задаются случайным образом). Написать программу создания третьего масси*ва, содержащего сумму этих чисел.
5) Дана вещественная матрица размера n х m. Переставляя целиком ее строки и столбцы, нужно добиться того, чтобы наи*больший элемент (любой из нескольких) оказался:
– в верхнем левом углу;
– в правом нижнем углу;
– в левом нижнем углу;
– в правом верхнем углу;
– в центре массива (для n=m, где n – нечетное).
6) Найти n-е вхождение подстроки в строку.
7)Разработать функцию поиска минимального элемента одномерного массива.
8) В файле хранятся название товара, количество и цена единицы. Переписать в другой файл записи, описывающие това*ры со стоимостью, превосходящей заданное k.
Ребят все кто поможет от души нужно ко вторнику...(27.11.2012)
на лубом языке..

[BDA]

1) Дельфи:

var
  k, h, p, n, p1, h1, k1: integer;
begin
  //k-количество квартир на 1 этаже
  //h-количество этажей в подъезде
  //p-количество подъездов в доме
  //n-номер квартиры которую нужно найти
  p1 := (n - 1) div (k * h) + 1;
  n := n - (p1 - 1) * k * h;
  h1 := (n - 1) div k + 1;
  k1 := n - (h1 - 1) * k;
  Showmessage(inttostr(p1) + ' Подъезд, ' + inttostr(h1) + ' этаж, ' + inttostr(k1) + ' квартира');
end;

Написал решение, т.к. оно уже было на форуме.

Теперь ждем Ваших наработок (по другим задачам)

[Stilet]

Паскаль:

MODULE q;
 IMPORT StdLog,In,ObxRandom;
(*
1) В N-этажном доме M подъездов. На каждой лестничной площадке К квартир.
 Нумерация квартир в доме сквозная, на*чиная с 1. Написать программу, которая по
 номеру квартиры определяет номер подъезда и этажа, на котором находится квар*тира.
*)
PROCEDURE q1;
CONST n=9;k=4;flat=48;
VAR adoc,doc,level:INTEGER;
BEGIN;
 adoc:=n*k;
 doc:=flat DIV adoc+1;
 level:=(flat-(doc-1)*adoc) DIV k;
 StdLog.Int(level);StdLog.Tab;
 StdLog.Int(level);StdLog.Ln;
END q1;


(*
4) Написать программу, позволяющую вычислить с помощью цикла:
2+4+6+…+2n, где n задается с клавиатуры.
*)
PROCEDURE q2*;
VAR s,n:INTEGER;
BEGIN
 In.Open;
 In.Int(n); 
 s:=0;
 WHILE n>0 DO
  s:=s+2*n;
  DEC(n);
 END;
 StdLog.Int(n);StdLog.Ln;
END q2;

(*
5) Два массива содержат по n целых положительных чисел (задаются случайным образом). 
Написать программу создания третьего масси*ва, содержащего сумму этих чисел.
*)
PROCEDURE q3;
CONST n=3;
VAR i,j:INTEGER; a,b,c:ARRAY(n) OF INTEGER;
BEGIN
 FOR i:=0 TO LEN(a)-1 DO 
  FOR j:=0 TO n-1 DO 
   a[i]:=SHORT(ENTIER(ObxRandom.Uniform()*100));StdLog.Int(a[i]);StdLog.Tab;
   b[i]:=SHORT(ENTIER(ObxRandom.Uniform()*100));StdLog.Int(b[i]);StdLog.Tab;
   c[i]:=a[i]+b[i];StdLog.Int(c[i]);StdLog.Tab;
   StdLog.Ln;
  END;
 END;
END q3;

(*
 7)Разработать функцию поиска минимального элемента одномерного массива.
*)
PROCEDURE q4():INTEGER;
CONST n=3;
VAR i,j:INTEGER; a:ARRAY(n) OF INTEGER;
BEGIN
 j:=0;
 FOR i:=0 TO LEN(a)-1 DO 
   a[i]:=SHORT(ENTIER(ObxRandom.Uniform()*100));StdLog.Int(a[i]);StdLog.Tab;
   IF a[i]<a[j] THEN j:=i; END;
 END;
 RETURN j;
END q4;


PROCEDURE do*;
BEGIN
StdLog.Clear; 
q1;
q3;
StdLog.Int(q4());
END do;

END q.
q.do;
q.q2;

4