- program m1;
- var a, b: integer;
- begin
- a:=1;
- b:=2;
-
- b:=b xor a;
- a:=b xor a;
- b:=b xor a;
-
- writeln('a=',a
...
Читать дальше »
|
Задача: Урожайность пшеницы в год разработки целинных земель составила B ц/га, затраты на её получение - D руб./га. По прогнозу в последующие годы урожайность будет уменьшаться на P руб. в год при увеличении затрат на q%. Вывести среднюю себестоимость 1 ц пшеницы за последующие N лет.
- program p3;
- uses crt;
- var i,N :integer;
- B,D,P,q,SX :real;
- begin
- write('B= ')
...
Читать дальше »
|
Задача 1. Длина шоссейных дорог области равна D км. Прогнозируется ежегодный её прирост на B км. Полагается, что на каждые C км дорог необходим один пост автоинспекции. Для текущего года и последующих N лет найти необходимое число постов автоинспекции. - program p1;
- uses crt;
- var D,B,C,N,i,L,J :integer;
- begin
- write('D= ');
- readln(D
...
Читать дальше »
|
- var
- i,res,j: integer;
- s:string;
- function power (x,pow:integer):integer;
- var res: integer;
- begin
- res := 1;
- while (
...
Читать дальше »
|
- begin
- for j:=1 to N-1 do
- for i:=1 to N-j do
- if M[i] > M[i+1] then
- begin
...
Читать дальше »
|
- function getCharCountFromFile(fname : string, findChar : char) : integer;
- var
- ch : char;
- infile : text;
- count : integer;
- begin
-
...
Читать дальше »
|
- function MinNumber(a,b: real): real;
- var min: real;
- begin
- if a<b then min:=a else min:=b;
- MinNumber:= min;
- end;
|
- function MaxNumber(a,b: real): real;
- var max: real;
- begin
- if a>b then max:=a else max:=b;
- MaxNumber := max;
- end;
|
- z = 2 'знаменатель
- n = 10 'количество выводимых значений
- x = z
- For i = 1 to (n + 1)
- Range("A" + CStr(i)) = x
- x = x * z
- Next i
|
Метод для преобразования: - int[] StrToIntArray(string inp, char separator)
- {
- string[] x = s.Split(separator);
- int[] outp = new int[x.Length
...
Читать дальше »
|
|