Решение квадратного уравнения. Оператор варианта. Вычисление площадей фигур. 10. Примерные задания к контрольной работе
Скачать 443 Kb.
|
Begin{ тело основной программы } Readkey; или Readln; - ожидание нажатия клавиши (Enter) для просмотра результата. End. Зарезервированные слова нельзя использовать в качестве имен переменных, констант, функций, процедур и типов. Текст программы может записываться как большими, так и маленькими буквами. Русские буквы используются только для комментариев, которые записываются двумя способами: { текст комментария } или (* текст комментария *). ОПЕРАТОР ВЫВОДА ИНФОРМАЦИИ НА ЭКРАН write(a); - стандартная процедура вывода значения переменной «а» или результата вычисления арифметического выражения на экран writeln(а); - вывод с последующим переводом строки writeln; - стандартная процедура перевода курсора на новую строку write(x:8:4) - форматированный вывод (8-общее кол-во позиций, 4-дробная часть) Например: на экране: если А:=2; Write(a); 2 Writeln(a); 2 и переход на следующую строку Write(‘a=’,a); a=2 Write(‘a=’,a,’ метров’); a=2 метров Write(‘Y=’, 4+6); Y=10 Write(‘S=’,a,’*’,3,’=’,a*3); S=2*3=6, если a=2 Write(‘z=’,z:8:4); z=135.6432, если z=1,356432223e02 Writeln(‘погода’); погода Writeln(‘хорошая’); хорошая Write(‘погода ’); Writeln(‘хорошая’); погода хорошая Для вывода в заданную позицию экрана перед командой Write используется команда GotoXY(C,R); которая устанавливает курсор в позицию C строки R. Размеры текстового экрана в Turbo Pascal 7.0 80х25. 80-количество позиций в строке, 25-количество строк. Следовательно, C может меняться от 1 до 80, а R – от 1 до 25 (обязательно целые числа!). Например: GotoXY(38,12); Write(‘Hello’); - выводит слово ‘Hello’ в центре экрана. ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 2 Работа компьютера в режиме калькулятора (вычисления) З А Д А Н И Я:1. Набрать программу: {пояснения к программе:} Program Primer; uses crt; { -название программы 'Primer'. Объявлен модуль crt} Begin { -начало программы} Clrscr; { -очистка экрана или окна вывода} write('Y=', 6+3 ); readkey; { -вывод на экран результата Y=9.} End. { -конец программы} 2. Запустить (исполнить) программу { -нажать Ctrl+F9} 3. Вычислить: 17+34 ; 24,7+56 ; 24:3 ; 5-6 ; │-9│ ; 12/3/4 ; . 4. Вычислить: Ответ: -3.941621 Ответ: ( 4.1 ) Ответ: -0.2496655 5. Вычислить: и вывести ответ в центре экрана. ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 3 РЕШЕНИЕ МАТЕМАТИЧЕСКИХ ВЫРАЖЕНИЙЛИНЕЙНАЯ ПРОГРАММАЛИНЕЙНОЙ называют программу, реализующую конструкцию следования, когда инструкции расположены одна под другой и последовательно выполняются. := - символ присваивания переменным значений; x:=3.4 - инструкция присваивания (переменной х присваивается значение 3.4). readln(а); - стандартная процедура ввода значения переменной а с клавиатуры З А Д А Н И Я: 1. Набрать готовую программу вычисления площади прямоугольника S=a*b. Во всех программах не забывать в начале Uses crt; и в конце readkey: или readln; Program Area; Uses crt; { Л И Н Е Й Н А Я ПРОГРАММА (см. конспект)} var a,b,s: real; { описание переменных. Тип вещественный } Begin { начало программы S } ClrScr; { очистка экрана. От англ. CLeaR SCReen } write('a='); readln(a); {ввод длины и переход на следующую строку} write('b='); readln(b); {ввод ширины и переход на следующую строку} s:=a*b; { вычисление по формуле } write('S=',s); { вывод результата на экран } readkey; {удержание изображения до нажатия клавиши} End. { конец программы Area } Запустить программу. Получить результат. 2. Добавить в программу комментарий к вводу переменных и выводу ответа (Например: Введите сторону а= Площадь прямоугольника S= ). 3. Составить программу вычисления площади круга: 4. Составить программу вычисления площади треугольника: 1) выделить целую часть результата; 2) выделить дробную часть результата; 3) получить целый остаток от деления; 4) округлить результат 5) округлить до целого, не превосходящего результат. 5. Составить программу вычисления выражения: Y=Sin(a+b/2) при a=15, b=30 (градусов). |