Оператор выбора

@alexblack37 · Регистрация: 16.12.2015

Студворк — интернет-сервис помощи студентам

Имеется пронумерованный список деталей: 1) шуруп, 2) гайка, 3) винт, 4) гвоздь, 5) болт. Составить программу, которая по номеру детали выводит на экран ее название.

@JuriiMW · 20.10.2017, 07:03

По идеи, проще вот так:

Pascal

const names : array [1..5] of String[10] = ('шуруп', 'гайка', 'винт', 'гвоздь', 'болт');
var n : Integer;
begin
  Read(n);
  if (n < 1) or (n > 5) then WriteLn('error') else WriteLn(names[n]);
end.

А через оператор выбора так:

Pascal

var n : Integer;
begin
  Read(n);
  case n of
    1 : WriteLn('шуруп');
    2 : WriteLn('гайка');
    3 : WriteLn('винт');
    4 : WriteLn('гвоздь');
    5 : WriteLn('болт');
  else
    WriteLn('error');
  end;
end.

Но это не красиво ;–(

@alexblack37 0 / 0 / 0 Регистрация: 16.12.2015 Сообщений: 10
		1
	Оператор выбора 20.10.2017, 01:28. Показов 1292. Ответов 1 Метки нет (Все метки) Имеется пронумерованный список деталей: 1) шуруп, 2) гайка, 3) винт, 4) гвоздь, 5) болт. Составить программу, которая по номеру детали выводит на экран ее название. 0

	20.10.2017, 07:03

Опции темы

Оператор выбора

Решение