Помогите создать процедуру Function, позволяющую при выборе страны указывать ее столицу. (Россия – Москва, Китай – Пекин, Франция – Париж) дам 15 б! Очень надо
Ответы на вопрос
Ответил hello93
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 года назад
Русский язык,
2 года назад
Математика,
7 лет назад
Математика,
7 лет назад
Математика,
9 лет назад