Advertisement
Guest User

Untitled

a guest
Sep 17th, 2019
112
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.76 KB | None | 0 0
  1. package com.company;
  2. import java.util.Scanner;
  3. public class Main {
  4.     public static void main(String[] args) {
  5.         String s;
  6.         int num ;
  7.         do {
  8.             System.out.println("Введите номер дня недели: ");
  9.             num = input();
  10.             switch (num) {
  11.                 case 1:
  12.                     s = "Понедельник";
  13.                     break;
  14.                 case 2:
  15.                     s = "Вторник";
  16.                     break;
  17.                 case 3:
  18.                     s = "Среда";
  19.                     break;
  20.                 case 4:
  21.                     s = "Четверг";
  22.                     break;
  23.                 case 5:
  24.                     s = "Пятница";
  25.                     break;
  26.                 case 6:
  27.                     s = "Суббота";
  28.                     break;
  29. program laba1_1;
  30. var
  31.     Day: byte;
  32.     IsCorrect: boolean;
  33. begin
  34.     repeat
  35.         try
  36.             writeln('Введите номер дня недели');
  37.             IsCorrect := true;
  38.             readln(Day);
  39.             if (Day < 1) or (Day > 7) then
  40.             begin
  41.                 IsCorrect := false;
  42.                 writeln('Неправильно введенное число!');
  43.             end;
  44.         except
  45.             IsCorrect := false;
  46.             writeln('Введите положительное число');
  47.         end;
  48.     until IsCorrect;
  49.     case Day of
  50.         1: writeln('Понедельник');
  51.         2: writeln('Вторник');
  52.         3: writeln('Среда');
  53.         4: writeln('Четверг');
  54.         5: writeln('Пятница');
  55.         6: writeln('Суббота');
  56.         7: writeln('Воскресенье');
  57.     end;
  58.     readln;
  59. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement