Ли отчет 2

СПЕЦИАЛЬНАЯ ЧАСТЬ

Лист

Изм

Лист

№ докум

Подпись

Дата

2.2 Постановка задачи № 2

Проверить истинность высказывания: «Данное четырехзначное число читается одинаково слева направо и справа налево».

2.2.2 Таблица Идентификаторов

Таблица 2- Таблица идентификаторов

Переменная

Назначение

Тип

a

Ввод

integer

Начало

2.2.3 Блок схема

Конец

Данное число считает.

Данное число не считает.

A:=strToint

(Edit1.Text)

A

((a Div 1000=a mod 10)and

(a mod 1000 div 100=

a mod 100 div 10))

2.2.3 Листинг программы

procedure TForm1.Button1Click(Sender: TObject);

var a:integer;

begin

a:=strtoint(edit1.Text);

if((a div 1000=a mod 10) and (a mod 1000 div 100 = a mod 100 div 10))

2.2.4 Контрольный пример




Предыдущий:

Следующий: