Инфоурок Информатика Другие методич. материалыПримеры программ и решений задач на Паскале (программирование для начинающих)

Примеры программ и решений задач на Паскале (программирование для начинающих)

Скачать материал

Задача:(Ветвление)

 

Даны координаты центров двух окружностей (х1,у1) и (х2,у2), а также их радиусы R1 и R2 (R1>R2). Определить взаимное расположение окружностей.

расстояние от точки до точки

 

Program fffff;                                                               

var x1,x2,y1,y2,r1,r2,d:real;                                              

begin                                                                        

readln(x1,x2,y1,y2,r1,r2);                                                 

d:=sqrt(sqr(x1-x2)+sqr(y1-y2));                                           

if d=r1+r2 then write('касаются') else                                     

if   d>r1+r2 then write('не касаются') else write('пересекаются');         

readln;                                                                    

end

 

 

 

Задача: (Символьные величины)

 Составить программу, которая определяет количество букв «а» в заданном тексте

 

program fff;                                                                

var a,b:string;                                                              

i,n,k:integer;                                                                

begin                                                                        

readln(a);                                                                 

n:=length(a);                                                            

for i:=1 to n do                                                        

begin                                                                       

if a[i]='а' then k:=k+1;                                           

end;                                                                        

writeln('в слове ',a,' буква А встречается ',k,' раз');                      

readln;                                                                       

end.

 

Задача: (Символьные величины)

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

 

 

program fff;                                                                  

var a,b:string;                                                             

i,n,k:integer;                                                              

begin                                                                        

readln(a);                                                                  

n:=length(a);                                                                

for i:=1 to n do                                                            

begin                                                                         

if a[i]=' ' then k:=k+1;                                                     

end;                                                                        

writeln('в тексте: ',a,',  количество слов= ',k);                            

readln;                                                                      

end.                                                                        

 

Задача: ( Массив)

Дан массив А(6). Нужно расположить в порядке возрастания элементы массива.

 

program aaa;                                                                 

var a: array[1..6] of real;                                               

k,i,j,:integer;                                                              

min:real;                                                                    

begin    

writeln('введи шесть элементов массива');                                    

for k:=1 to 6 do readln(a[k]);                                              

    writeln('элементы массива по возрастанию');                              

  for k:=1 to 6 do                                                         

 begin                                                                       

 i:=k;                                                                        

    for j:=k+1 to 6 do  if a[j]<a[i] then i:=j;                                                 

  min:=a[k];                                                              

a[k]:=a[i];      a[i]:=min;                                                                    write(a[k]:5:0);                                                        

    end;                                                                    

 readln;                                                                      

 end.                                                                        

 

Задача: ( Массив)

 С клавиатуры вводятся N числа. Составьте программу, которая определяет количество положительных, отрицательных чисел  и нулей среди введённых чисел. Значение N вводится с клавиатуры.

 

 

Program AAAAAA;

var   i,n: integer;                                                          

      s,c,k: real;                                                           

M:array[1..n1] of real;                                                      

 begin                                                                       

 writeln('введи число элементов<= 100');                                    

 readln(n);                                                                   

  writeln('введи элементы');                                                 

 for i:=1 to n do read(M[i]);                                                

 s:=0; c:=0;  k:=0;                                                           

  for i:=1 to n do                                                           

  begin                                                                      

  if M[i]<0 then s:=s+1 else                                                  

 if M[i]>0 then c:=c+1 else k:=k+1;                                         

 end;                                                                       

  writeln('колличество положительных чисел = ',c:2:0);                       

  writeln('колличество отрицательных чисел = ',s:2:0);                      

  writeln('колличество  нулей = ',k:2:0);                                    

   readln;                                                                    

    readln;                                                                

end.

 

Задача: ( Массив с символьными переменными)

 

Составить массив из пяти фамилий, и вывести на экран столбиком, начиная с последней.

 

program fff;                                                                 

var v:array[1..5] of string;                                                 

i:integer;                                                                   

begin                                                                        

 writeln('введи пять фамилий');                                              

for i:=1 to 5 do readln(v[i]);                                               

writeln(' фамилии наоборот:');                                               

for i:=5 downto 1 do  writeln(v[i]);                                         

readln;                                                                      

end.                                                                          

 

Задача: ( Массив с символьными переменными)

 

