Типовые задачи по информатике. Язык программирование Pascal abc




Скачать 121.47 Kb.
НазваниеТиповые задачи по информатике. Язык программирование Pascal abc
Дата публикации24.02.2013
Размер121.47 Kb.
ТипРешение
skachate.ru > Информатика > Решение

Составитель: преподаватель информатики Клюхин А. М.


Типовые задачи по информатике. Язык программирование Pascal ABC

  1. Ввод и вывод данных. Линейные алгоритмы.

Задание 1.1 Ввести два числа, вывести их на экран

program vvod_i_vyvod; //название программы

var // типы данных

a:integer; // а: целое

b:integer; // b: целое

begin // начало программы

write('Введите Первое число '); // приглашение на ввод 1

readln(a); //ввод числа А с клавиатуры

write('Введите Второе число '); // приглашение на ввод 2

readln(b); //ввод числа А с клавиатуры

writeln('Вы ввели числа', a,b); // вывод чисел на экран

end.

Задание 1.2 Ввести число, вывести на экран квадрат этого числа.

Решение 1.

program kvadrat;

var a, res:integer;

begin

writeln('Введите А');

readln(a);

res:=a*a;

writeln('квадрат числа',res);

end.

Решение 2.

program kvadrat;

var a, res:integer;

begin

writeln('Введите А');

readln(a);

res:=sqr(a); //команда возведения в квадрат

writeln('квадрат числа ',res);

end.


Задание 1.3 Ввести две переменные. Поменять их значения

program obmen;

var a, b, c:integer;

begin

writeln('Введите А'); readln(a);

writeln('Введите В'); readln(b);

//начало обмена

c:=a; a:=b; b:=c;

writeln(' a=',a, ' b=',b);

end.

Задание 1.4 Ввести число случайным образом. Вывести его на экран.

program Randoniy_vvod;

var a:integer;

begin

randomize; // обнуление датчика случайных чисел

a:=random(10); // получаем случайное число от 0 до 1

writeln(' a=',a);

end.

Задание 1.5 Ввести число А, прибавить к нему B2, где B случайное число из промежутка [5, 12]

program Randoniy_vvod;

var a, b, res:integer;

begin

writeln('введите число А');

readln(a);

randomize;

b:=random(7)+5;

writeln('b=',b);

res:=a+sqr(b);

writeln(' Результат a+b^2=',res);

end.

  1. Условный оператор. Организация ветвления.

Задание 2.1 Ввести два разных числа. Вывести на экран большее из них

program Sravnenie;

var a, b:integer;

begin

writeln('введите число А');

readln(a);

writeln('введите число B');

readln(b);

if a>b then

writeln (a, ' больше ', b)

else

writeln (b, ' больше ', a)

end.

Задание 2.2 Ввести два числа. Узнать их соотношение первого ко второму (больше, равно, меньше)

program Sravnenie;

var a, b:integer;

begin

writeln('введите число А');

readln(a);

writeln('введите число B');

readln(b);

if a>b then

writeln (a, ' больше ', b)

else

if athen

writeln (a, ' меньше ', b)

else

writeln (a, ' равно ', b)

end.

Задание 2.3 Ввести число. Если оно больше или равно 0, то прибавить к нему 1, иначе отнять 2

program Sravnenie;

var a, b:integer;

begin

writeln('введите число А');

readln(a);

if a>=0 then

begin

a:=a+1;

writeln ('Новый результат',a)

end

else

begin

a:=a-2;

writeln ('Новый результат',a)

end

end.

Задание 2.4 Ввести число от 1 до 5. Вывести его название.

program Chisla;

var a:integer;

begin

writeln('введите число А');

readln(a);

case a of

1: writeln('Один');

2: writeln('Два');

3: writeln('Три');

4: writeln('Четыре');

5: writeln('Пять')

else writeln('Число больше заданного условия');

end;

end.


  1. Организация повторений. Структура Цикл.

Задание 3.1 Вывести на экран 10 раз слово «Привет, Мир»

^ Цикл с параметром

program Hello_world;

var i:integer;

begin

for i:=1 to 10 do

writeln('Привет, Мир');

end.


Цикл с предусловием

program Hello_world;

var i:integer;

begin

i:=1;

while i<=10 do

begin

writeln('Привет, Мир');

i:=i+1;

end;

end.

Цикл с постусловием

Program Hello_world;

var i:integer;

begin

i:=1;

repeat

writeln('Привет, Мир');

i:=i+1;

until i>10

end.

Задание 3.2. Дано вещественное число – цена 1 кг кофе. Вывести на экран стоимость 1.1, 1.2, … 2 кг кофе

Цикл с параметром

program Coffe;

var C, x:real;

i:integer;

begin

write('Введите цену ');

readln(C);

for i:=0 to 10 do

begin

x:=1+i/10;

writeln('Цена ', X, ' кг = ', x*c);

end;

end.

Цикл с предусловием

program Coffe;

var C, x:real;

i:integer;

begin

write('Введите цену ');

readln(C);

x:=1;

while x<=2 do

begin

x:=x+0.1;

writeln('Цена ', X, ' кг = ', x*c);

end;

Цикл с постусловием

program Coffe;

