Advertisement
Guest User

Untitled

a guest
Oct 24th, 2014
119
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.36 KB | None | 0 0
  1. int x=StrToFloat (Edit1->Text);
  2. switch(x){
  3. case 1:ShowMessage("Понедельник");break;
  4. case 2:ShowMessage("Вторник");break;
  5. case 3:ShowMessage("Среда");break;
  6. case 4:ShowMessage("Четверг");break;
  7. case 5:ShowMessage("Пятница");break;
  8. case 6:ShowMessage("Суббота");break;
  9. case 7:ShowMessage("Воскресенье");break;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement