Реферат Вирішення проблемних завдань на персональному комп'ютері

stify">: begin rad2: = StrToFloat (Edit1.Text); h: = (2 * s)/a * a; a: = sqrt ((4 * s)/sqrt (3)); rad: = (2 * s)/(a ​​+ a + a);; end; label1.Caption: = '';;. Caption: = 'a =' + FloatToStr (a) + # 13 + 'S =' + FloatToStr (s) + # 13 + 'h =' + FloatToStr (h) + # 13 + ' ðàä . < span align = "justify"> âïèñ = '+ FloatToStr (rad) + # 13 +' ðàä < span align = "justify">. îïèñ = '+ FloatToStr (rad2);;.

. Цілочисельна арифметика

Задача.

Дано натуральні числа n, k. Перевірити, чи є в запису числа

Цифра m

В 

TForm1.Button1Click (Sender: TObject); n, k, b, i, m, z: integer;: = StrToInt (Edit1.Text);

В 

k: = StrToInt (Edit2.Text);: = StrToInt (Edit3.Text);: = 1; i: = 1; i <= k do: = z * n; i: = i +1;;. Caption: = 'Z =' + intToStr (z); z> 0 do begin: = z mod 10; b = m thenLabel4.Caption: = 'Є';: = 0; endif z = m then Label4.Caption: = 'Есть'Label4. Caption: =' Немає ';: = z div 10;;;

end.

. Табулювання функцій

(3) Написати програму обчислення значення функції F (x) На відрізку [a, b] з кроком h

В В 

procedure TForm1.Button1Click (Sender: TObject); n, x, a, b, h, F: real;: integer;

end;

. Масиви і матриці

1.Сформуліровать одновимірний масив за допомогою генератора випадкових чисел поміняти місцями елементи, що стоять на парних місцях, на елементи, що стоять на непарних місцях.

В 

Form1.Button1Click (Sender: TObject); a: array [1 .. 10] of integer;: integer;; i: = 1 to 10 do begin a [i]: = random (15 );. Cells [i-1, 0]: = IntToStr (a [i]);

{if i mod 2 = 0 then begin: = a [i]; a [i]: = a [i +1]; a [i +1]: = a [i]; ;} end; end; TForm1.Button2Click (Sender: TObject); a: array [1 .. 10] of integer;: array [1 .. 10] of integer;, p: integer; i: = 1 to 10 do begin: = i; i mod 2 = 0 then begin [p]: = a [i];. Cells [p-1, 0]: = IntToStr (z [p]); endbegin [p +1]: = a [i];. Cells [p-1, 0]: = IntToStr (z [p]);

end; end; end; end.

. Дана матриця розміром а [n, m]. знайти в кожному рядку матриці максимальний і мінімальний елементи і поміняти їх місцями з першим і останнім елементом рядка відповідно.

програма лінійний масив генератор

В 

В 

TForm1.Button1Click (Sender: TObject); a, b: array [1 .. 10,1 .. 10] of integer;, t, k, p, m, n, min, i , j: integer;;: = strtoint (edit1.Text);: = strtoint (edit2.Text);: = 0; k: = 0; i: = 1 to n doj: = 1 to m do [i, j ]: = random (20) -5; b [i, j]: = a [i, j];. Cells [i-1, j-1]: = intToStr (b [i, j]);; j : = 1 to m do begin: = -10000; min: = 10000; i: = 1 to n doa [i, j]> max then begin max: = a [i, j]; p: = i;. Cells [0, j-1]: = intToStr (max); endif a [i, j]

end;

7. Обробка строкових даних

Задача.

З рядка видалити середню букву, якщо довжина рядка парна, якщо довжина рядку не парна-видалити дві середні літери.

sedmoeconsol;; str: STRING;, s, a: integer; ('vvedite stroku'); (str);: = Length (str); (k); k mod 2 = 0 then : = k div 2; (str, a, 1); begin: = k-1;: = k div 2; (str, a, 2);;: = Length (str); (str); writeln (k );;.

В В 

8. Процедури і функції

Задача:

Обчислити значення

де n? 10

Project3;

{$ APPTYPE CONSOLE}; F (v: real): real;: = Exp (v * ln (10));; a, i, n, y: real; ('vvedite n '); (n); n> 10 do begin (' N dolgen bit <10 '); (n);;: = 1; i: = 1; i <= n do begin: = a * i;: = i +1;;: = F (n)/a; ('y =', y: 15:6);; ..

В В В