Top-office11.ru

IT и мир ПК
1 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Задачи паскаль 9 класс с решением

PASCAL

Программы 9 класс

Повторение. Решение математических выражений в Pascal.

текст программы:
var x:integer;
y:real;
begin
writeln(‘введите целое число’);
readln(x);
y:=(5*x+sqr(x))/8;
writeln (‘при x=’,x,’ y =’,y);
end.

Одномерный массив.

Формирование массива. Ввод элементов массива с клавиатуры.

Задача 2 ( урок 17.12.2019 )
Составьте программу, задающую одномерный массив целых чисел из 6 элементов, вводимых с клавиатуры, и оформите вывод элементов на экран в строчку.

текст программы
var m: array [1..6] of integer;
i: integer;
begin
writeln(‘ввод элементов’);
for i:=1 to 6 do readln(m[i]);
for i:=1 to 6 do write(m[i],’ ‘);
end.

Формирование массива с помощью функции случайных чисел random.

Задача 3 ( урок 17.12.2019 )
Составьте программу, задающую одномерный массив размерность 10, состоящий из случайных чисел из промежутка от 5 до 22. Оформите вывод элементов на экран в строчку.
Пояснение.
Обратите внимание, что случайные числа задаются функцией random(x). Для того чтобы задать случайные числа из промежутка от a до b есть формула x:=random(b-a+1)+a, в нашем случае
x:=random(18)+5

Сортировка одномерного массива

Задача 12 ( урок )
Составить программу, которая сортирует элементы одномерного массива размерностью 7 по возрастанию (элементы массивы случайные числа от 10 до 60).
текст программы
var mas:array[1..7] of integer;
i,j,a:integer;
begin
for i:=1 to 7 do
begin
mas[i]:=random(51)+10;
write(mas[i],’ ‘);
end;
for j:=1 to 6 do
for i:=1 to 6 do
if mas[i]>mas[i+1] then
begin
a:=mas[i];
mas[i]:=mas[i+1];
mas[i+1]:=a;
end;
writeln;
write (‘Отсортированный массив ‘);
for i:=1 to 7 do write(mas[i],’ ‘);
end.

Задача 12 ( урок )
Составить программу, которая в данном массиве: m[1]:=4; m[2]:=8; m[3]:=7; m[4]:=2; m[5]:=1; m[6]:=8; m[7]:=1; m[8]:=5; m[9]:=6; m[10]:=8;
находит максимальный элемент (элементы) и заменяет его (их) на 0.
текст программы
var m:array[1..10] of integer;
i,max,k:integer;
begin
m[1]:=4; m[2]:=8; m[3]:=7; m[4]:=2; m[5]:=1;
m[6]:=8; m[7]:=1; m[8]:=5; m[9]:=6; m[10]:=8;
max:=m[1];

for i:=1 to 10 do
begin
write(m[i],’ ‘);
if m[i]>max then max:=m[i];
end;
writeln;
writeln(‘max=’,max);

for i:=1 to 10 do
if m[i]=max then m[i]:=0;

writeln(‘результат’);
for i:=1 to 10 do
write(m[i],’ ‘);
end.

Повторение. Работа со строковыми функциями copy и length.

Типовые задачи на Pascal (массивы).
методическая разработка по информатике и икт (9 класс) по теме

Типовые задачи на Pascal (массивы). Качественное пособие, содержащее краткую теорию, задачи с исходниками решения, а также задания для самостоятельной работы по одно- и двумерным массивам.

Скачать:

ВложениеРазмер
paskal.rar19 КБ

Предварительный просмотр:

Типовые задачи на Паскале (массивы)

Массив — это упорядоченный набор однотипных элементов, обозначаемых одним именем; доступ к элементу массива осуществляется по его номеру.

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

В программе для каждого массива должны быть указаны его параметры: имя, размерность и размер. Бывают одномерные, двумерные и т.д. массивы. Это называется размерностью.

Одномерные массивы (последовательности).

I — номер элемента, A[I] — элемент массива, стоящий на I-ом месте

  1. Сформировать и вывести на экран последовательность из n элементов, заданных датчиком случайных чисел на интервале [-23, 34].

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

Write (‘Сколько элементов? ’); Readln (n);

2. Найти произведение элементов одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры.

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

Write (‘Сколько элементов? ’); Readln (n);

write (‘введите число’); readln (a[i]);

writeln(‘произведение элементов равно: ‘,p);

3. Найти сумму элементов одномерного массива. Размер произвольный. Элементы вводятся с клавиатуры.

Var a: array[1..100] of real;

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

write (‘введите число’); readln (a[i]);

writeln(‘сумма элементов равна ‘,s);

4. Задан массив А, состоящий из n чисел. Найти среднее арифметическое его элементов. Элементы вводятся с клавиатуры.

Var a: array[1..100] of real;

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

write (‘введите число’); readln (a[i]);

writeln(‘среднее арифметическое элементов: ‘,s);

