Решение типовых задач по теме «Программирование на языке Паскаль»

Вид материалаРешение
Подобный материал:
Решение типовых задач по теме

«Программирование на языке Паскаль»


  1. Составить программу, которая выводит на экран фамилию, имя и адрес учащегося.


Program name;

Begin

Writeln(‘Петров Иван, ул. Дорожная, д. 20, кв. 12’ );

End.


  1. Составить программу, которая запрашивает Ваше имя и выводит на экран сообщение:

Здравствуйте ...

На улице хорошая погода.


Program hello;

Var a: string;

Begin

Write(‘Как Вас зовут?); Readln(a);

Writeln(‘Здравствуйте ’,a);

Writeln(‘На улице хорошая погода’);

End.


  1. Написать программу, которая вычисляет скорость, зная путь и время.


Program spid;

Var s,t,v: real;

Begin

Write(‘Введите путь ’); Readln(s);

Write(‘ Введите время ’); Readln(t);

v:=s/t;

Writeln(‘Скорость равна ’,v);

End.


  1. Составить программу, которая вычисляет средний балл успеваемости по трем предметам. Оценки запрашиваются с экрана.


Program ball;

Var a,b,c: integer;

sred: real;

Begin

Write(‘Оценка по алгебре’); Readln(a);

Write(‘Оценка по геометрии’); Readln(b);

Write(‘Оценка по физике’); Readln(c);

sred:=(a+b+c)/3;

Writeln(‘Средний балл =’,sred);

End.


5. Написать программу решения линейного уравнения с проверкой коэффициентов.


Program linurav;

Var a,b,x: real;

Begin

Write(‘a=’); Readln(a);

Write(‘b=’); Readln(b);

If a=0 then Writeln(‘Неверный коэффициент’) else

begin x:=-b/a;

Writeln(‘x=’,x);

end;

end.

  1. Составить программу вычисления значения функции:




y=


Program arifmet;

Var x,y,c: real;

Begin

Write(‘x=’); Readln(x);

Write(‘c=’); Readln(c);

If x>c then y:=3*x+c else y:=x/c;

Writeln(‘y=’,y);

End.


  1. Составить программу вычисления значения функции:




y=


Program arifmet;

Var x,y: real;

Begin

Write(‘x=’); Readln(x);

If x>0 then y:=1;

If x=0 then y:=0;

If x<0 then y:=-1;

Writeln(‘y=’,y);

End.

  1. Напишите программу нахождения наибольшего из трех чисел.


Program maxim;

Var a,b,c,max: integer;

Begin

Write(‘a=’); Readln(a);

Write(‘b=’); Readln(b);

Write(‘c=’); Readln(c);

max:=a;

If max
If max
Writeln(‘Наибольший элемент: ’,max);

End.


9. Составить программу вычисления корней квадратного уравнения.


1 способ

Program kvurav;

Var a,b,c,d,x1,x2: real;

Begin

Write(‘a=’); Readln(a);

Write(‘b=’); Readln(b);

Write(‘c=’); Readln(c);

If a=0 then Writeln (‘Неверный коэффициент’) else

begin

d:=b*b-4*a*c;

If d<0 then writeln(‘Kорней нет’) else

begin

x1:=(-b+sqrt(d))/2/a;

x2:= (-b-sqrt(d))/2/a;

writeln(‘x1=’,x1,’ x2=’,x2);

end;

end;

End.


2 способ

Program kvurav;

Var a,b,c,d,x1,x2, x: real;

Begin

Write(‘a=’); Readln(a);

Write(‘b=’); Readln(b);

Write(‘c=’); Readln(c);

If a=0 then Writeln (‘Неверный коэффициент’) else

begin

d:=b*b-4*a*c;

If d<0 then writeln(‘Kорней нет’);

If d>0 then

begin

x1:=(-b+sqrt(d))/2/a;

x2:= (-b-sqrt(d))/2/a;

writeln(‘x1=’,x1,’ x2=’,x2);

end;

If d=0 then

begin

x:=-b/2/a;

writeln(‘x=’,x);

end;

end;

End.


10. Составить программу, которая выводит на экран 5 раз слово «весна».


Program vesna;

Var n: integer;

Begin

For n:=1 to 5 do writeln(‘Весна’);

End.


