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

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

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

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 с максимальной