5. Найти сумму элементов массива с четными номерами, содержащего N элементов. Элементы вводятся с клавиатуры.

Var a: array[1..100] of real;

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

write (‘введите число’); readln (a[i]);

if i mod 2 = 0 then s:=s+a[i];

writeln(‘сумма элементов с четными номерами: ‘,s);

6. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-19, 26] (размер произвольный). Найти произведение элементов с нечетными номерами.

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

Write (‘Сколько элементов? ’); Readln (n);

if i mod 2 <> 0 then P=P*a[i];

Writeln(‘Произведение элементов с нечетными номерами:’, P);

7. Сформировать и вывести на экран массив, элементы которого заданы датчиком случайных чисел на интервале [-56, 47] (размер произвольный). Найти произведение элементов с четными номерами, которые превосходят некоторое число t.

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

i, n, p, t: integer;

Write (‘Сколько элементов? ’); Readln (n);

a[i]:= Random(104)-56; writeln (a[i],’ ‘);

if (i mod 2 = 0) and (a[i]>t) then P=P*a[i];

Writeln(‘Произведение элементов с четными номерами, превосходящие число t:’, P);

8. Найти наименьший элемент одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры.

Var a: array[1..100] of real;

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

Writeln(‘наименьшее число: ‘,min);

9. Найти номер наименьшего элемента в массиве, заданного датчиком случайных чисел на интервале [-20, 25]. Размер произвольный.

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

i, n, num, min: integer;

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

Writeln(‘ номер наименьшего элемента: ‘,num);

10. В заданном одномерном массиве, состоящем из n целых чисел, подсчитать количество нулей.

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

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

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

Writeln(‘количество 0 равно ’, k);

11. В заданном одномерном массиве, состоящем из n целых чисел, подсчитать количество четных элементов.

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

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

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

Writeln(‘количество четных элементов: ’, k);

12. Найдите среднее арифметическое элементов массива, состоящего из 10 чисел, которые превышают по величине число С. Элементы вводятся с клавиатуры.

Var a: array[1..10] of real;

For i:=1 to 10 do

write(‘введите С: ‘); readln (C );

For i:=1 to 10 do

begin S=S+a[i]; K=K+1; end;

Writeln(‘среднее арифметическое чисел, превосходящих ‘,C,’ равно ‘,sred);

13. Найти произведение элементов целочисленного одномерного массива с четными номерами, состоящего из n элементов. Элементы вводятся с клавиатуры.

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

write (‘n=’); readln (n);

if i mod 2=0 then p:=p*a[i];

Writeln (‘произведение элементов массива с четными номерами равно ‘,p);

14. Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из четных элементов массива А. Элементы вводятся с клавиатуры. Размер n.

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

b: array[1..100] of integer;

write (‘n=’); readln (n);

if a[i] mod 2=0 then

if kol=0 then writeln(‘четных элементов нет’) else

for k:=1 to kol do write(‘b[‘,k,’]=’,b[k]);

Задачи для самостоятельной работы

  1. Массив А вводится с клавиатуры. Найти сумму его элементов. Размер произвольный.
  2. Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]. Размер произвольный.
  3. Массив А вводится с клавиатуры. Найти среднее арифметическое его элементов с нечетными номерами. Размер произвольный.
  4. Массив А вводится с клавиатуры. Найти сумму его элементов с четными номерами, произведение отрицательных элементов, количество нечетных элементов. Размер произвольный.
  5. Найти наибольший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры. Размер произвольный.
  6. Найти средне арифметическое элементов последовательности, превосходящих некоторое число С. Массив задан датчиком случайных чисел на интервале [-44, 35]. Размер произвольный. Значение С вводится с экрана.
  7. Массив А вводится с клавиатуры. Вывести только нечетные элементы. Размер произвольный.
  8. Упорядочить данную последовательность по убыванию. Элементы вводятся с клавиатуры. Размер произвольный.
  9. Упорядочить данную последовательность по убыванию. Массив задан датчиком случайных чисел на интервале [-54, 33]. Размер произвольный.
  10. Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из положительных элементов массива А. Размер произвольный.
  11. Массив задан датчиком случайных чисел на интервале [-31, 45]. Сформировать новый массив В, состоящий из нечетных элементов массива А. Размер произвольный.
  12. Массив А вводится с клавиатуры. Сформировать новый массив В, состоящий из положительных элементов массива А и найти в нем наибольший элемент. Размер произвольный.
  13. Массив задан датчиком случайных чисел на интервале [-37, 66]. Найти наименьший нечетный элемент. Размер произвольный.

Двумерные массивы (матрицы)

1. Сформировать с помощью датчика случайных чисел и вывести на экран матрицу, размером МхN. Элементы задаются на интервале [-20, 25].

лабы по информатике, егэ

лабораторные работы и задачи по программированию и информатике, егэ по информатике

Pascal: Проверь себя (решенные задачи, операторы цикла)

Pascal операторы цикла — Repeat

