Реферат по предмету "Информатика, программирование"


Программирование. Контрольная работа

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


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


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


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


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.



Не сдавайте скачаную работу преподавателю!
Данный реферат Вы можете использовать для подготовки курсовых проектов.

Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Пишем реферат самостоятельно:
! Как писать рефераты
Практические рекомендации по написанию студенческих рефератов.
! План реферата Краткий список разделов, отражающий структура и порядок работы над будующим рефератом.
! Введение реферата Вводная часть работы, в которой отражается цель и обозначается список задач.
! Заключение реферата В заключении подводятся итоги, описывается была ли достигнута поставленная цель, каковы результаты.
! Оформление рефератов Методические рекомендации по грамотному оформлению работы по ГОСТ.

Читайте также:
Виды рефератов Какими бывают рефераты по своему назначению и структуре.

Сейчас смотрят :

Реферат Аннотированная программа дисциплины/ модуля «Стилистика речи»
Реферат Диссидентское и правозащитное движение в СССР
Реферат Перенашивание беременности Преждевременные роды
Реферат Родословная королевы Елизаветы 2
Реферат Henry Foyal Essay Research Paper Henry Fayol
Реферат Особенности распространения проституции в современном российском о
Реферат Самостоятельная нагрузка
Реферат Проблемы реализации избирательных прав военнослужащими
Реферат А. П. Чехов Из письма Имя Антона Павловича Чехова завершает список писателей, сегодня называемых классиками, писателей второй половины ХІХ века. Идействительно, Антону Чехову в год смерти И. С. Тургенева было 23 г
Реферат Digital Imaging And Their Effects Essay Research
Реферат Комплексный мониторинг эффективности функционирования общеобразовательных учебных заведений реализующих 3
Реферат Сколько можно заработать на фондовом рынке
Реферат Проблемы терроризма и борьбы с ним Лицо современного терроризма
Реферат Функциональная асимметрия полушарий головного мозга 2
Реферат Модуль управления кодовым замком