Паскаль АВС. Программа вывводит дату следующего дня. Чтоб не утяжелять программу, не стал писать проверку правильности введения даты - то есть пользователь должен вводить только правильные цифры :)
Program Upmixer; var day, month, year:integer; begin writeln('Введите дату:'); write('День:'); read (day); write('Месяц:'); read (month); write('Год:'); read (year); day:=day+1; {если было введено 29 февраля високосного года} if (((year mod 4)=0) and ((year mod 100)<>0) and (month=2) and (day=30)) then begin day:=1; month:=month+1; end; {если было введено 28 февраля невисокосного года} if (((year mod 4)<>0) and (month=2) and (day=29)) then begin day:=1; month:=month+1; end; {другие дни} if ((day=31) and ((month=4) or(month=6) or (month=9) or (month=11))) then begin day:=1; month:=month+1; end; if ((day=32) and ((month=1) or(month=3) or (month=5) or (month=7) or (month=8) or (month=10))) then begin day:=1; month:=month+1; end; {31 декабря} if ((day=32) and (month=12)) then begin day:=1; month:=1; year:=year+1; end; writeln('Завтра ', day,' ',month,' ',year); end.
Данная программа выдаёт ошибку. Давайте для начала её отладим Program Summ; Var a, b, c: integer; Begin Writeln ('введите первое число: ' ); Readln (a); Writeln ('Введите 2-рое число:'); Readln (b); c:a+b; {вот на этом этапе компилятор нам выдаст ошибку строка должна выглядеть так c:=a+b; } writeln ( 'Результат =' ,c); End.
ну а теперь можно её и разобрать Var a, b, c: integer; Объявляем переменные Begin Writeln ('введите первое число: ' ); выводим на экран предложение ввести число Readln (a); присваиваем переменной А введённое число Writeln ('Введите 2-рое число:'); выводим на экран предложение ввести число Readln (b); присваиваем переменной В введённое число c:=a+b; Присваиваем переменной С сумму чисел А и В writeln ( 'Результат =' ,c); Выводим результат End.
21 Гб =22020096 Кб
Дальше сама. Всё же просто .