Категория
Информатика
Тип
реферат
Страницы
1 стр.
Дата
07.11.2008
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
20919.zip — 3.22 kb
  • programmirovanie-kontrolnaja-rabota_20919_1.rtf — 9.84 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

Контрольная работа
SDL SDL
Контрольная работа
Составьте программу, определяющую является ли вводимое с клавиатуры целое число
положительным или отрицательным.
Текст программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
private
public
end;
var
Form1: TForm1;
x: longint;
implementation
label start,fin;
begin
start:
write('Vvedite celoe chislo =');
readln(x);
if x>0 then begin
writeln('Dannoe chislo >0');goto fin; end;
if x



Ваше мнение



CAPTCHA