Составить массив из пяти фамилий, и вывести на экран те из них, которые начинаются с определённой буквы, которая вводиться с клавиатуры.

 

Длину строки можно указать в разделе описания  переменных:

<имя переменной, …>:string[n]

 

program fff;                                                                 

var v:array[1..5] of string;                                                 

k:string[1];                                                                  

i:integer;                                                                   

begin                                                                        

writeln('введи букву, с которой будет начинаться фамилия');                  

readln(k);                                                                   

 writeln('введи пять фамилий');                                              

for i:=1 to 5 do readln(v[i]);                                               

writeln('интересующие Вас фамилии:');                                        

for i:=1 to 5 do                                                             

if (v[i])[1]=k then writeln(v[i]);                                           

readln;                                                                       

end.                                                                         

 

Задача: ( Массив с символьными переменными)

 

 Из вводимого с клавиатуры слова вырезать каждую третью букву.

 

program aa;                                                                  

var a:string;                                                                

k,x: integer;                                                                

begin                                                                         

readln(a);                                                                 

k:=length(a);                                                           

x:=3;                                                                        

while x<=k  do                                                       

begin                                                                       

a[x]:=' ';                                                                   

x:=x+3;                                                                      

end;                                                                         

writeln(a);                                                               

readln;                                                                      

end.     

 

Задача: ( Массив с символьными переменными)

 В вводимом слове с клавиатуры заменить все буквы «а» на букву «о».

 

program aa;

var a:string;

k,x: integer;

begin

readln(a);    

k:=length(a);

for x:=1 to k  do     

if a[x]='а' then a[x]:='о';  

writeln(a);    

readln;        

end.

Задача: ( Массив с символьными переменными)

Заданны фамилия, имя, отчество учащегося, разделённые пробелами. Напишите программу, печатающую фамилии ученика и его инициалы.

 

program aaa;                                                                 

uses crt;                                                                    

var d,r:string;                                                              

    k,i:integer;                                                             

begin                                                                       

clrscr;                                                                      

writeln('введи Ф.И.О.');                                                      

readln(d);                                                                   

k:=length(d);                                                               

for i:=1 to k do                                                             

begin                                                                        

if d[i]=' ' then d:=copy(d,1,i)+d[i+1]+'.';                                 

end;                                                                          

writeln(d);                                                               

readln;                                                                     

end.     

 

Задача: ( Цикл)

Найти сумму чисел от 100 до 200 кратные 17 и вывести их.

 

PROGRAM Ret2;                                                                

  VAR      i: integer; s:real;                                                  

Begin                                                                        

    s:=0;                                                                     

  For i:=100 to 200 do                                                       

       Begin                                                                 

         If i mod 17=0 then                                                   

         begin                                                               

         Writeln(i);                                                         

         s:=s+i;                                                             

       End;                                                                  

           End;                                                              

             Writeln('сумма чисел=',s:5:0);                                   

           readln;                                                           

End.

 

Задача: ( Массив)

Ввести с клавиатуры 10 чисел. Если квадрат чисел меньше 100, напечатать порядковый номер, число и его квадрат.

 

program Svetlana;                                                             

var A: array [1..10] of real;                                                

i: integer;                                                                  

begin                                                                         

for i:=1 to 10 do readln (A[i]);                                             

writeln ('число и его квадрат');                                             

for i:=1 to 10 do                                                             

begin                                                                        

if A[i]*A[i]<100 then                                                        

begin                                                                       

writeln ('A[',i,']=', A[i]:2:1);                                             

writeln (A[i]*A[i]:5:1);                                                     

end;                                                                         

end;                                                                          

readln;                                                                      

end.                                                                         

                                                                    

Задачи для школьной олимпиады среднего звена

1)Заданны два целых числа А и В. Найдите сумму чётных чисел от А до В.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2)Определить, является ли строка палиндромом.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3) Даётся последовательность из N чисел. Найдите количество различных чисел.

Просмотрено: 0%
Просмотрено: 0%
Скачать материал
Скачать материал "Примеры программ и решений задач на Паскале (программирование для начинающих)"

Настоящий материал опубликован пользователем Лежниченко Марина Александровна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

  • Скачать материал
    • 07.01.2015 3372
    • DOCX 89 кбайт
    • 72 скачивания
    • Оцените материал:
  • Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.

    Удалить материал
  • Автор материала

    • На сайте: 10 лет и 3 месяца
    • Подписчики: 0
    • Всего просмотров: 12501
    • Всего материалов: 5

