На turbo pascal пишутся только консольные программы,для того что бы были поля ввода и кнопочки нужно использовать либо abc pascal либо delphi.
А то что бы хотите на будет выглядеть примерно так
writeln('введите а');
readln(a);
writeln('введите b');
readln(b);
if (a>b)then
  writeln('а больше')
else
  writeln('b больше');

при этом переменные а и b должны быть обьявиены в разделе var с соответствующим типом.и никто не дает гарантии что пользователь введет именно число.


var a,b:integer;

где
var - служебное слово обозначающие раздел обьявления переменных
a и b - переменные перечисленные через запятую или можно каждую отдельно объявить
например так
var
  a:integer;
  b:integer;

integer - тип переменной
пример программы
var
  a,b:integer;
begin
  writeln('введите а');
  readln(a);
  writeln('введите b');
  readln(b);
  if (a>b)then
    writeln('а больше')
  else
    writeln('b больше');
end;

А вообще если хотите программировать надо синтаксис знать


Кто может помочь решить задачки с листочка?ща его прикреплю

Прикрепленный файл #1: 199_15042010697.zip (338,37 Kb)
-------------
добавлено в 19.52: 2, 3 и по возможности 5

* редактировал(а) Ne(on) 19:51 15 апр 2010


народ помогите ктото пожалуйста ) нужен алгоритм, которий би елементи масипа разставлял по порядку от меньшего к большему или шо то на подобе этого )) с мну + до завтра))


drakula2008,
посмотри тут массив по возрастанию
-------------
добавлено в 20.55: вот код
Program C;
uses crt;
var a:array [1..5] of integer;
b, i, h:integer;
begin
clrscr;
for i:=1 to 5 do
begin
write(\'Введите \', i, \' элемент массива\');
readln(a[i]);
end;
for h:=1 to 25 do
for i:=1 to 4 do
if (A[i]>A[i+1]) then
begin
b:=A[i+1];
A[i+1]:=A[i];
A[i]:=b;
end;
write(\'Упорядочный массив - \');
for i:=1 to 5 do
write(a[i], \' \');
readkey;
end.


Вверх страницы Вниз страницы