Алгоритми і програми з розгалуженнями, Детальна інформація
Алгоритми і програми з розгалуженнями
Тип документу: Реферат
Сторінок: 6
Предмет: Комп`ютерні науки
Автор: Олексій
Розмір: 11.4
Скачувань: 2216
end.
або інший приклад:
case k of
1; cina:=22,
2,3: cina:=35;
4: cina:=50;
else cina:=97
end;
3. Складена команда.
Складена команда – це команда, в якій декілька команд об’єднано в одну за допомогою службових слів begin та end:
Задача. Скласти програму, яка дає довідку про назву столиці (St) та кількість населення (nas, у мільйонах) деякої країни (kr) з такого переліку: Угорщина, Італія, Україна.
program Countries;
var kr, st: string; nas: integer;
begin
write (‘Введіть назву країни’);
readln (kr);
if kr = ‘Угорщина’ then
begin
st:= ‘Будапешт’;
nas:=11
end;
if kr = ‘Італія’ then
begin
st:= ‘Рим’;
nas:=60
end;
if kr = ‘Україна’ then
began
st:= ‘Київ’;
nas:= 48
або інший приклад:
case k of
1; cina:=22,
2,3: cina:=35;
4: cina:=50;
else cina:=97
end;
3. Складена команда.
Складена команда – це команда, в якій декілька команд об’єднано в одну за допомогою службових слів begin та end:
Задача. Скласти програму, яка дає довідку про назву столиці (St) та кількість населення (nas, у мільйонах) деякої країни (kr) з такого переліку: Угорщина, Італія, Україна.
program Countries;
var kr, st: string; nas: integer;
begin
write (‘Введіть назву країни’);
readln (kr);
if kr = ‘Угорщина’ then
begin
st:= ‘Будапешт’;
nas:=11
end;
if kr = ‘Італія’ then
begin
st:= ‘Рим’;
nas:=60
end;
if kr = ‘Україна’ then
began
st:= ‘Київ’;
nas:= 48