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

Вид материала

Решение

Подобный материал:

• «Алгоритмизация и решение физических задач на эвм», 391.8kb.
• Программа элективного курса по информатике «Программируем на языке Паскаль», 143.09kb.
• Приказ № от августа 2010г. Программа элективного курса по информатике и информационно-коммуникационным, 342.77kb.
• Элективный курс «Программирование на языке Турбо Паскаль» Пояснительная записка, 1082.33kb.
• Краткий курс лекций "Основы программирования на языке Паскаль" Основные понятия, 265.68kb.
• Практикум по программированию на языке паскаль, 1488.8kb.
• Структура программы языка Турбо Паскаль Программа на языке Турбо Паскаль имеет вид, 792.5kb.
• Программа элективного курса «Программирование на языке Pascal» 10 класс, 63.48kb.
• Рабочая программа по дисциплине Программирование на языке высокого уровня для специальности, 182.97kb.
• Программа дисциплины программирование на языке С++ для направления 080700. 62 «Бизнес-информатика», 131.2kb.

Решение типовых задач по теме

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

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

Program name;

Begin

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

End.

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

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

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


Program hello;

Var a: string;

Begin

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

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

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

End.

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

Program spid;

Var s,t,v: real;

Begin

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

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

v:=s/t;

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

End.

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

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.

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

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.

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

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.

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

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-го члена y_n=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-го члена y_n=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. Составить программу, которая выводит на экран вашу фамилию, имя и дату рождения.

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

y=

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

y=

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

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

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

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

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

16. Последовательность задана формулой n-го члена y_n=1/n². Вычислить произведение членов с а_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 вводятся с клавиатуры).