Решение задач по математике с помощью Системы Программирования на языке Паскаль.

Файл будет скачан в форматах:

  • pdf
  • pptx
163
9
06.01.2025

«Инфоурок»

Материал разработан автором:

Морозов Николай Петрович

преподаватель

Об авторе

Более 30 лет я занимаюсь вопросами обучения, работая в средних и высших учебных заведениях, проводя занятия и семинары на различных площадках и курсах, занимаясь репетиторством,сотрудничая с научными журналами и издательствами. За это время накопилось большое количество информации, касающейся обучения (и не только), которой я и хочу поделиться с Вами на страницах этого портала. Первоначально,предполагается систематизировать и разместить указанную информацию в нескольких разделах: 1) Информатика и Информационные технологии. 2) Математика. 3) Словари и Справочники.4) История СПб. С января 2024 года основной круг моих интересов сосредоточился на разработке и составлении электронных книг, и их публикации на страницах издательств Ridero и ЛитРес.Сегодня, вместе с аудио версиями этих книг , их в Интернете более 100. Познакомиться с ними можно по соответствующим ссылкам: например, "Николай Морозов" на сайте Ridero.
Подробнее об авторе
Предлагается решить 7 задач: 1.Найти расстояние между двумя точками .. 2.Найти произведение длин отрезков AC и BC. 3.Найти периметр и площадь прямоугольника. 4.Определить: сколько стоит несколько килограмм конфет. 5.Определить расстояние между автомобилями, если автомобили удаляются друг от друга, двигаясь в противоположных направлениях. 6.Найти площади кругов S1 и S2.. 7.Найти радиус окружности R и площадь S круга, ограниченного этой окружностью. В 2х последних задачах (6 и 7)использовался другой подход к их решению ( по сравнению с решением в моей разработке № 531126). Постановка задач, их решение и ответы оформлены на 19 листах в двух файлах.

Краткое описание методической разработки

Предлагается решить 7  задач:

 

1.Найти расстояние между двумя точками ..

2.Найти произведение длин отрезков AC и BC. 

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

4.Определить: сколько стоит несколько  килограмм конфет.

5.Определить расстояние между автомобилями, если автомобили удаляются друг от друга, двигаясь в противоположных направлениях.

6.Найти площади  кругов S1 и S2..

7.Найти радиус окружности R и площадь S круга, ограниченного этой окружностью.

 

В 2х последних задачах (6 и 7)использовался другой подход к их решению ( по сравнению с решением  в моей разработке № 531126). Постановка задач, их решение  и ответы оформлены на 19 листах в двух файлах.

Развернуть описание
Смотреть ещё 5 451 курс

Методические разработки к Вашему уроку:

Рабочие листы
к вашим урокам

Скачать

Краткое описание документа:

Программирование - это сравнительно молодая наука. Тем не менее, умение программировать требуется от учащихся как в школе, так и технических вузах. Одним из наиболее распространенных языков на данный момент является язык программирования высокого уровня Pascal, разработанный Никласом Виртом 50 лет назад. Решение задач в Паскале - занятие непростое, но увлекательное.

   Чтобы научиться программировать, не достаточно выучить операторы,  надо научиться писать программы,  а для этого выделяются следующие этапы решения задач:

1) Постановка задачи;

2) Математическое описание задачи (прямое и приближенное);

3) Выбор и обоснование метода решения;

4) Алгоритмизация вычислительного процесса;

5) Составление программы на языках программирования;

6) Трансляция программы и получение исполняемой программы;

7) Откладка программы;

8) Тестирование программы;

9) Передача программы в эксплуатацию.

 

Скачать материал

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

7 025 687 материалов в базе

Скачать материал

Другие материалы

Вам будут интересны эти курсы:

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

Оформите подписку «Инфоурок.Маркетплейс»

Вам будут доступны для скачивания все 183 623 материалы из нашего маркетплейса.

Мини-курс

Управление торговым процессом

3 ч.

699 руб.
Подать заявку О курсе

Мини-курс

Теоретические основы и ценностные аспекты корпоративной культуры

3 ч.

699 руб.
Подать заявку О курсе

Мини-курс

Психолого-педагогическое сопровождение подростков

3 ч.

699 руб.
Подать заявку О курсе
Смотреть ещё 5 451 курс