Поделись:





РАЗДЕЛЫ
Авиация и космонавтика (292)
Административное право (113)
Английский язык (62064)
Арбитражный процесс (22)
Архитектура (98)
Астрология (15)
Астрономия (4788)
Банкосвкое дело (4987)
Без категории (14560)
Безопасность жизнедеятельности (2585)
Биографии (3219)
Биология (4036)
Биология и химия (1421)
Биржевое дело (61)
Ботаника и сельское хозяйство (2694)
Бухгалтерский учет и аудит (7694)
Валютные отношения (47)
Ветеринария (45)
Военная кафедра (732)
География (4779)
Геодезия (27)
Геология (1186)
Геополитика (42)
Государство и право (19449)
Гражданское право и процесс (434)
Делопроизводство (17)
Деньги и кредит (96)
ЕГЭ (32)
Естествознание (92)
Журналистика (899)
ЗНО (47)
Зоология (34)
Издательское дело и полиграфия (475)
Инвистиции (91)
Информатика (3452)
Информатика, программирование (5960)
Исторические личности (2109)
История (20812)
История техники (765)
Кибернетика (60)
Коммуникации и связь (3050)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (580)
Краткое содержание произведений (1000)
Криминалистика (102)
Криминология (46)
Кулинария (1147)
Культура и искусство (8212)
Культурология (501)
Литература (зарубежная) (2035)
Литература и русский язык (11459)
Логика и логстика (545)
Маркетинг (7739)
Медицина и здоровье (9936)
Международное право (79)
Международные отношения (2189)
Менеджмент (11960)
Металлургия (82)
Москвоведение (764)
Музыка (1307)
Налоги и налогооблажение (199)
Наука и техника (1139)
Начертательная геометрия (9)
Окультизм и уфология (8)
Педагогика (7566)
Политология (3650)
Право, юриспруденция (3708)
Предпринимательство (406)
Промышленность и производство (6865)
Психология (8363)
Психология и педагогика (4048)
Радиоэлектронника (364)
Реклама (948)
Религия и мифология (2829)
Риторика (23)
Сексология (748)
Социология (4709)
Статистика (80)
Страхование (105)
Строительство (1984)
Таможенная система (655)
Теория государства и права (219)
Теория организации (35)
Технология (492)
Транспорт (2552)
Туризм (80)
Уголовное право и процесс (369)
Управление (105)
Физика (3298)
Физкультура и спорт (4360)
Философия (6846)
Финансовые науки (4389)
Финансы (5237)
Химия (2195)
Цифровые устройства (22)
Экология (4322)
Экономика (19673)
Экономико-математическое моделирование (644)
Экономическая география (113)
Экономическая теория (2472)
Этика (887)
Юриспруденция (268)
Языковедение (135)
Языкознание и филология (1140)
Счетчики


Программирование
Раздел: Информатика, программирование

Контрольная работа

Составьте программу, определяющую является ли вводимое с клавиатуры целое число

положительным или отрицательным.

Текст программы:

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<0 then begin

writeln('Dannoe chislo <0');goto fin; end;

if x=0 then writeln('Dannoe chislo =0');

fin:end.

Задание №2

Напишите программу, которая запрашивает день недели и, если введённый день

является субботой или воскресеньем, выдаёт сообщение: "Сегодня выходной!"

Текст

программы
:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type

TForm1 = class(TForm)

private

public

end;

var

day: shortstring;

Form1: TForm1;

implementation

begin

write('Vvedite den nedeli:');

readln(day);

if day='Monday' then write('Go to work');

if day='Tuesday' then write('Go to work');

if day='Wednesday' then write('Go to work');

if day='Thursday' then write('Go to work');

if day='Friday' then write('Go to work');

if day='Saturday' then write('Have some fun');

if day='Sunday' then write('Have some fun') else Writeln('Vvedeno nepravilnoe

znachenie');

end.

Задани №3

Вычислите значение функции Z(x,y) при x=15,32245; y=5,32411 с максимальной

точностью. Вид функции Z(x,y) соответствует заданию 1 к Лабораторной работе №1

(по вариантам).

Текст

программы
:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type

TForm1 = class(TForm)

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

x,y,z: extended;

implementation

{$R *.DFM}

label vano;

begin

x:=15.32245;y:=5.32411;

vano:

if 2*x*x-4*y*y*y=0 then

begin

writeln('Pri dannix znacheniax X i Y funkcia ne imeet reshenia');

goto vano;end;

z:=(cos(x)*(1-sin(y)))/(2*x*x-4*y*y*y);

write('Otvet :',z);

end.

Задание №4

Составьте программу, которая запрашивает две строки текста и определяет включает

ли первая строка текст введённый во вторую строку.

Текст

программы
:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type

TForm1 = class(TForm)

private

public

end;

var

cut,text1,text2:shortstring;

x,t1,t2: smallint;

Form1: TForm1;

implementation

label fin;

begin

write('Vvedite 1-u stroku texta:');

readln(text1);

write('Vvedite 2-u stroku texta:');

readln(text2);

t1:=length(text1);t2:=length(text2);

if t1<t2 then

begin

writeln('2 stroka > 1-oy, chto ne dopustimo');

goto fin;end;

for x:=1 to t1-t2+1 do

begin

cut:=copy(text1,x,t2);

if cut=text2 then

begin

writeln('stroka 1 vkluchaet v sebia stroku 2');

goto fin;end;

end;

writeln('stroka 1 ne vkluchaet v sebia stroku 2');

fin:end.




Оценка: 0. | Оценило 0 человека.
ВНИМАНИЕ
Уважаемые гости, хотим обратить Ваше внимание на то, что все представленные работы на этом сайте получены с публичных ресурсов, находятся в свободном доступе, не являются уникальными и не подходят для их сдачи "как есть".
Если вы обладаете авторским правом на какую либо информацию, размещенную на нашем сайте и не согласны с её общедоступностью, обязательно сообщите нам об этом.
Данные работы Вы можете использовать в качестве дополнительных материалов для написания своего реферата либо любой другой работы.
В ПОМОЩЬ УЧАЩИМСЯ
Мы настоятельно рекомендуем нашим пользователям самостоятельно выполнять все работы. Но бывают ситуации, когда нет возможности, либо элементарно времени, чтобы самому заниматься той или иной работой. В этом случае можно заказать выполнение за вас реферата, курсовой и т.д. Но будет ли такая работа соответствовать всем вашим критериям? Сомневаемся. Поэтому хотим дать вам хороший совет. Найдите на нашем сайте работу, максимально подходящую под ваши критерии. Закажи повышение оригинальности и получите уникальную работу для сдачи. Это сэкономит вам деньги и вы получите именно то, что хотели.
НОВОСТИ НАУКИ
Обратная связь
По всем интересующим вас вопросам обращайтесьна почту:


Если у вас есть интересная работа и вы хотите ей поделиться, присылайте ее нам и мы обязательно разместим ее на нашем сайте, а пользователи обязательно скажут вам спасибо: