- •Создание простых программ и программ с анализом данных
- •Введение
- •Лабораторная работа №1. Ввод и вывод данных
- •Задания
- •Выполнение лабораторной работы
- •Методические указания к выполнению лабораторной работы
- •Язык программирования Pascal
- •Var // объявление переменных
- •Язык программирования c
- •Лабораторная работа №2. Целые числа
- •Задания
- •Выполнение лабораторной работы
- •Методические указания к выполнению лабораторной работы
- •Язык программирования Pascal
- •Var // объявление переменных
- •Язык программирования c
- •Int a,X,y,z; // объявление переменных
- •Лабораторная работа №3. Логические выражения
- •Выполнение лабораторной работы
- •Методические указания к выполнению лабораторной работы
- •Язык программирования Pascal
- •Var // объявление переменных
- •Var // объявление переменных
- •Язык программирования c
- •Лабораторная работа №4. Условный оператор
- •Выполнение лабораторной работы
- •Методические указания к выполнению лабораторной работы
- •Язык программирования Pascal
- •Var // объявление переменных
- •Язык программирования c
- •If(логическое выражение) {первая группа операторов;} else {вторая группа операторов;}
- •Лабораторная работа №5. Оператор выбора
- •Выполнение лабораторной работы
- •Методические указания к выполнению лабораторной работы
- •Язык программирования Pascal
- •Var // объявление переменных
- •Var // объявление переменных
- •Язык программирования c
- •Библиографический список
Var // объявление переменных
M,D:Integer;
Реализация программы в среде Delphi выглядит следующим образом:
program lab5; // заголовок программы
// указание компилятору создать консольное приложение
{$APPTYPE CONSOLE}
Var // объявление переменных
M,D:Integer;
begin // начало программы
// сообщение пользователю о цели программы
writeln('Programma dlya vvedenyh mesyaca i dnya opredelaet znak zodiaka.');
// сообщение пользователю о необходимости ввода переменной
write('Vvedite M: ');
readln(M); // ввод переменной
// сообщение пользователю о необходимости ввода переменной
write('Vvedite D: ');
readln(D); // ввод переменной
case M of // анализ месяца
1: if D<=19 then // анализ дня
begin
writeln('Kozerog'); // первая группа операторов
end
else
begin
writeln('Vodoley'); // вторая группа операторов
end;
2: if D<=18 then // анализ дня
begin
writeln('Vodoley'); // первая группа операторов
end
else
begin
writeln('Ryby'); // вторая группа операторов
end;
3: if D<=20 then // анализ дня
begin
writeln('Ryby'); // первая группа операторов
end
else
begin
writeln('Oven'); // вторая группа операторов
end;
4: if D<=19 then // анализ дня
begin
writeln('Oven'); // первая группа операторов
end
else
begin
writeln('Telec'); // вторая группа операторов
end;
5: if D<=20 then // анализ дня
begin
writeln('Telec'); // первая группа операторов
end
else
begin
writeln('Bliznicy'); // вторая группа операторов
end;
6: if D<=21 then // анализ дня
begin
writeln('Bliznicy'); // первая группа операторов
end
else
begin
writeln('Rak'); // вторая группа операторов
end;
7: if D<=22 then // анализ дня
begin
writeln('Rak'); // первая группа операторов
end
else
begin
writeln('Lev'); // вторая группа операторов
end;
8: if D<=22 then // анализ дня
begin
writeln('Lev'); // первая группа операторов
end
else
begin
writeln('Deva'); // вторая группа операторов
end;
9: if D<=22 then // анализ дня
begin
writeln('Deva'); // первая группа операторов
end
else
begin
writeln('Vesy'); // вторая группа операторов
end;
10: if D<=22 then // анализ дня
begin
writeln('Vesy'); // первая группа операторов
end
else
begin
writeln('Skorpion'); // вторая группа операторов
end;
11: if D<=22 then // анализ дня
begin
writeln('Skorpion'); // первая группа операторов
end
else
begin
writeln('Strelec'); // вторая группа операторов
end;
12: if D<=21 then // анализ дня
begin
writeln('Strelec'); // первая группа операторов
end
else
begin
writeln('Kozerog'); // вторая группа операторов
end;
else writeln('Oshibjchno vveden mesyac.'); // обработка ошибки ввода месяца
end;
readln; // задерживаем закрытие консольного окна
end. // конец программы