Редактирование и отладка программ с помощью Pascal
Отчет по практике - Компьютеры, программирование
Другие отчеты по практике по предмету Компьютеры, программирование
program as; Блок-схема
uses crt;
var a,b,d,c:real;
begin clrscr;
writeln(Введи 2 числа);
readln(a,b);
d:=sqrt(a);
c:=sqrt(b);
if (d<c) then
writeln(увеличить 2 число в 5 раз,c*c*c*c*c:5:2)
else writeln(нет решения);
readln;
end.
Ответ: нет решения
Задание13. Дано число. Если это число чётное, то /2 если нет, то *2
Program as; Блок-схема
Var a: integer;
Begin clrscr;
Writeln(Введи число);
Readln (a);
If a mod 2=0 then writeln(a/2)
else writeln(a*2);
Readln;
End.
(Вводим значение 5)
Ответ:10
Задание14.Даны 4 вещественных числа. Найти сумму тех чисел, которые больше 5
Program as; Блок-схема
Uses crt;
Var a,b,c,d,k,z,x,v:integer;
Begin clrscr;
Writeln(Введи 4 числа);
Readln(a,b,c,d);
If a>5 then k:=a;
If b>5 then z:=b;
If c>5 then x:=c;
If d>5 then v:=d;
Writeln(Общая сумма=,k+z+x+v);
End.
(Вводим значение 6,6,6,6)
Ответ: 24
Задание15.Даны 3 числа a,b,c. Найти максимальное
Program as; Блок-схема
Uses crt;
Var a,b,c:integer;
Max,max1:integer;
Begin clrscr;
Writeln(Введи 3 числа);
Readln(a,b,c);
If a>b then max:=a else max:=b;
If max>c then max1:=max else max1:=c;
Writeln(Максимально=,max1);
Readln;
End.
(Вводим значение 5,6,7)
Ответ: 7
Циклическая программа
Задание 1.Напечатать “столбиком”: все целые числа от 20 до 35
Program as; Блок-схема
Uses crt;
Var a:integer;
Begin clrscr;
For a:=20 to 35 do writeln(a);
Readln;
end.
Задание 2.Напечатать “столбиком”: квадраты всех целых чисел от 10 до b (значение b вводится с клавиатуры, причем b>10)
Program as; Блок-схема
Uses crt;
Var a,j:integer;
Begin clrscr;
Writeln(Введи число);
Readln(j);
For a:=10 to j do writeln(sqrt(a):5:2);
Readln;
end.
Задание 3.Найти сумму квадратов всех целых чисел от 10 до 50
Program as;
Uses crt;
Var a,s:real;
Begin clrscr;
For a:=10 to 50 do s:=sqr(a)+s;
Writeln(s);
end.
Задание 4.Одна штука некоторого товара стоит 20 тенге. Напечатать таблицу стоимости 2,3…20 штук этого товара
Блок-схема
Program as;
Uses crt;
Var a,b:integer;
Begin clrscr;
B:=20;
For a:=2 to 20 do writeln(a*b);
Readln;
end.
Задание 5. Найти произведение всех целых чисел от 1 до А (значение А вводится с клавиатуры; 1<=A<=20.
program as; Блок-схема.
uses crt;
var a,b,p:integer;
begin clrscr;
p:=1;
readln(a);
for b:=1 to a do if (1<=a) and (a<=20) then
p:=p*a;
writeln(p);
readln;
end.
(Вводим значение 4)
Ответ:256
Задание 6.Напечатать программу, печатающую таблицу значений функции y=cos2x на отрезке [0;1] с шагом h=0,1
Program as; Блок-схема
Uses crt;
Var y,x:real;
Begin clrscr;
X:=0;
While x<=1 do begin y:=cos(2*x);
Writeln(y:5:2);
X:=x+0,1;
End;
End.
Задание 7.Напечатать программу, вычисления факториала
Program as; Блок-схема
Uses crt;
Var i,n:integer;
f:real;
Begin clrscr;
Readln(n);
F:=1; i:=1;
While i<=n do begin f:=f*i;
i:=succ(i);
end;
Writeln(факториал от,n,равен,f);
End.
Задание 8.Программа подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+…1/N
Program as; Блок-схема
Uses crt;
Var s:real;
N:integer;
Begin clrscr;
S:=0;N:=0;
While n<1000 do begin N:=n+1;
S:=s+1/N;
End;
Writeln(s);
Readln;
End.
Задание 9.Вычислить наибольший общий делитель двух натуральных чисел А и В.
Program as; Блок-схема
Uses crt;
Var a,b:integer;
Begin clrscr;
writeln(Введи 2 натур. Числа);
readln(a,b);
While ab then a:=a-b
Else b:=b-a;
Writeln(НОД=,a);
Readln;
End.
Задание10. Даны целые числа А и В (а>b).Определить: Результат целочисленного деления А на В, не используя стандартную операцию целочисленного деления
Program as; Блок-схема
Uses crt;
Var a,b,n:integer;
Begin clrscr;
writeln(Введи 2 числа,a>b);
readln(a,b);
n:=0;
While a<=b do begin
N:=n+1;
A:=a-b;
\ End;
Writeln(результат=,n);
Readln;
End.
Задание11.Напишите программу, которая вводит целые числа с клавиатуры и складывает их, пока не будет введено число 0
Program as; Блок-схема
Uses crt;
Var N,s:integer;
Begin clrscr;
S:=0;
Repeat write (Введи число);
Readln(n);
S:=s+n;
Until n=0;
Writeln(S=,s);
Readln;
End.
Задание12. Напечатайте 20 первых степеней числа 2
Program as; Блок-схема
Uses crt;
Var N,s:longint;
Begin clrscr;
S:=1; n:=1;
Repeat s:=s*2;
Write(s, );
N:=n+1;
Until n>20;
Readln;
End.
Задание13. Известны оценки по информатике 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по инфор-ке оценку 5?
Program as; Блок-схема
Uses crt;
Var x,n:integer;
Begin clrscr;
Write(Введи оценку);
Readln(x);
N:=0;
While x=5 do begin
N:=n+1;
Write(Введи оценку);
Readln(x);
End;
Writeln(имеют отлично,n,учеников);
End.
Задание14.Вывести на экран таблицу умножения.
Program as; Блок-схема
Uses crt;
Var I,j:integer;
Begin clrscr;
For i:=1 to 9 do
For j:=1 to 9 do writeln(I,*,j, ,i*j);
Readln;
End.
Задание15.Составить программу, печатающую на экране все четные числа в диапазоне от 100 до 999.
Program as; Блок-схема
Uses crt;
Var a:integer;
Begin clrscr;
For a:=100 to 999 do
If a mod 2=0 then writeln(a);
End.
Массивы
Задание 1.Создать одномерный массив и найти сумму четных элементов и произведение нечетных элементов