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

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

Работа добавлена на сайт bukvasha.net: 2015-10-25

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 22.4.2025



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

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

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

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

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.


1. Реферат Ермак Тимофеевич 2
2. Реферат Родина моя бескрайняя Россия
3. Реферат Погляди на буття в історії філософії
4. Статья на тему Время в пьесе А Вампилова Утиная охота
5. Реферат на тему Диоксины
6. Реферат на тему Blackholes Essay Research Paper Black holes are
7. Реферат Разработка микропроцессорного устройства
8. Реферат Педагогика как нука
9. Курсовая Преступления связанные с незаконным оборотом наркотических средств и психотропных веществ
10. Реферат Виды банков