Контрольная: Программирование - текст контрольной. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Контрольная

Программирование

Банк рефератов / Программирование

Рубрики  Рубрики реферат банка

закрыть
Категория: Контрольная работа
Язык контрольной: Русский
Дата добавления:   
 
Скачать
Архив Zip, 11 kb, скачать бесплатно
Заказать
Узнать стоимость написания уникальной работы

Узнайте стоимость написания уникальной работы

Контрольная работа Составьте программу , определяющую является ли в водимое с клавиатуры целое чис ло положительным или отрицательным. Текст программы : 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 chisl o =0'); fin:end. Задание № 2 Напишите программу , которая запрашивает д ень недели и , если введённый день является субботой или воскресеньем , выдаёт сообщение : "Сегодня выходной !" Текст программы : unit Unit1; interface uses Windows, M essages, 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(te xt1);t2:=length(text2); if t1 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.
1Архитектура и строительство
2Астрономия, авиация, космонавтика
 
3Безопасность жизнедеятельности
4Биология
 
5Военная кафедра, гражданская оборона
 
6География, экономическая география
7Геология и геодезия
8Государственное регулирование и налоги
 
9Естествознание
 
10Журналистика
 
11Законодательство и право
12Адвокатура
13Административное право
14Арбитражное процессуальное право
15Банковское право
16Государство и право
17Гражданское право и процесс
18Жилищное право
19Законодательство зарубежных стран
20Земельное право
21Конституционное право
22Конституционное право зарубежных стран
23Международное право
24Муниципальное право
25Налоговое право
26Римское право
27Семейное право
28Таможенное право
29Трудовое право
30Уголовное право и процесс
31Финансовое право
32Хозяйственное право
33Экологическое право
34Юриспруденция
 
35Иностранные языки
36Информатика, информационные технологии
37Базы данных
38Компьютерные сети
39Программирование
40Искусство и культура
41Краеведение
42Культурология
43Музыка
44История
45Биографии
46Историческая личность
47Литература
 
48Маркетинг и реклама
49Математика
50Медицина и здоровье
51Менеджмент
52Антикризисное управление
53Делопроизводство и документооборот
54Логистика
 
55Педагогика
56Политология
57Правоохранительные органы
58Криминалистика и криминология
59Прочее
60Психология
61Юридическая психология
 
62Радиоэлектроника
63Религия
 
64Сельское хозяйство и землепользование
65Социология
66Страхование
 
67Технологии
68Материаловедение
69Машиностроение
70Металлургия
71Транспорт
72Туризм
 
73Физика
74Физкультура и спорт
75Философия
 
76Химия
 
77Экология, охрана природы
78Экономика и финансы
79Анализ хозяйственной деятельности
80Банковское дело и кредитование
81Биржевое дело
82Бухгалтерский учет и аудит
83История экономических учений
84Международные отношения
85Предпринимательство, бизнес, микроэкономика
86Финансы
87Ценные бумаги и фондовый рынок
88Экономика предприятия
89Экономико-математическое моделирование
90Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
В кресло к незнакомым парикмахерам мадам Рабинович всегда садится со словами:
- Девчонки! Завтра муж из тюрьмы выходит. 8 лет за двойное убийство отсидел. Хочу быть красивой для него...
И шо вы себе думаете? Таки ещё ни разу нигде плохо не подстригли...
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, контрольная по программированию "Программирование", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2016
Рейтинг@Mail.ru