Поиск

Полнотекстовый поиск:
Где искать:
везде
только в названии
только в тексте
Выводить:
описание
слова в тексте
только заголовок

Рекомендуем ознакомиться

'Конкурс'
Всероссийский полиатлон-мониторинг 1-4 классы (русский язык, математика, чтение, окружающий мир) 5-10 классы (русский язык, математика, история, биоло...полностью>>
'Документ'
- упражнения, этюды, игры, направленные на развитие и коррекцию разных сторон психики ребенка (как ее познавательной, так и эмоционально-личностной сф...полностью>>
'Программа'
Требования к уровню образования поступающих (в соответствии с приказом МЗ РФ от 8.10.2015 г. № 707н «Об утверждении квалификационных требований к меди...полностью>>
'Документ'
1.1. Настоящее Положение разработано в соответствии с Положением об оплате труда работников МКОУ Нововоронежская СОШ №5 (далее Учреждение), реализующе...полностью>>

Главная > Программа

Сохрани ссылку в одной из сетей:
Информация о документе
Дата добавления:
Размер:
Доступные форматы для скачивания:

Турбо Паскаль Информатика Turbo Pascal

1. Найти сумму двух чисел, вводимых с клавиатуры.

program z1;

var a, b, s: integer;

begin

writeln('Введите числа a и b ');

readln(a, b);

s:=a+b;

writeln('Сумма s=', s);

readln;

end.

2. Даны стороны треугольника. Найдите периметр треугольника.

program perimetr3;

var a,b,c,p: integer;

begin

writeln('Введите стороны треугольника a, b, c');

readln(a,b,c);

p:=a+b+c;

writeln('Периметр треугольника p=',p);

readln; {чтобы программа не исчезла с экрана}

end.

3. Даны катеты прямоугольного треугольника. Найдите гипотенузу и периметр.

program GipotenPerimp3;

var a, b: integer;

c, p: real;

begin

writeln('Введите катеты треугольника a и b');

readln(a, b);

c:=sqrt(a*a + b*b);

p:=a+b+c;

writeln('Гипотенуза треугольника c=',c:3:1);

writeln('Периметр треугольника p=',p:3:1);

readln;

end.

4. Даны гипотенуза и катет прямоугольного треугольника. Найдите периметр и площадь.

program perimploshad3;

var a, c: integer;

b, p, s: real;

begin

writeln('Введите гипот. и катет треуг-ка c и a');

readln(c, a);

b:=sqrt(c*c-a*a);

p:=a+b+c;

s:=a*b/2;

writeln('Катет треугольника b=',b:3:1);

writeln('Периметр треугольника p=',p:3:1);

writeln('Площадь треугольника p=',s:3:1);

readln;

end.

5. Определить объём и площадь боковой поверхности цилиндра с заданными радиусом основания R и высотой H.

Program Cylinder;

   Var

  R, {радиус основания цилиндра}

  H, {высота цилиндра }

  V, {объем цилиндра }

  S: Real; {площадь боковой поверхности цилиндра}

BEGIN

  Write('Введите высоту (H) цилиндра : ');  ReadLn(H);

  Write('Введите радиус (R) основания : '); ReadLn(R);

  V := Pi * R * R * H;

  S := 2 * Pi * R * H; 

WriteLn;

  WriteLn('Объем цилиндра V= ', V : 5 : 2);

  WriteLn('Площадь боковой поверхности S= ', S : 5 : 2);

  ReadLn

END.

Линейные алгоритмы. Решение задач.

6. Даны гипотенуза и катет прямоугольного треугольника. Найдите периметр и площадь.

program treugtos;

uses Crt;

var a, c: integer;

b, p, s: real;

begin

ClrScr;

TextColor(4);

writeln('Введите гипотенузу и катет треуг-ка c и a');

readln(c, a);

b:=sqrt(c*c-a*a);

p:=a+b+c;

s:=a*b/2;

TextColor(Yellow);

writeln('Неизвестный катет треугольника b=',b:3:1);

writeln('Периметр треугольника p=',p:3:1);

writeln('Площадь треугольника p=',s:3:1);

readln;

end.

7. Стороны треугольника равны 14см. и 7см., угол между ними равен 480. Найдите площадь треугольника.

program geom9_1020;

uses CRT;

var a,b: integer;

s: real;

begin

ClrScr;

writeln('Введите исходные данные треугольника:');

write('Первая сторона a=');

readln(a);

write('Вторая сторона b=');

readln(b);

s:= 0.5 * a * b * sin(48 * pi / 180);

TextColor(10);

writeln('Площадь треугольника S=', s:5:1, ' кв.см.');

readln;

end.

Ветвящиеся алгоритмические конструкции

8. Даны значения двух величин. Выбрать бóльшее из них.

program BID1;

var a, b, c: real;

begin

writeln('Введите два числа a и b');

readln(a, b);

if a > b then c:= a else c:= b;

writeln('Большее число из двух равен ', c:5:0);

readln;

end.

9.

program Sistema2le;

var x, y: integer;

begin

write('Введите числo x=');

readln(x);

if x>3 then y:= 2*x*x+5 else y:= x-7;

writeln(' При x=', x, ' y=', y);

readln;

end.

10. Дано целое число а. Если оно делится на 2, то вычесть из него 1, иначе прибавить 1.

program MinysPlys1;

var a, c: integer;

begin

write('Введите число a=');

readln(a);

if a mod 2 = 0 then c:= a - 1 else c:= a + 1;

writeln('Полученное число ',c);

readln;

end.

Цикл с параметром

11. Программа, которая выводит числа от 2 до 20.

program sicl1;

var i: integer;

begin

for i:=2 to 20 do writeln(i);

readln;

end.

12. Программа, которая выводит числа от 2 до 20.

program sicl2;

var i: integer;

begin

for i:=2 to 20 do write(i, ' ');

readln;

end.

13. Программа, которая выводит числа от 20 до 2.

program sicl3;

var i: integer;

begin

for i:=20 downto 2 do write(i, ' ');

readln;

end.

14. Напечатать «столбиком» все целые числа от 10 до 20 и квадраты этих чисел.

Число

Квадрат

10

11

20

100

121

400

program sicl5;

var i, x, y: integer;

begin

writeln('Число Квадрат');

x:=10;

for i:=1 to 11 do

begin

y:=x*x;

writeln(x,' ', y);

x:=x+1;

end;

readln;

end.

15. Напечатать «столбиком» все целые четные числа от 12 до 20 и квадраты этих чисел.

Число

Квадрат

12

20

144

400

program sicl6;

var i, x, y: integer;

begin

writeln('Число Квадрат');

x:=12;

for i:=1 to 5 do

begin

y:=x*x;

writeln(x,' ', y);

x:=x+2;

end;

readln;

end.

16. Программа, которая выводит сумму чисел от 1 до 20.

program sicl7;

var i, S: integer;

begin

S:=0;

for i:=1 to 20 do S:=S+i;

writeln('Сумма чисел от 1 до 20 равна ',S);

readln;

end.

17. Найти сумму всех натуральных чисел от 1 до m (значение m вводится с клавиатуры; m > 1).

program sicl9;

var i, S, m: integer;

begin

write('Введите натуральное число m= ');

readln(m);

S:=0;

for i:=1 to m do S:=S+i;

writeln('Сумма чисел от 1 до ',m,' равна ',S);

readln;

end.

18. Найти сумму всех четных натуральных чисел от 1 до m (значение m вводится с клавиатуры; m > 1).

program sicl10;

var i, S, m: integer;

begin

write('Введите натуральное число m= ');

readln(m);

S:=0;

for i:=1 to m do

if i mod 2 = 0 then S:=S+i;

writeln('Сумма четных чисел равна ',S);

readln;

end.

19. Программа, которая выводит произведение чисел от 1 до 7. (Найти 7!)

Ответ: 5 040

program sicl11;

var i, p: integer;

begin

p:=1;

for i:=1 to 7 do p := p * i;

write('Произведение чисел от 1 до 7 равно ', p);

readln;

end.

20. Программа, которая выводит произведение чисел от 1 до 8. (Найти 8!)

Ответ: 40 320

program sicl12;

var i: integer;

p: word;

begin

p:=1;

for i:=1 to 8 do p := p * i;

write('Произведение чисел от 1 до 8 равно ', p);

readln;

end.

21. Программа, которая выводит произведение чисел от 1 до 13. (Найти 13!)

Ответ: 1 932 053 504

program sicl13;

var i: integer;

p: longint;

begin

p:=1;

for i:=1 to 13 do p := p * i;

write('Произведение чисел от 1 до 13 равно ',p);

readln;

end.

22. Найти n! (n  13)

program factorial;

var i,n: integer;

p: longint;

begin

write('Введите натуральное число n=');

readln(n);

p:=1;

for i:=1 to n do p := p * i;

write('Факториал числа ', n ,'!=', p);

readln;

end.

23. Найти произведение всех четных натуральных чисел от 1 до m (значение m вводится с клавиатуры; 1 < m 16).

program sicl14;

var i, m: integer;

p: word;

begin

write('Введите натуральное число m= ');

readln(m);

p:=1;

for i:=1 to m do

if i mod 2 = 0 then p := p * i;

write('Произведение четных чисел равно ', p);

readln;

end.

24. Найти количество чётных чисел отрезка [a; b]. Значения a и b вводятся с клавиатуры (a < b).

program sicl16;

var i, a, b, k: integer;

begin

write('Введите концы отрезка (a < b) a, b=');

readln(a, b);

k:=0;

for i:= a to b do

if i mod 2 = 0 then k:=k + 1;

write('Количество четных чисел равно ', k);

readln;

end.

25. Найти количество чётных чисел отрезка [a; b]. Вывести эти числа на экран. Значения a и b вводятся с клавиатуры (a < b).

program sicl17;

var i, a, b, k: integer;

begin

write('Введите концы отрезка (a < b) a, b=');

readln(a, b);

k:=0;

for i:= a to b do

if i mod 2 = 0 then begin

k:=k + 1;

write(i,' ');

end;

writeln;

write('Количество четных чисел равно ', k);

readln;

end.

program sicl18;

label 1 ;

var i, a, b, k: integer;

begin

1 : write('Введите концы отрезка (a < b) a, b=');

readln(a, b);

if a > b then goto 1 ;

k:=0;

for i:= a to b do

if i mod 2 = 0 then begin

k:=k + 1;

write(i,' ');

end;

writeln;

write('Количество четных чисел равно ', k);

readln;

end.

Массив.

26. Создать одномерный массив, состоящий из 8 элементов и вывести его на экран.

program massiv1;

var a: array[1..8] of integer;

i: integer;

begin

for i:=1 to 8 do

begin

write('ввести ',i,' - элемент массива ');

readln(a[i]);

end;

for i:=1 to 8 do writeln('a[',i,']=',a[i]);

readln;

end.

27. Заполнить случайным образом одномерный массив, состоящий из 8 элементов и вывести его на экран.

program massiv3;

var a: array[1..8] of integer;

i: integer;

begin

randomize;

for i:=1 to 8 do

begin

a[i]:=random(50);

writeln('a[',i,']=',a[i]);

end;

readln;

end.

28. Заполнить случайным образом одномерный массив, состоящий из n элементов и вывести его на экран (значение n вводится с клавиатуры).

program massiv4;

label 1;

var a: array[1..100] of integer;

i, n : integer;

begin

randomize;

1: write ('Введите размер массива (n<=100) ->');

readln(n);

if n>100 then goto 1;

for i:=1 to n do

begin

a[i]:=random(30);

write('a[',i,']=',a[i], ' ');

end;

readln;

end.

29. Заполнить случайным образом одномерный массив, состоящий из n элементов числами из отрезка (c; d) и вывести его на экран. Значения n, c, d вводятся с клавиатуры, причём c < d.

program massiv55;

label 1;

var a: array[1..100] of integer;

i, n, c, d : integer;

begin

randomize;

1: write ('Введите размер массива (n<=100) ->');

readln(n);

if n>100 then goto 1;

write ('Введите c, d ->');

readln(c, d);

for i:=1 to n do

begin

a[i]:= c + random(d – c + 1);

write('a[',i,']=',a[i],' ');

end;

readln;

end.

30. Заполнить одномерный массив случайными числами и найти их сумму.

program massiv6;

label 1;

var a: array[1..100] of integer;

i, n, s : integer;

begin

randomize;

1: write ('Введите размер массива (n<=100) ->');

readln(n);

if n>100 then goto 1;

s:=0;

for i:=1 to n do

begin

a[i]:=random(30);

s:=s+a[i];

write('a[',i,']=',a[i], ' ');

end;

writeln;

write('Сумма элементов массива s=',s);

readln;

end.

31. Заполнить одномерный массив случайными числами. Вывести на экран все чётные числа и найти их сумму.

program massiv7;

label 1;

var a: array[1..100] of integer;

i, n, s : integer;

begin

randomize;

1: write ('Введите размер массива (n<=100) ->');

readln(n);

if n>100 then goto 1;

for i:=1 to n do

begin

a[i]:=random(20);

write('a[',i,']=',a[i], ' ');

end;

writeln;

s:=0;

for i:=1 to n do begin

if a[i] mod 2 =0 then begin

s:=s+a[i];

write('a[',i,']=',a[i], ' ');

end;

end;

writeln;

write('Сумма чётных элементов массива s=',s);

readln;

end.

32. Заполнить одномерный массив случайными числами. Вывести на экран все положительные числа и найти их сумму.

program massiv8;

label 1;

var a: array[1..100] of integer;

i, n, s : integer;

begin

randomize;

1: write ('Введите размер массива (n<=100) ->');

readln(n);

if n>100 then goto 1;

for i:=1 to n do

begin

a[i]:=random(20)-10;

write('a[',i,']=',a[i], ' ');

end;

writeln;

s:=0;

for i:=1 to n do begin

if a[i]>0 then begin

s:=s+a[i];

write('a[',i,']=',a[i], ' ');

end;

end;

writeln;

write('Сумма положительных элементов массива s=',s);

readln;

end.

33. Заполнить одномерный массив случайными числами и найти их произведение.

program massiv10;

label 1;

var a: array[1..10] of integer;

i, n : integer;

p: longint;

begin

randomize;

1: write ('Введите размер массива (n<=10) ->');

readln(n);

if n>10 then goto 1;

p:=1;

for i:=1 to n do

begin

a[i]:=random(10)+1;

p:=p*a[i];

write('a[',i,']=',a[i], ' ');

end;

writeln;

write('Произведение элементов массива p=',p);

readln;

end.

34. Заполнить одномерный массив случайными числами и найти произведение нечётных элементов.

program massiv11;

label 1;

var a: array[1..10] of integer;

i, n : integer;

p: longint;

begin

randomize;

1: write ('Введите размер массива (n<=10) ->');

readln(n);

if n>10 then goto 1;

for i:=1 to n do

begin

a[i]:=random(10)+1;

write('a[',i,']=',a[i], ' ');

end;

writeln;

p:=1;

for i:=1 to n do begin

if a[i] mod 2 =1 then begin

p:=p*a[i];

write('a[',i,']=',a[i], ' ');

end;

end;

writeln;

write('Произведение нечётных элементов массива p=',p);

readln;

end.

35. Найти произведение элементов массива, имеющих нечётные номера.

program massiv13;

label 1;

var a: array[1..10] of integer;

i, n : integer;

p : longint;

begin

randomize;

1: write ('Введите размер массива (n<=10) ->');

readln(n);

if n>10 then goto 1;

for i:=1 to n do

begin

a[i]:=random(20)+1;

write('a[',i,']=',a[i], ' ');

end;

writeln;

p:=1;

for i:=1 to n do begin

if i mod 2 =1 then begin

p:=p*a[i];

write('a[',i,']=',a[i], ' ');

end;

end;

writeln;

write('Произв. элементов массива, имеющих нечётные номера равно ',p);

readln;

end.

стр. 10

Нижнекуюкская СОШ, 2006/2007 учебный год



Похожие документы:

  1. Примерные ответы на профильные билеты Е. А. Еремин, А. П. Шестаков

    Документ
    ... катетов, делит гипотенузу на отрезки длиной 30 и 40 см. Найдите катеты треугольника. 2. К окружности, вписанной в равнобедренный треугольник ... прямоугольный треугольник ... данным программы, чтобы ... экрана в вертикальной плоскости, не ... END FUNCTION Pascal program ...

Другие похожие документы..