Помогите создать процедуру Function, позволяющую при выборе страны указывать ее столицу. (Россия – Москва, Китай – Пекин, Франция – Париж) дам 15 б! Очень надо
Ответы
Ответ дал:
0
1)Функция
program fun;
function f(a : string) : string;
var
l:string;
begin
case a of
'Россия' : l:='Москва';
'Китай' : l:='Пекин';
'Франция' : l:='Париж';
else l:=('Введите страну из списка');
end;
f:=l;
end;
var
k: string ;
begin
writeln('Введите страну');
read(k);
writeln('Столица: ',f(k));
end.
2)Процедура
program fun;
procedure f(a : string) ;
var
l:string;
begin
case a of
'Россия' : l:='Москва';
'Китай' : l:='Пекин';
'Франция' : l:='Париж';
else l:=('Введите страну из списка');
end;
writeln(l);
end;
var
k: string ;
begin
writeln('Введите страну');
read(k);
f(k);
end.
Вас заинтересует
2 года назад
7 лет назад
8 лет назад