Работа с редакторами Word и Excel Программирование в Паскале (стр. 2 из 2)
Программа MicrosoftExcel дает возможность обрабатывать и хранить данные, даже при условии небольших знаний и навыков. Ее можно использовать, как для простых операций, так и для сложных подсчетов и больших объемов информации.
Основы программирования на языке Паскаль: операторы циклов
В ходе этой работы необходимо освоить основные понятия циклических алгоритмических структур.
Задание 02
Составить блок-схему алгоритма и текст программы для решения следующих задач.
1. Задано целое положительное число N>. Вычислить сумму четных целых чисел в диапазоне 1… N. Для решения задачи использовать цикл с предусловием.
var i, n, sum:integer; 
begin 
i:=2; 
sum:=0; 
while i<=n do begin 
readln 
end.  |
2. Задано целое число N.
Если N>5, найти сумму целых чисел в диапазоне 6. N.
Если N<5, найти сумму целых чисел в диапазоне N..4
Если N=5, вывести на экран соответствующее сообщение.
Для решения задачи использовать счетный цикл
var i, n, sum:integer; 
begin 
sum:=0; 
if n>5 then begin 
for i:=6 to n do sum:=sum+i; 
writeln(sum); 
end 
else if n<5 then begin 
writeln(sum); 
else if n=5 then writeln ('N=5!'); 
end.  | |||
 | |||
 | |||
3. Задано два целых числа N1 и N2.
Если N1> N2, найти сумму целых чисел в диапазоне N1. N2
Если N1< N2, найти сумму целых чисел в диапазоне N2. N1
Если N1= N2, вывести на экран соответствующее сообщение.
Для решения задачи использовать цикл с постусловием.
var i, n1, n2, sum:integer;
begin
readln (n1, n2);
sum:=0;
if n1<n2 then begin
for i:=n1 to n2 do sum:=sum+i;
writeln(sum);
end
else if n2<n1 then begin
for i:=n2 to n1 do sum:=sum+i;
writeln(sum);
end 
else if n1=n2 then writeln ('N1=N2!');  |
4. Дана функция
2x, x<0y = 0, x=0
0,5x, x>0
Найти значения функции для всех целых значений х из диапазона -3..8.
Для решения использовать цикл
с постусловием.
Program funct;
Var
Y:real;
x:integer;
Begin
Writeln (‘znachenie ot -3 do 8’);
X:=-3;
reapet
If x<0 then y=2*x;
If x=0 then y=0;
If x<0 then y=0,5*x;
Writeln (‘x=’, x, ’ y=’, y);
X:=x+1;
Until x=8;
Readln();
End.
