Question

Екі санның қосындысын табатын программа құруға көмектесіңдерші өтінем!!!

Comments

кандай программа аркылы?

Арыстан2014 24.12.2013 пікір

---

Бұл информатикадан

Nurface1998 24.12.2013 пікір

Answer 1

 

бұл visual basic 6.0

Вписать код для каждой кнопки. Чтобы открыть окно кода нажмите на кнопку для которой вы хотите вписать код 2 раза. 
Кнопка + - Text3.Text = Val(Text1.Text) + Val(Text2.Text) – По-русски - текст3 = текст1 + текст2
Кнопка – —- Text3.Text = Val(Text1.Text) – Val(Text2.Text) Меняется только знак !
Кнопка * - Text3.Text = Val(Text1.Text) * Val(Text2.Text)Меняется только знак !
Кнопка / - Text3.Text = Val(Text1.Text) / Val(Text2.Text)Меняется только знак !
Кнопка корень - Text3.Text = Val(Text1.Text) * Val(Text1.Text) А тут нет ) Корень – текст3 = текст1 * текст1

3шаг

Кнопки очистить и выход
Напишем код для кнопки выход (очень просто) 
код – End В переводе на русский конец,выход ну и т.п.. Можно сделать так,чтобы при нажатии кнопки выход выскакивало сообщение типа Заходите еще на мой сайт или балбес ну и т.д. Для этого впишем код :
MsgBox (“Пробная версия калькулятора ! ! !”) Вот в моем случае.
Кнопка очистить. Ну тут все понятнои анологично кнопкам +,-…
Text1.Text = ""
Text2.Text = ""
Text3.Text = “0”
 

 

Comments

Спс но это не то

Nurface1998 24.12.2013 пікір

Answer 2

var a, b: integer;

begin

readln(a, b);

writeln(a + b);

end.

 

Дереккөз: http://acm.timus.ru/help.aspx?topic=pascal&locale=ru

 

Comments

)))
Өтінем, толығырақ ақпарат беруге тырысыңыз (8 әріптен кем болмасын)

extjs 24.12.2013 пікір

Answer 3

Program esep;

var a,b,c:integer; (егер бүтін сан болатын болса)

var a,b,c:real; (егер бөлшек сан болатын болса)

begin read(a,b);

 c:=a+b;

write(c); end.