var a,b,temp,c:integer; flag: boolean; begin writeln(‘A=’); readln(a); writeln(‘B=’); readln(b); temp:=a; repeat temp:=temp-b; inc(c); until temp-b>=0; writeln(‘result: ‘,c); end.

Pascal операторы цикла — While

P:=1; i:=3; while i 1) 1
2) 3
3) 9
4) 24

S:=0; i:=7; while i > 1 do begin S := S + i div 2; i := i — 1; end;

Варианты:
1) S = 0
2) S = 7
3) S = 12
4) S = 24

Решение данного задания смотрите в видео уроке по Паскалю:

var n, k,c: integer; begin writeln(‘N:’); readln(n); writeln(‘K:’); readln(k); c:=0; while n>=k do begin n:=n-k; c:=c+1; end; writeln(‘частное: ‘,c, ‘остаток: ‘, n); end.

var number:integer; flag: boolean; begin writeln(‘введите целое число (number>0) number=’); readln(number); flag:=false; while (number div 10)>0 do begin if (number mod 10) = 2 then flag:=true; number:=number div 10; end; writeln(flag); end.

var N,K,Temp :Integer; begin Write(‘Введите N: ‘); Readln(N); K:=0; Temp:=3; while Temp

* Из задачника М. Э. Абрамян (While14)

var Temp:Real; A,K :Integer; begin Write(‘Введите A: ‘); Readln(A); K:=0; Temp:=0; while Temp Проверить:

var i,R,K:Longint; begin write(‘Введите K : ‘); readln(K); R:=1; i:=0; while(R<>0) do begin write(‘Введите число из набора: ‘); Readln(R); if R Проверить:

var P, S, D:Real; K :Integer; begin Write(‘Введите процент: ‘); Readln(P); K:=1; D:=10; S:=10; while S Pascal операторы цикла — For

var c,m:real; i:integer; begin writeln(‘Цена?’); readln(c); m:=0.1; for i := 1 to 10 do begin writeln(‘ price of ‘,m, ‘ kg = ‘,c*m); m:=m+0.1; end; end.

var a, b, i: integer; begin writeln(‘A:’); readln(a); writeln(‘B:’); readln(b); for i:= b-1 downto a+1 do write(i:3 ); writeln; writeln(‘kolvo: ‘,b-a-1); end.

* Из задачника М. Э. Абрамян (For11)

var N, Rez,i :Integer; begin Write(‘Введите N: ‘); Readln(N); rez:=0; For i:=0 to N do Rez:=Rez+sqr(N+i); Writeln(Rez); end.

Сейчас предлагаем решить сложную олимпиадную задачу на Паскале:

var c,n,s,k,i:integer; begin c:=0; s:=0; readln(n); for i:=2 to n do begin k:=i; while k>0 do begin if i mod k = 0 then c:=c+1; k:=k-1; end; if c= 5 then s:=s+i; c:=0; end; writeln(s); end.

Posted in

Добрый вечер. В первом задании у вас не правильный код. Постоянно 1 выдаёт.
У меня получился вот такой:

var a,b,k:integer;
begin
write(‘Введите длину отрезка А (a>b) — ‘);
readln(a);
write(‘Введите длину отрезка Б (b at 19:20

ваш код в задачке while 4 на числа, начинающиеся на двойку(например 233) выдаёт false. я написал так(про булеан ещё не знал, ведь он в следующей главе):
var a,a1,z,i,j,i2:integer;

begin
write(‘vvedite chislo:’);
readln(a);
i:=1;
a1:=a;
z:=0;
while a1>=10 do begin
a1:=a1 div 10;
inc(i);
end;
a1:=a;
while i>0 do begin
i2:=1;j:=1;
while i2

Решение задач. День восьмой. Задачи If1-15

Всем привет! Сегодня мы начнем долгожданный разбор задач по программированию if1-15, а также вспомним и научимся применять различные процедуры. В решениях к некоторым задачам Вам встретится возможно неизвестная прежде процедура Inc. Пояснения к ней и к другим процедурам можно найти в этой статье .

If1. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.

If2. Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.

If3. Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.

If4°. Даны три целых числа. Найти количество положительных чисел в исходном наборе.

If5. Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.

If6°. Даны два числа. Вывести большее из них.

If7. Даны два числа. Вывести порядковый номер меньшего из них.

If8°. Даны два числа. Вывести вначале большее, а затем меньшее из них.

If9. Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B.

If10. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

If11. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

If12°. Даны три числа. Найти наименьшее из них.

If13. Даны три числа. Найти среднее из них (то есть число, расположенное между наименьшим и наибольшим).

Небольшое пояснение

If14. Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

Пояснение

If15. Даны три числа. Найти сумму двух наибольших из них.

Фух! На сегодня все! Если у вас возникли какие-либо вопросы не стесняйтесь, оставляйте все свои вопросы в комментариях под статьей! И не забывайте кликать по кнопочкам и рассказывать о нас своим друзьям.

Читать еще:  Hamachi проблемы с туннелем vpn
Ссылка на основную публикацию
Adblock
detector