Оформляем на листах А4 (от руки или на компьютере). Первый лист –
титульный. Проект, включает в себя следующие пункты:
1. Условие задачи
2. Блок-схема задачи
3. Программа, записанная на языке Паскаль
4. Таблицу из трех тестирующих примеров
Пояснение
Тестирующий пример — это набор входных данных, заданных
пользователем для проверки работо алгоритма. При проверке
разветвляющихся алгоритмов необходимо в качестве входных данных задать
такие величины, чтобы охватить все возможные варианты.
Например, для программы
y:=0;
If x>0 then y:=x+1 else y:=x
Необходимо предусмотреть входные данные, исходя их условия х>0
Возможны 3 варианта: х — положительное, х — отрицательное, х=0
Следовательно, можно взять следующие тестирующие входные
данные.
х= –1 (отрицательное), х=0, х=5
Тогда после выполнения программы увидим
при x= –1 y= –1;
при x=0 y=1;
при x=5 y=6
это и есть тестирующие примеры.
Нужно решить эту задачу
Напишите программу-модель анализа пожарного датчика в помещении,
которая выводит сообщение «Пожарная ситуация», если температура (ее
значение вводится с клавиатуры) в комнате превысила 60 ºС
Квадрат разлинован на N×N клеток (1 < N < 17). Исполнитель Робот может перемещаться по клеткам, выполняя за одно перемещение одну из двух команд: вправо или вниз. По команде вправо Робот перемещается в соседнюю правую клетку, по команде вниз – в соседнюю нижнюю. При попытке выхода за границу квадрата Робот разрушается. Перед каждым запуском Робота в каждой клетке квадрата лежит монета достоинством от 1 до 100. Посетив клетку, Робот забирает монету с собой; это также относится к начальной и конечной клетке маршрута Робота.
Определите максимальную и минимальную денежную сумму, которую может собрать Робот, пройдя из левой верхней клетки в правую нижнюю.
В ответе укажите два числа – сначала максимальную сумму, затем минимальную.
Исходные данные представляют собой электронную таблицу размером N×N, каждая ячейка которой соответствует клетке квадрата.
1)x = (input('x= '))
y = (input('y= '))
z = (input('z= '))
c = ((x % 3 == 0) and (y % 3 == 0) and (z % 3 == 0))
print(
else:
print
2)uses crt;
var x,y:real;
f1,f2:boolean;
begin
clrscr;
writeln('Введите 2 числа:');
readln(x,y);
f1:=(x>2)and(y>3);
f2:=(x>1)and(y>-2);
writeln(f1);
write(f2);
readln
end.
3)uses crt;
var a,r:real;
begin
clrscr;
write('Введите сторону квадрата и радиус круга-> ');
readln(a,r)
if sqr(a)>pi*sqr(r) then write('У квадрата') else write('У круга');
readln;
end.
5)uses crt;
Var a, i, n, S: integer;
Begin
Write('Vvedite n '); readln(n);
S:=0;
For i:=40 to 140 do
begin
read(a);
if (a mod 6 =0) then S:=S+a;
end;
Writeln(S);
End.