11. Последовательность задана формулой n-го члена yn=1/(2*n). Вычислить и вывести первые 10 членов этой последовательности.


Program posledovat;

Var n: integer;

y: real;

Begin

For n:=1 to 10 do

begin

y:=1/(2*n);

writeln(‘y’,n,’=’,y);

end;

end.


12. Последовательность задана формулой n-го члена yn=1/(2*n). Вычислить сумму первых 15 членов этой последовательности.


Program posledovat;

Var n: integer;

s, y: real;

Begin

S:=0

For n:=1 to 15 do

begin

y:=1/(2*n);

s:=s+y;

end;

writeln(‘S15,’=’,s);

end.


13. Напечатать таблицу квадратов натуральных чисел от 1 до n (n вводится с экрана).


Program tabkv;

Var n,x: integer;

Begin

Write(‘Сколько чисел? ’); Readln(n);

Writeln(‘Таблица квадратов: ’);

For x:=1 to n do

Writeln (x,’ ‘,x*x);

End.


14. Написать программу для нахождения суммы вводимых чисел (целых). Количество чисел задается с клавиатуры.


Program summa;

var n,a,s,i :integer;

Begin

Write(‘Сколько чисел? ’); Readln(n);

s:=0;

For i:=1 to n do

begin

write(‘Введите число: ‘); readln(a);

s:=s+a;

end;

Writeln(‘Сумvа этих чисел равна ‘,s);

End.


15. Написать программу для нахождения произведения натуральных чисел от 1 до n (n задается с клавиатуры). n!=


Program proizveden;

Var i,n,p: integer;

Begin

Write (‘n=’); Readln (n);

p:=1;

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

Writeln(‘Произведение чисел от 1 до ‘,n,’ равнo ‘,p);

End.


16. Написать программу для нахождения суммы четных чисел от 1 до n (n задается с клавиатуры).


Program summachet;

Var i,n,s: integer;

Begin

Write (‘n=’);

Readln (n);

s:=0;

For i:=1 to n do

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

Writeln(‘Сумма четных чисел от 1 до ‘,n,’ равна ‘,s);

End.


Задачи для самостоятельного решения


1. Составить программу, которая выводит на экран вашу фамилию, имя и дату рождения.
  1. Написать программу, которая вычисляет путь, зная скорость и время.
  2. Написать программу, которая вычисляет время, зная путь и скорость.
  3. Составить программу вычисления значения функции:



y=

  1. Составить программу вычисления значения функции:




y=


  1. Напишите программу нахождения наименьшего из трех чисел.
  2. Напишите программу нахождения наименьшего из четырех чисел.
  3. Составить программу, которая выводит на экран целые числа на интервале от m до n (m и n вводятся с клавиатуры).
  4. Составить программу, которая выводит на экран четные числа на интервале от m до n (m и n вводятся с клавиатуры).
  5. Составить программу, которая выводит на экран отрицательные числа на интервале от m до n (m и n вводятся с клавиатуры).
  6. Составить программу, которая выводит на экран числа, кратные 3, на интервале от m до n (m и n вводятся с клавиатуры).

12. Последовательность задана формулой n-го члена yn=1/n2. Вычислить и вывести первые 8 членов этой последовательности.

13. Последовательность задана формулой n-го члена yn=1/n2. Вычислить и вывести первые m членов этой последовательности (m вводится с клавиатуры).

14. Последовательность задана формулой n-го члена yn=1/n2. Вычислить сумму первых m членов этой последовательности (m вводится с клавиатуры).

15. Последовательность задана формулой n-го члена yn=1/n2. Вычислить произведение первых m членов этой последовательности (m вводится с клавиатуры).

16. Последовательность задана формулой n-го члена yn=1/n2. Вычислить произведение членов с аn по аm этой последовательности (n и m вводятся с клавиатуры).

17. Напечатать таблицу кубов натуральных чисел от 1 до n (n вводится с экрана).

18. Напечатать таблицу кубов натуральных чисел от m до n (m и n вводятся с экрана).

19. Напечатать таблицу кубов четных чисел на интервале от m до n (m и n вводятся с экрана).

20. Составить программу, которая считает количество четных чисел на интервале от m до n (m и n вводятся с клавиатуры).

21. Составить программу, которая выводит на экран четные числа на интервале от m до n и считает их количество (m и n вводятся с клавиатуры).