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

Контрольная работаСоставьте программу, определяющую является ли вводимоес клавиатуры целое число положительным или отрицательным.Текст программы unit Unit1 interfaceusesWindows, Messages, SysUtils, Classes, Graphics,Controls, Forms, Dialogs typeTForm1 class TForm privatepublicend varForm1 TForm1 x longint implementationlabel start,fin beginstart write

Vvedite celoe chislo readln x if x gt 0 then beginwriteln Dannoe chislo gt 0 goto fin end if x lt 0 then beginwriteln Dannoe chislo lt 0 goto fin end if x 0 then writeln Dannoe chislo 0 fin end.Задание 2Напишите программу, которая запрашивает день недели и,если введ нный день является субботой или воскресеньем, выда т сообщение

Сегодня выходной! Текст программы unit Unit1 interfaceusesWindows, Messages, SysUtils, Classes, Graphics,Controls, Forms, Dialogs typeTForm1 class TForm privatepublicend varday shortstring Form1 TForm1 implementationbeginwrite 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 elseWriteln Vvedeno nepravilnoe znachenie end.Задани 3Вычислите значениефункции Z x,y при x 15,32245 y 5,32411 с максимальной точностью.

Вид функции Z x,y соответствует заданию 1 к Лабораторной работе 1 по вариантам .Текст программы unit Unit1 interfaceusesWindows, Messages, SysUtils, Classes, Graphics,Controls, Forms, Dialogs typeTForm1 class TForm private Private declarations public Public declarations end varForm1 TForm1 x,y,z extended implementation R .DFM label vano beginx 15.32245 y 5.32411 vano if 2 x x-4 y y

y 0 thenbeginwriteln Pri dannix znacheniax X i Y funkcia ne imeetreshenia goto vano end z cos x 1-sin y 2 x x-4 y y y write Otvet ,z end.Задание 4Составьтепрограмму, которая запрашивает две строки текста и определяет включает липервая строка текст введ нный во вторую строку.Текст программы unit Unit1 interfaceusesWindows, Messages, SysUtils, Classes, Graphics,Controls, Forms, Dialogs typeTForm1 class

TForm privatepublicend varcut,text1,text2 shortstring x,t1,t2 smallint Form1 TForm1 implementationlabel fin beginwrite Vvedite 1-u stroku texta readln text1 write Vvedite 2-u stroku texta readln text2 t1 length text1 t2 length text2 if t1 lt t2 thenbeginwriteln 2 stroka gt 1-oy, chto ne dopustimo goto fin end for x 1 to t1-t2 1 dobegincut copy text1,x,t2 if cut text2 thenbeginwriteln stroka 1 vkluchaet v sebia stroku 2 goto fin end end writeln stroka 1 ne vkluchaet

v sebia stroku 2 fin end.