Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/22: Рейтинг темы: голосов - 22, средняя оценка - 4.91
SBCreed
3 / 3 / 3
Регистрация: 22.03.2011
Сообщений: 71
1

По введенному номеру дня недели вывести название дня и определить, является день рабочим

22.03.2011, 17:13. Просмотров 4057. Ответов 8
Метки нет (Все метки)

Добрый вечер, нужна ваша помощь. (сам noob, Паскаль недавно начал учить)
1. В общем, есть задача
"По введенному номеру дня недели вывести название дня и
определить, является этот день рабочим или выходным."
Накидал листинг
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program day;
var a:integer;
begin
repeat
writeln('Введите номер дня');
readln(a);
case a of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
else
writeln('Номер введен не верно');
end;
if (a=6) or (a=7) then writeln('выходной') else writeln('рабочий');
until (a=1)
End.
Протокол такой:
"Введите номер дня
9
Номер введён неверно
рабочий"
Собственно вопрос, как сделать, чтобы при неверном дне недели не выводилось "рабочий" или "выходной", а просто выводилось "Номер введен не верно"?

2.
"Составить программу на языке Pascal для вычисления на ЭВМ значений выражений и значения функции, для вводимых с клавиатуры исходных данных. Вывести на экран значения исходных данных и
результатов вычислений, сопровождая вывод именами
переменных и комментариями."
Вот это вообще не пойму как.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.03.2011, 17:13
Ответы с готовыми решениями:

Вывести название дня недели по номеру дня
Напишите программу, которая выводит название дня недели по номеру дня введённому с клавиатуры....

Напишите программу, которая выводит название дня недели по номеру дня
4. Напишите программу, которая выводит название дня недели по номеру дня, введённому с...

Вывести название дня недели по введенному номеру
Написать программу, которая запрашивает у пользователя номер дня недели, затем выводит названия дня...

По введенному номеру дня недели, выдать его название
Составить программу, которая по введенному номеру дня недели, выдает его название.

8
SuPeR XaKer
2850 / 1979 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
22.03.2011, 17:21 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program day;
var a:integer;
begin
writeln('Ââåäèòå íîìåð äíÿ');
readln(a);
if (a>7) or (a<1) then
 writeln('Íîìåð ââåäåí íå âåðíî')
else
begin
case a of
 1:write('Ïîíåäåëüíèê');
 2:write('Âòîðíèê');
 3:write('Ñðåäà');
 4:write('×åòâåðã');
 5:write('Ïÿòíèöà');
 6:write('Ñóááîòà');
 7:write('Âîñêðåñåíüå');
end;
if (a=6) or (a=7) then write(' âûõîäíîé') else write(' ðàáî÷èé');
end;
End.
1
SBCreed
3 / 3 / 3
Регистрация: 22.03.2011
Сообщений: 71
22.03.2011, 19:09  [ТС] 3
Спасибо SuPeR XaKer. Теперь осталось второе. С чего начать и как?
0
SuPeR XaKer
2850 / 1979 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
22.03.2011, 19:15 4
С чего начать и как?
c того что бы залить на форум картинку.
0
SBCreed
3 / 3 / 3
Регистрация: 22.03.2011
Сообщений: 71
22.03.2011, 19:18  [ТС] 5
SuPeR XaKer, пардон, радикал опять тупит.
0
Миниатюры
По введенному номеру дня недели вывести название дня и определить, является день рабочим  
SuPeR XaKer
2850 / 1979 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
22.03.2011, 19:36 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Uses
 CRT;
Var
 x, k, c, b, y:real;
begin
 readln(y);
 if y<0 then x:=y*y*y-2
 else x:=exp(y+1.5);
 b:=(x*x-sin(abs(x)))/(2*y);
 c:=exp(ln(b*b+2*b)/3)/(3-exp(b));
 k:=(3.5+cos(c))-sin(c/2);
 writeln(k);
 readln
end.
1
SBCreed
3 / 3 / 3
Регистрация: 22.03.2011
Сообщений: 71
22.03.2011, 20:01  [ТС] 7
SuPeR XaKer, спасибо большое. Скажи, а вот условие y>=0 куда потерялось Ну то есть "если y<0, то x=****, иначе y>0. А куда подевалось y=0?
0
SuPeR XaKer
2850 / 1979 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
22.03.2011, 20:03 8
здесь 2 случая в одном если y>0 то считаем по одной формуле,если y>=0 то по другой условие писать здесь не нужно а просто else ведь >= это остальные случаи.
0
SBCreed
3 / 3 / 3
Регистрация: 22.03.2011
Сообщений: 71
22.03.2011, 20:09  [ТС] 9
SuPeR XaKer, ааа, теперь всё стало на свои места. Спасибо большое ещё раз)
0
22.03.2011, 20:09
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.03.2011, 20:09

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Написать программу, которая по номеру дня недели (целому числу от 1 до 7) выдает в качестве результата название дня недели
!!!!!

Написать программу, которая бы печатала название дня недели по введенному номеру
Написать программу, которая бы печатала название дня недели по введенному номеру.

Составить программу, которая по введенному номеру дня недели, выдает его название
Составить программу, которая по введенному номеру дня недели, выдает его название.

Составьте программу, печатающую по номеру дня недели (число от 1 до 7) название этого дня
Составьте программу, печатающую по номеру дня недели (число от 1 до 7) название этого дня...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.