- Учебник: «Информатика», Семакин И.Г., Залогова Л.А., Русаков С.В., Шестакова Л.В.
- Тема: § 5. Способы поиска в Интернете
- 03.10.2020
- 2452
- 111

Задача:(Ветвление)
Даны координаты центров двух окружностей (х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 чисел. Найдите количество различных чисел.
Настоящий материал опубликован пользователем Лежниченко Марина Александровна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалФайл будет скачан в форматах:
«Инфоурок»
Материал разработан автором:
Морозов Николай Петрович
преподаватель
Об авторе
Предлагается решить 7 задач:
1.Найти расстояние между двумя точками ..
2.Найти произведение длин отрезков AC и BC.
3.Найти периметр и площадь прямоугольника.
4.Определить: сколько стоит несколько килограмм конфет.
5.Определить расстояние между автомобилями, если автомобили удаляются друг от друга, двигаясь в противоположных направлениях.
6.Найти площади кругов S1 и S2..
7.Найти радиус окружности R и площадь S круга, ограниченного этой окружностью.
В 2х последних задачах (6 и 7)использовался другой подход к их решению ( по сравнению с решением в моей разработке № 531126). Постановка задач, их решение и ответы оформлены на 19 листах в двух файлах.
Курс повышения квалификации
Курс профессиональной переподготовки
500/1000 ч.
Курс повышения квалификации
72 ч. — 180 ч.
Курс повышения квалификации
72 ч. — 180 ч.
Еще материалы по этой теме
Смотреть
Рабочие листы
к вашим урокам
Скачать
Программирование - это сравнительно молодая наука. Тем не менее, умение программировать требуется от учащихся как в школе, так и технических вузах. Одним из наиболее распространенных языков на данный момент является язык программирования высокого уровня Pascal, разработанный Никласом Виртом 50 лет назад. Решение задач в Паскале - занятие непростое, но увлекательное.
Чтобы научиться программировать, не достаточно выучить операторы, надо научиться писать программы, а для этого выделяются следующие этапы решения задач:
1) Постановка задачи;
2) Математическое описание задачи (прямое и приближенное);
3) Выбор и обоснование метода решения;
4) Алгоритмизация вычислительного процесса;
5) Составление программы на языках программирования;
6) Трансляция программы и получение исполняемой программы;
7) Откладка программы;
8) Тестирование программы;
9) Передача программы в эксплуатацию.
7 025 687 материалов в базе
Вам будут доступны для скачивания все 183 623 материалы из нашего маркетплейса.
Мини-курс
3 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.