var C, x:real;

begin

write('Введите цену ');

readln(C);

x:=1;

repeat

x:=x+0.1;

writeln('Цена ', X, ' кг = ', x*c);

until x>2

end.

Задание 3.3 Составить таблицу значений функции y=x2+5, для промежутка [-5, 5] c шагом 0,7

program Tabula;

var a, b, y, x, i:real;

begin

a:=-5;

b:=5;

i:=0.7;

x:=a;

while x<=b do

begin

y:=sqr(x)+5;

write('x=',x:5:2); // :5:2 - маска вывода значений переменой, то есть 5 символов на

целое, 2 на дробную часть

writeln(' y=':5,y); // :5 - данный вывод означает отступ от предыдущего на 5

символов

x:=x+i;

end;

end.

  1. Работа с массивами

Задание 4.1 Описать и ввести массив из 10 чисел

Заполнение ручным способом (с клавиатуры)

program vvodvivod_mas;

var i:integer;

a:array[1..10] of integer; // описание массива как типа

begin

//ввод массива вручную

for i:=1 to 10 do

readln(a[i]);

// вывод массива в одну стоку

for i:=1 to 10 do

write(a[i]:3);

end.


Заполнение массива случайным образом

program vvodvivod_mas;

var i:integer;

a:array[1..10] of integer; // описание массива как типа

begin

//ввод массива случайным образом

randomize;

for i:=1 to 10 do

a[i]:=random(10);

// вывод массива в одну стоку

for i:=1 to 10 do

write(a[i]:3);

end.

Задание 4.2 Найти максимум в массиве из 10 чисел.

program vvodvivod_mas;

var i, j, max:integer;

a:array[1..10] of integer; // описание массива как типа

begin

//ввод массива случайным образом

randomize;

for i:=1 to 10 do

a[i]:=random(100);

// вывод массива в одну стоку

for i:=1 to 10 do

write(a[i]:3);

// поиск максимального

Max:=a[1];

for i:=2 to 10 do

if a[i]>max then max:=a[i];

writeln;

Writeln('Максимальное значение в массиве = ', max);

end.
Задание 4.3 Найти сумму элементов массива

program summa;

var i, j, sum:integer;

a:array[1..10] of integer; // описание массива как типа

begin

//ввод массива случайным образом

randomize;

for i:=1 to 10 do

a[i]:=random(10);

// вывод массива в одну стоку

for i:=1 to 10 do

write(a[i]:3);

// суммирование

sum:=0;

for i:=1 to 10 do

sum:=sum+a[i];
writeln;

Writeln('Сумма элементов массива = ', sum);

end.

Похожие:

Типовые задачи по информатике. Язык программирование Pascal abc iconЛабораторная работа 1 тема: Программирование на pascal. Линейная алгоритмическая конструкция
Цель: научиться составлять задачи, содержащие линейный алгоритм на языке программирования pascal
Типовые задачи по информатике. Язык программирование Pascal abc iconТема урока: «Язык программирования Pascal. Типы данных и основные...
Программа алгоритм, записанный на языке программирования, служащий для выполнения каких-либо действий
Типовые задачи по информатике. Язык программирование Pascal abc iconПримерный перечень вопросов к экзамену
Язык программирования Turbo Pascal Типы данных. Операторы языка Pascal. Приоритет операторов. Операторы ввода, вывода. Примеры
Типовые задачи по информатике. Язык программирование Pascal abc iconПрограмма в Turbo Pascal записывается в виде последовательности символов,...
Рекомендовано к изданию в качестве методических указаний к выполнению лабораторных работ по информатике в среде Turbo Pascal для...
Типовые задачи по информатике. Язык программирование Pascal abc iconСамостоятельная работа программирование разветвляющихся и циклических алгоритмов
Отчет состоит из нескольких документов: Word-документ, Mathcad-документ и Pascal-документы. Word-документ должен содержать титульную...
Типовые задачи по информатике. Язык программирование Pascal abc iconГосударственный стандарт по дисциплине
Сеть Интернет, ее функциональные и архитектурные особенности; сетевые протоколы; стек протоколов tcp/IP; программирование сокетов;...
Типовые задачи по информатике. Язык программирование Pascal abc iconСистемное программирование в unix средствами Free Pascal
Подробнее о вызове chmod 61 Глава Каталоги, файловые системы и специальные файлы 63
Типовые задачи по информатике. Язык программирование Pascal abc iconРылова Анна (11Ф/М) уч. Камерлох Очная, теоретические вопросы Подготовка заданий
В октябре в гимназии проходил школьный тур олимпиад. Олимпиады были проведены по предметам: математика, физика, история России, право,...
Типовые задачи по информатике. Язык программирование Pascal abc iconДиагностический тест Треугольники. В треугольнике abc ас = вс
В треугольнике abc ас = вс, ad — высота, угол bad равен 24° (см рис.). Найдите угол С
Типовые задачи по информатике. Язык программирование Pascal abc iconПрограмма по дисциплине "Функциональное программирование"
Введение в функциональное программирование. О языке Лисп. Примеры на Лиспе. Символьная обработка. Лисп опередил свое время. Одинаковая...

Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2014
контакты
skachate.ru
Главная страница