Опубликовано 6 лет назад по предмету Информатика от koshka6661

Помогите, пожалуйста,с ПаскалемCase 4 Дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 — февраль и т. д.). Определить количество дней в этом месяце для невисо- косного года. Case 10 Case10. Робот может перемещаться в четырех направлениях («С» — север, «З» — запад, «Ю» — юг, «В» — восток) и принимать три цифровые ко- манды: 0 — продолжать движение, 1 — поворот налево, −1 — поворот направо. Дан символ C — исходное направление робота и целое число N — посланная ему команда. Вывести направление робота после выполне- ния полученной команды

Ответ

Ответ дан light1974p84292

Первая задача:varn:integer;BEGINread(n);case n of 1,3,5,7,8,10,12: writeln(31); 2: writeln(28); 4,6,9,11:writeln(30); else writeln('Такого месяца нет');end;END.Над второй еще подумаю, как более короткое решение записать.
1. Ответ
  
  Ответ дан light1974p84292
  
  varc:char;s:string;n,i:integer;BEGINread(c);read(n);case c of'С': i:=1;'В': i:=2;'Ю': i:=3;'З': i:=4;end;case n of1: begin i:=i-1; if i=0 then i:=4; end;-1: begin i:=i+1; if i=5 then i:=1; end;end;case i of1:writeln('С');2:writeln('В');3:writeln('Ю');4:writeln('З');end;end. Это вторая задача
2. Ответ
  
  Ответ дан light1974p84292
  
  Первая задача вот так должна быть записана (а не в строчку):
3. Ответ
  
  Ответ дан light1974p84292
  
  varn:integer;BEGINread(n);case n of 1,3,5,7,8,10,12: writeln(31); 2: writeln(28); 4,6,9,11:writeln(30); else writeln('Такого месяца нет');end;END.
4. Ответ
  
  Ответ дан koshka6661
  
  огромное спасибо

Не тот ответ, который вам нужен?

Найди нужный

Самые новые вопросы

Другие предметы - 10 месяцев назад

В какой оболочке земли живёт большинство живых организмов?

Другие предметы - 10 месяцев назад

Из каких неживых частей состоит экосистема

Другие предметы - 10 месяцев назад

На какие расы делятся население земли

Другие предметы - 10 месяцев назад

Определение статуса военнослужащего (краткий ответ!!)

Другие предметы - 10 месяцев назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Задай вопрос

Лучшие за месяц

1

Oksana Gordienko
+798, 2 награды
2

Bianca
+743, 4 награды
3

Monna
+702, 2 награды
4

Brawer
+646, 3 награды
5

Ольга М.А.
+10.5K, 4 награды
6

Kovaleva_08
+522, 1 награда
7

Serebro
+495, 3 награды
8

Laguna
+489, 2 награды
9

Katerina_kiev
+441, 3 награды
10

Мусиенко Денис
+402, 2 награды

Интересные статьи: