Воскресенье, 24 Ноября 2024, 05:47

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Под-урок 1
SharomДата: Четверг, 14 Января 2010, 01:07 | Сообщение # 1
участник
Сейчас нет на сайте
Подурок 1
Математические операции

Итак, в первом уроке мы научились выводить текст на экран, это хоть и не большой прогресс, но это уже что-то.
Как нам всем известно, программирование это не просто вывод информации. Основная часть программирования это математика, чем сейчас мы и займемся.

Сейчас мы будем прибавлять, вычитать, умножать и делить.

Нам нужно сложить два числа. Для этого нам нужны две переменные(которые и будут нашими двумя числами) и еще одна переменая(это будет наш результат)

К примеру Z=X+Y

Code
program Project2;

uses
    SysUtils;

     var
     z,a,b:integer;

begin
     
Readln(a,b);
   z:=a+b;
   writeln(z);
   readln

end.

a,b:integer;

a,b – наши два числа

z – наш результат чему равен А+В (функция Z=X+Y)

Readln(a,b);

Вводим наши два числа А и В

z:=a+b;

наша функция которая считает А+В

writeln(z);

Выводит на экран функцию Z которую мы посчитали перед этим.

Теперь попробуйте сами сделать вычитание, умножение и деление

ВНИМАНИЕ когда будете делить, присвойте переменной Z тип Real;

Code
Var
a,b:integer;
z:real;

Integer -- переменные такого типа могут содержать только целые числа (к примеру 1,2,4,5,6,7)

Real -- переменные такого типа могут содержать дробные (к примеру 1,23 5,77 3,5 )

Теперь небольшие примеры для самостоятельного изучения(попробуйте сделать сами);

Z=A+B;
Z=A+B+C;
Z=A+C/2+B
Z=A-C/B+1

Как нам всем известно, кроме этих простых операций существуют еще: возведение в квадрат, нахождение квадратного корня, вычитание синуса, косинуса.

Sqr(x) – это функция (Sqr) возводит переменную х в квадрат

Code
program Project2;

uses
    SysUtils;
       
var
     x:integer;
     z:Real;

begin
   Readln(x);
   z:=sqr(x);
   writeln(z);
   readln
end.

Sqrt(x) -- это функция (Sqrt) вычитает из переменной х квадратный корень

Code
program Project2;

uses
    SysUtils;
       
var
     x:integer;
     z:Real;

begin
   Readln(x);
   z:=sqrt(x);
   writeln(z);
   readln
end.

Sin(x)
-- вычитание синуса и косинуса из переменной х
Cos(x)

Code
program Project2;

uses
    SysUtils;
       
var
     x:integer;
     z:Real;

begin
   Readln(x);
   z:=sin(x);
   writeln(z);
   readln
end.

Попробуйте вычистлить самостоятельно
X+SIN(X)/2,
SIN(X)+COS(X)/2+X,
Sqr(x)+Sin(x),
Sqrt(x)+Sqr(x)+Sin(x/2)/Cos(x)

Сообщение отредактировал Sharom - Четверг, 14 Января 2010, 16:06
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг