4 Структура программы 4.1 Упражнение для практических работ 1 В приведенной ниже программе много ошибок. Постарайтесь найти их и исправить. Некоторые ошибки очень несуразные, например, пропущена точка с запятой. Есть и неправильно написанные слова, и некоторые другие ошибки. Когда вы сочтете, что все ошибки исправлены, попытайтесь выполнить программу, чтобы убедиться в том, что это действительно так. programs; probl7; < Коминтарийправельный
| а) program A; | ||
| const d = 5; | ||
| begin d := sqr ( d ); | writeln ( ‗ d**2 = ‗ , d) | end. |
| б) program Б; | ||
| const k = true; | ||
| var x : real; | ||
| begin read ( x ); writeln ( ord (x) = k ) end. | ||
| в) program B; | ||
| var a, b, c : integer; | ||
| begin read ( a, b ); | writeln ( ( a+b+c) / 3 ) | end. |
2 Можно ли в приведенной ниже программе задать в качестве исходных данных числа 5.0 и 6.2? Program umnozenie; var a : integer; b : real; begin read ( a, b ); writeln ( a*b ) end. 3 Рассмотрим структуру блока begin..end begin s1 s2 s4 end, где s1..s4 – операторы Проставьте в нужных местах необходимые точки с запятой. 4 Укажите правильное высказывание : а) Программа на языке Паскаль обязательно должна иметь заголовок;. б) В программе обязательно должны присутствовать все разделы описаний : описание типов, переменных, констант и т.д.; в) В начале выполнения программы значения переменных не определены; г) Раздел описания типов начинается служебным словом BEGIN. 13
Как исправить ошибку Microsoft Visual C++ Runtime Library при запуске Stray
5 Могут ли в программе отсутствовать один или больше разделов описаний: определение типов, констант, описание переменных и т.д.? 6 Укажите неверные утверждения : а) комментарий может располагаться в любом месте программы; б) комментарий открывается символом < и закрывается символом >; в) комментарий открывается символом (* и закрывается символом *); г) В Паскаль-программе не допустим вложенный комментарий. 7 Вложенный комментарий оформляется в виде ( укажите неверные утверждения): а)< внешний комментарий (* вложенный *) продолжение внешнего>; б) ( внешний комментарий продолжение внешнего); в) (* внешний комментарий (* вложенный *) продолжение внешнего*). 8 Укажите верные высказывания : а) Символ ‗;‘ служит для разделения предложений в программе; б) Каждое предложение языка должно заканчиваться ‗;‘ ; в) Каждый оператор должен располагаться в отдельной строке; г) Перед служебным словом END не обязательно ставить ‗;‘ . д) В одной строке могут располагаться несколько операторов. 9 Укажите строку, верно указывающую ошибку в следующей программе: const b = 2.25; var a,b : real; begin read ( a, c ); write ( a*c > b) end. а) Отсутствует заголовок;. б) Неверное обращение к процедуре WRITE; в) Дважды описана переменная b. 10 Укажите строку, верно указывающую ошибку в программе: Program a; var x : real; begin read ( x ); y := sqrt ( x ) + 1 end. а) Неверное использование функции SQRT; 14
Ошибка Microsoft Visual C++ Runtime Library как исправить в Windows 10 8.1 и Windows 7
б) Не описана переменная у; в) Отсутствует раздел определения типов. 11 Укажите строки, верно указывающие ошибки в программе: Program PR; var a : real; pr : byte; begin read ( a, pr ); write ( a>pr ) end. а) Нельзя сравнивать переменные типа REAL и BYTE; б) Неверное обращение к процедуре WRITE; в) Дважды описан идентификатор PR. 12 Укажите строку, верно указывающую ошибку в программе: const a := 2; begin a := sqrt ( a ); write ( a ); end. а) Отсутствует заголовок; б) Функция SQRT применена неправильно; в) Нельзя изменять значения констант. 13 Укажите строки, верно указывающие ошибку в программе: const a = 1.0; var type : real; begin type := a*ln ( a ); write ( a ) end. а) Неверно описана константа; б) Отсутствует заголовок; в) Служебное слово TYPE нельзя использовать в качестве идентификатора. 15
5 Процедура ввода и процедура вывода 5.1 Упражнения для практических работ 1 Что будет на экране в результате выполнения операторов: а) write (‗Это текст ‘); б) writeln (‗Ваш аналоговый счет за год составляет $‘, tax:5); в) writeln (aores : 4,‗ акров не обработано‘); 2 Что будет на экране в результате выполнения операторов:
| а) writeln (‗Первая строка‘); | б) write (‗Первая строка‘); |
| writeln (‗Вторая строка‘); | write (‗Вторая строка‘); |
3 Запишите оператор writeln для вывода следующей строки на экран: What‘s your name? 4 Запишите оператор writeln для ввода переменной debet с размером поля для нее 12. 5 Что будет на экране в результате работы программы: program aver; var first, second, third: integer; sum: integer; begin first:=5; second:=17; third:=8; sum:=first + second + third; writeln (‗Среднее значение‘, third:4, ‘ , ‘ , second:4, ‗и‘) writeln (third:4, ‗равно‘, (sum div 3):3) end. 6 Покажите, что будет напечатано в результате выполнения представленной ниже последовательности предложений write и writeln. Внимательно проследите, где в тексте выдачи предусмотрено появление пустых строк. write (‗a‘); 16
writeln (5+2); write (‗b‘, ‗c‘); writeln (‗d‘, ‗e‘, ‗f‘, ‗g‘); writeln (‗h‘); writeln (4E+1); <число с плавающей запятой>write (‗I‘, ‗j‘, ‗k‘); write (‗l‘, ‗m‘, ‗n‘, ‗o‘, ‗p‘); write (‗g‘); write (‗r‘); write (3,3.0E-1); writeln (‗a‘); writeln; writeln; writeln (‗t‘, ‗u‘, ‗v‘, ‗w‘, ‗x‘, ‗y‘, ‗z‘); 7 Предположим, пользователь вводит по мере необходимости данные, сгруппированные в четыре строки, как показано ниже. Проследите шаг за шагом, какие значения будут считаны в переменные a, b, c и d при выполнении программы. Покажите, что напечатает эта программа. Program prog; Var a, b, c: real; d: integer; begin readln (a, b, c, d); writeln; writeln (a:5:2, b:5:2, c:5:1, d); readln (a); readln(a, b, c); writeln; write (a:7:2, b:6:2, c:6:2, d); readln (b, c, d); 17
writeln; writeln; writeln (a:7:2, b:6:2, c:4:1, d)
| end. | |||
| Входные данные: | |||
| 1.35 | 2.1 | -9.2 | 13 |
| 15 | |||
| 123.45 | 678 | ||
| 12.39 | -5 | 5 | |
8 Предположим, что переменная с из предыдущего упражнения 7 объявлена с типом integer, а не real. Как это скажется на выполнении программы? 9 Предположим, что все 4 переменные в упражнении 7 объявлены с типом real. Что в этом случае будет напечатано? 10 Предположим, что при вводе последней строки в упражнении 7 будет набрано: 12.39-55 (верно: 12.39 -5 5), т.е. последние два символа введены без пробела.
Как это повлияет на выполнение программы? 11 Что будет напечатано программой, если введены числа 1, 2, 3? Program ab; Var a, b:integer; begin read (a, b, a); writeln (a, b, a) end. 12 Что будет напечатано программой? Program pp; var x:integer; begin x:=2; writeln (‗x+1‘) end. 18
13 Когда процедура вывода writeln (x 1 , … , x n ) осуществляет перевод строки: до печати первого параметра х 1 или после печати последнего параметра х n ? 14 Что получится в результате выполнения оператора: write (5 <6, 5<=6:5); 15 Что получится в результате выполнения оператора: writeln ( 16:0:1 )? Номер правильного ответа? а)16 б) 16.0 в)1.6+Е01 16 Что получится в результате выполнения оператора: writeln (5*3.2:4:1, ‗ результат‘)? 17 Что получится в результате выполнения оператора: writeln (‗a‘:3, 2:1)? 18 Пусть требуется осуществить некоторую обработку набора данных, в котором число 0 играет роль концевого значения (нулевое значение обрабатывать не надо). Какой фрагмент работает правильно?
| a)Var num: integer; | б) var num: integer; |
| num:=1; | readln (num); |
| while num <> 0 do | while num <> 0 do |
| begin | begin |
| readln (num); | обработка num; |
| обработка num end; | readln (num) end; |
5.2 Задания для лабораторно-практических работ 1 Напишите программу в Паскале, которая выполнит следующие действия: считает число 3.10 или 2.50, выполнит для него вычисления по какой-либо формуле, отпечатает значение числа и результат вычислений по формуле. 2 Организовать ввод и вывод данных заданных типов в диалоговом режиме, снабдив вывод на экран соответствующими заголовками.
Целые числа: заданное количество, формат: стандартный, с заданной шириной поля. Вещественные числа: заданное количество, формат: стандартный, с заданной шириной поля, с заданным количеством знаков после запятой. Вывести значение булевской переменной: true или false с заданным количеством символов. 19
3 Напишите программу, которая будет считывать месяц, день и год. Программа должна выводить эти данные в стандартном формате мм-дд-гг. Например, при вводе 9 3 1991 должно быть выведено 9-3-1991. 4 Напишите программу, которая спрашивает имя и здоровается с его обладателем. 5 Напечатайте таблицу с заголовком, в которой должно быть записано введенное число и его квадрат.
6 С помощью оператора writeln напишите рекламное сообщение на 5-6 строк. 20
Источник: studfile.net
Найдите ошибку в следующей программе program a1
Найдите ошибки в каждый из следующих программ:
1)
program A;
const d=5;
begin d:=sqr(d);
writeln(‘d**2=’,d)
end.
2) program B;
const k=true;
var x:real;
begin read(x);
writeln(odd(x)=k)
end.
Выполните трассировку и ответьте на вопросы по заданному фрагменту программы:
for i:=1 to n do
begin j:=2;
while j begin write(i+j);
j:=j+2
end;
writeln
end.
1)Сколько раз будет выполнен оператор write(i+j)?
2)Сколько строчек будет напечатано?
Что такое описание процедуры функции и чем оно отличается от оператора процедуры функции.
Заранее большое спасибо.
Источник: www.programmersforum.ru
Найдите ошибку в программе program al
•Program Test ; •Var A, B, C : integer ; •Begin •Readln (A, B) ; •C : = (A + B) * (B — C) ; •Writeln (C) ; •End.
•Какой результат будет получен, если в качестве исходных значений A и B ввести соответственно 7 и 8?
Cookieschool 14 февр. 2021 г., 03:22:21 | 5 — 9 классы
ЗАДАНИЕ 3?
НАЙДИТЕ ОШИБКИ В ПРОГРАММЕ : Program control ; Var x, y, z : integer ; Begin x : = 5 ; y : = 7 ; z : = x + y ; writeln (z = x + y, z) ; end.
Nikitosik22222222222 25 мая 2021 г., 09:20:39 | 5 — 9 классы
Определить тип синтаксической ошибки в программе?
Определить тип синтаксической ошибки в программе.
var b, c : integer ;
readln (b) ; if b> = 0 then c : = b * b ; else c : = — b * b * b ; writeln (‘c = ’, c) ;
1) неописанный идентификатор 2) ошибка в записи оператора 3) неверная константа 4) ожидается Begin.
Найдите ошибки в следующей программе :Program int_r ;Var a, x : integer ; b, c : real ;Begina : = 10 ;b : = 5?
Найдите ошибки в следующей программе :
Var a, x : integer ; b, c : real ;
Найдите ошибки в следующих программах :Program int_r ;Var a, x : integer ;b, c : real ;Begina : = 10 ;b : = 5?
Найдите ошибки в следующих программах :
Var a, x : integer ;
Var a, c : integer ;
Объясните строчку ( c : = 10 * c + a mod 10 ; a : = a div 10 ; )program pr36 ;function qwer(var a, b : integer) : integer ;var c : integer ;beginc : = 0 ;while a > 0 do begin c : = 10 * c + a mod 10 ?
Объясните строчку ( c : = 10 * c + a mod 10 ; a : = a div 10 ; )
function qwer(var a, b : integer) : integer ;
while a > 0 do begin c : = 10 * c + a mod 10 ; a : = a div 10 ;
var a, b : integer ;
Program olimpserg4iyl ;uses crt ;var a, v, c, d : integer ;begina : = random (100000) ;writeln (‘ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ‘) ;writeln ?
var a, v, c, d : integer ;
a : = random (100000) ;
Marinamilina 31 мар. 2021 г., 21:48:43 | 5 — 9 классы
Написать программу нахождения периметра параллелограмма по известным сторонам c и h (c и h — целые числа, вводимые с клавиатуры)?
Написать программу нахождения периметра параллелограмма по известным сторонам c и h (c и h — целые числа, вводимые с клавиатуры).
Program nn ;var a, b, i : integer ; c : real ;begini : = 0 ;b : = 0 ;repeatreadln(a) ; beginif a mod 8 = 0then b : = b + a ;i : = i + 1 ;end ;until a = 0 ;c : = b / i ;writeln(c) ;end?
var a, b, i : integer ; c : real ;
Вот кусочек программы , как сделать так что бы после if A = B then begin writeln(‘?
Вот кусочек программы , как сделать так что бы после if A = B then begin writeln(‘.
‘) ; end программа не останавливалась Program BOOM ;
var A, B : integer ;
if A = B then begin writeln(‘.
else begin writeln(‘ .
Вопрос Найдите ошибку в программе?, расположенный на этой странице сайта, относится к категории Информатика и соответствует программе для 5 — 9 классов. Если ответ не удовлетворяет в полной мере, найдите с помощью автоматического поиска похожие вопросы, из этой же категории, или сформулируйте вопрос по-своему. Для этого ключевые фразы введите в строку поиска, нажав на кнопку, расположенную вверху страницы. Воспользуйтесь также подсказками посетителей, оставившими комментарии под вопросом.
НАЧАЛО ВВОД : C, X, Y A : = X + Y B : = A — C Т : = A + B ВЫВОД : Т КОНЕЦ.
83÷3 = 29. 666666 18 + 89 = 107.
89. 3 = 29, 6667 18 + 89 = 107.
Ответ 4 — X или — Y и — Z первый приоритет И, второй приоритет ИЛИ 1 строка : — 0 или — 0 и — 0 = 1 или 1 и 1 = 1 или 1 = 1 2 строка : — 0 или — 0 и — 1 = 1 или 1 и 0 = 1 или 0 = 1 3 строка : — 0 или — 1 и — 0 = 1 или 0 и 1 = 1 или 0 = 1.
32 + 4 = 36 36 + 2 = 38 ответ большего будет правильный тоесть б)38.
Bool Double = true ; for(int i = 1 ; i.
Всего 1508 цифр. Начинаем с 4. Тогда будем считать количество однозначных, двухзначных и трёхзначных номеров устраниц. 5, 6, 7, 8, 9 — всего 5, тогда 1508 — 5 = 1503 стр. Не указал 4, так как на ней начинается первая глава. Её и добавим с главам..
V = k * i k = 200 * 150 = 30000 16 = 2 ^ i ; i = 4 бита ; V = 4 * 30000 = 120000 бит = 15000 байт.
- Программа для андроид для селфи
- Как в 1с произвести выплату через банк
- Как сделать текст в перспективе в фотошопе
- 1с старт закрыть ип
- Авансовые отчеты в 1с бгу 2 пошаговая инструкция
Источник: kompyutery-programmy.ru