Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Цель работы: познакомиться с операторами ввода/вывода, присвоения, безусловного перехода, составными и пустыми операторами языка Pascal. Научиться применять оператор условного перехода.
Задача:
Используя оператор условного перехода, напишите программу, которая запрашивает у пользователя номер одного из зимних месяцев, и выводит количество дней в этом месяце. Программа должна проверять, является ли введенный месяц зимним;
Исходный код:
uses crt;
Var
n:integer;
Begin
writeln('Введите номер зимнего месяца:');
readln(N);
if (n<>1) and (n<>12) and (n<>2) then writeln('Месяц не зимний');
if (n=1) then writeln('Январь 31');
if (n=2) then writeln('Февраль 29');
if (n=12) then writeln('Декабрь 31');
readln;
end.
Рис. 5 – Результат работы программы
Вывод: в ходе работы мною были изучены операторы условного перехода и написана программа с их использованием.
Лабораторная работа 4
Цель работы: Научиться работать с одномерными массивами и операторами цикла WHILE...DO и REPEAT...UNTIL.
Задача:
заменить последний элемент массива минимальным (10);
Исходный код:
uses crt;
Var
a: array [1..10] of integer;
t,min,i:integer;
Begin
writeln(' Массив a:');
i:=1;
min:=10000;
Дата публикования: 2015-07-22; Прочитано: 273 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!