close

Вход

Забыли?

вход по аккаунту

?

8 (2)

код для вставкиСкачать
Лабораторная работа №8.
Тема: Составление программ циклической структуры.
Цель: Развить навыки программирования циклических структур.
Ход работы
Задание 1.Вводится последовательность чисел, 0 - конец последовательности. Определить, содержит ли последовательность хотя бы два равных соседних числа.
Рекомендации: Входные данные: ХО - текущий член последовательности, XI - следующий член последовательности.
Выходные данные: сообщение о наличии в последовательности двух равных соседних элементов.
Вспомогательные переменные: F1 - логическая переменная; сохраняет значение "истина", если в последовательности есть равные рядом стоящие члены, и "ложь" - иначе.
При составлении программы воспользуйтесь циклом repeat... until
program odin;
var
x0,x1:integer;
F1:boolean;
begin
F1:=false
repeat
write('x0,x1=');readln(x0,x1);
if x0=x1 then
F!:true
writeln(x0,'=',x1)
else F1:false
until x0=0 or x1=1;
readln;
end.
Задание 2.Дано натуральное число n. Получить все простые делители этого числа.
Program odin;
var
i,n: longint;
begin
realn(n);
i:=1;
while i<n do begin
if n mod i=0 then
writeln (i);
end;
end.
Вывод: Развили навыки программирования циклических структур.
Документ
Категория
Рефераты
Просмотров
30
Размер файла
25 Кб
Теги
1/--страниц
Пожаловаться на содержимое документа