Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Truly
0 / 0 / 0
Регистрация: 03.03.2009
Сообщений: 19
1

Функции

30.06.2009, 14:26. Просмотров 466. Ответов 7
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program uzd;
uses crt;
var d:string; s:string;
begin
write('Ievadiet datumu: ');
read(d);
s:=copy(d,4,2);
case s of
1:='janvaris';
2:='februaris';
3:='marts';
4:='aprils';
5:='maijs';
6:='junijs';
7:='julijs';
8:='augusts';
9:='septembris';
10:='oktobris';
11:='novembris';
12:='decembris';
delete(d,4,2);
insert(s,d,4);
end.
что у меня не так ?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.06.2009, 14:26
Ответы с готовыми решениями:

Процедуры и функции: вычислить значения функции на заданном отрезке с заданным шагом
ребята, помогите, пожалуйста! Срочно нужна такая программка по выделенному...

Вычисление значения функции с помощью разложения функции в степенной ряд
составить программу для вычисления значения функции y=1/(1+x) с помощью...

Составить программу вычсления функции с использованием подпрограммы-функции при x=-0.45
Помогите решить L=x-\frac{x^3}{3!}+\frac{x^4}{5!}+\sqrt{2x}+\sqrt{4x} вот...

Напечатать таблицу значений функции на отрезке [a, b] с шагом h. Найти корень функции на этом интервале
Напечатать таблицу значений функции на отрезке с шагом h. Найти корень функции...

Составить программу для вычисления значения функции с помощью разложения функции в степенной ряд
Составить программу для вычисления значения функции y=e^-x с помощью разложения...

7
John_Pa9JIbHuK
Добрый самаритянин
1101 / 617 / 136
Регистрация: 31.03.2009
Сообщений: 2,568
30.06.2009, 14:40 2
ты переменную string сравниваешь с цифрой
0
Puporev
Модератор
54998 / 42298 / 29208
Регистрация: 18.05.2008
Сообщений: 99,939
30.06.2009, 14:41 3
А что так? Задание где?
Ясно что строка не является подходящим типом для case. Нужно
Pascal
1
2
3
s:=copy(d,4,2);
val(s,t,c);//t,c - переменные типа integer
case t of
0
John_Pa9JIbHuK
Добрый самаритянин
1101 / 617 / 136
Регистрация: 31.03.2009
Сообщений: 2,568
30.06.2009, 14:42 4
потом к чему ты присваеваешь эти месяца
0
Truly
0 / 0 / 0
Регистрация: 03.03.2009
Сообщений: 19
30.06.2009, 14:46  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
А что так? Задание где?
Ясно что строка не является подходящим типом для case. Нужно
Pascal
1
2
3
s:=copy(d,4,2);
val(s,t,c);//t,c - переменные типа integer
case t of
Надо ввести дату (прм. 12.12.2009) и месяц заменить названием.
сейчас попробую.

Добавлено через 3 минуты 27 секунд
Цитата Сообщение от Puporev Посмотреть сообщение
А что так? Задание где?
Ясно что строка не является подходящим типом для case. Нужно
Pascal
1
2
3
s:=copy(d,4,2);
val(s,t,c);//t,c - переменные типа integer
case t of
Непонимаю ... куда вставить с и откуда она ?
Сможешь вписать в код ?
0
Puporev
Модератор
54998 / 42298 / 29208
Регистрация: 18.05.2008
Сообщений: 99,939
30.06.2009, 14:47 6
Я же написал
t,c - переменные типа integer, а вставить в раздел var, можно еще в одно место, но не скажу.
0
Truly
0 / 0 / 0
Регистрация: 03.03.2009
Сообщений: 19
30.06.2009, 14:54  [ТС] 7
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program uzd;
uses crt;
var d:string; s:string; t,c:integer;
begin
write('Ievadiet datumu: ');
read(d);
s:=copy(d,4,2);
val(s,t,c);
case t of
01:='janvaris';
02:='februaris';
03:='marts';
04:='aprils';
05:='maijs';
06:='junijs';
07:='julijs';
08:='augusts';
09:='septembris';
10:='oktobris';
11:='novembris';
12:='decembris';
delete(d,4,2);
insert(t,d,4);
end.
Не могу понять что дальше ... (
0
Puporev
Модератор
54998 / 42298 / 29208
Регистрация: 18.05.2008
Сообщений: 99,939
30.06.2009, 15:10 8
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
program uzd;
uses crt;
var d,s:string;
    t,c:integer;
begin
clrscr;
write('Ievadiet datumu: ');
readln(d);
s:=copy(d,4,2);
val(s,t,c);
case t of
1:s:='janvaris';
2:s:='februaris';
3:s:='marts';
4:s:='aprils';
5:s:='maijs';
6:s:='junijs';
7:s:='julijs';
8:s:='augusts';
9:s:='septembris';
10:s:='oktobris';
11:s:='novembris';
12:s:='decembris';
end;
delete(d,3,4);
insert(' '+s+' ',d,3);
write(d);
readln
end.
1
30.06.2009, 15:10
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.06.2009, 15:10

создать программу ,которая по первой букве функции выводит собщение о назначении данной функции
Вообщем такое задание :Дан список элементарных функций языка PASCAL: sin (x),...

Вычисление функции y=ch(x) с помощью разложения функции в степенной ряд
составить программу для вычисления функции y=ch(x) с помощью разложения функции...

Нахождение значения функции с использованием процедуры или функции
Найти значение функции у, использовать не менее 1й подпрограммы функции или...


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

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

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