case (Delphi)

[BaseKick]

Доброго времени суток Ув. программисты. Объясните пожалуйста как пользоватся оператором "case" в Delphi. Есле можно то с примером кода пожалуйста. Заранее спасибо.

[MaxNik2009]

>>>Вот<<< тебе описание case с примерами.

[BaseKick]

Огромное спасибо.

[BaseKick]

Вообщем попробывал написать:
Условие задачи:"Ввести номер студента из списка(n).Соответственно к этому числу вывести на экран фамилию студента и его средний бал. Проверить, есле средний бал меньше 8ми, то вывести на экран сообщение,что студент лишается степендии."

Вот такой код получился:
var n,o:integer;
begin
writeln('number of student(n)');
readln(n);
case n of
1:writeln('Sidorov');
2:writeln('Petrov');
3:writeln('Ivanov');
4:writeln('Popov');
5:writeln('Bagrov');
6:writeln('Vasiliev');
7:writeln('Panin');
8:writeln('Kobalev');
9:writeln('Artemenko');
10:writeln('Nikiforov');
case o of
1:writeln(9);
2:writeln(5);
3:writeln(8);
4:writeln(9);
5:writeln(4);
6:writeln(8);
7:writeln(4);
8:writeln(5);
9:writeln(10);
10:writeln(7);
if o<8 then
writeln('student leshaetsya stependii');
end.

Не знаю что делать

[Niro]

Если правильно понял, то можно так

begin
writeln('number of student(n)');
readln(n);
case n of
1: begin writeln('Sidorov'); oc:=9; end; {oc - средний бал}
2: begin writeln('Petrov'); oc:=5; end;
3: begin writeln('Ivanov'); oc:=8; end;
...............................................
end;
if oc<8 then writeln('Студент лишается стипендии');
end;

[BaseKick]

Сообщение от Niro

writeln('Студент лишается стипендии');

Вот в этой строке выдаёт ошибку "constant expression expected"

[BaseKick]

Прошу прощения. Нашёл ошибку, исправил. Спасибо.

[scorp007]

Здравствуйте, у меня такая проблема, в общем, есть одна диаграмма(ERwin), которую нужно связать с базой данных в программе Delphi, как мне это сделать, подскажите пожалуйста, заранее спасибо.

[Вадим Мошев]

Сообщение от scorp007

Здравствуйте, у меня такая проблема, в общем, есть одна диаграмма(ERwin), которую нужно связать с базой данных в программе Delphi, как мне это сделать, подскажите пожалуйста, заранее спасибо.

Создайте новую тему для своего вопроса