Отправляет email-рассылки с помощью сервиса Sendsay

Turbo Pascal. Задачи и их решения

Подписаться Бесплатная новостная рассылка Подписчиков 60 RSS
←   Апрель 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Открыта: 15-03-2004

Автор
linker

Статистика

60 подписчиков
0 за неделю
←   Все выпуски   →

Turbo Pascal. Задачи и их решения . Выпуск ТРЕТИЙ


Информационный Канал Subscribe.Ru 
Привет всем! Начнем с того, что я расскажу о новостях. Теперь каждый, приславший

свое решение будет оцениваться по 20-бальной системе. Каждый месяц мы будем 
подводить итоги и поздравлять победителя. Награда - несколько часов бесплатного
Dial-Up'а. В письмах указывайте свой ник. Пароль получите автоматически после

первого письма. Посмотреть статистику можно будет на сайте www.exeshnik.land.ru.
И еще, у нас поменялся адрес электронной почты: exeshnik@list.ru

Теперь к задачам. Ответов я так и не увидел.
Сначала решения предыдущих заданий:

ЗАДАНИЕ 1.

uses Ctr;
var
  n : integer;
begin
  ClrScr; {очистка экрана}
  Writeln('Введите целое число:');
  Readln(n); {считывание числа}
  If n mod 5 = 0 then Writeln('Введенное число делится на 5') {проверка введенного
числа}
   else Writeln('Введенное число не делится на 5');
  Readln;
end.

ЗАДАНИЕ 2.

uses Crt;
var
  so, sk, n, c : integer;
begin
  ClrScr; {очистка экрана}
  Writeln('Введите номер зоны для станции отправления:');
  Readln(so);
  Writeln('Введите номер зоны конечной станции:');
  Readln(sk);
  If sk>so then n:=sk-so
   else n:=so-sk;
  c:=n*3;
  Writeln('Стоимость проезда составляет ',c,' руб.');
  Readln;
end.

ЗАДАНИЕ 3.

uses Crt;
const
  n = 25;
var
  i, k : integer;
begin
  ClrScr;
  k:=0; {счетчик кол-ва студентов, удовлетворяющих заданному условию}
  Writeln('Программа отбора в баскетбольную команду.');
  For i:=1 to n do
   begin
    Writeln('Введите рост ',i,' студента:');
    Readln(r);
    If r>= 175 then k:=k+1;
   end;
  Writeln('Количество кандидатов в баскетбольную команду');
  Writeln('В данной группе равно ',k);
  Readln;
end.


Теперь следующие задания.
Тема: Работа со строками и символами.

ЗАДАНИЕ 1.
Составить программу, которая проверяет, является ли введенная с клавиатуры 
последовательность символов целым числом, записанным в двоичной системе счисления.
При этом известно, что данной системе счисления для записи числа используется

только две цифры - нуль и единица.

ЗАДАНИЕ 2.
Составить программу, которая подсчитывает число слов, введенных в компьютер с
клавиатуры строке. Условимся считать словом любую последовательность символов,

которая отделена от других пробелом. Например в предложении "персональный компьютер
фирмы Apple" имеются 4 слова, отделенные друг от друга тремя пробелами. Как видно
из приведенного примера, количество слов в строке можно определить как сумму

имеющихся в строке пробелов плюс еденица.

ЗАДАНИЕ 3.
Изменить предыдущую программу таким образом, чтобы она подсчитывала среднюю длину
слова во введенной с клавиатуры строке.


Жду ваших решений на e-mail: exeshnik@list.ru
Всем пока и хороших майских праздников! Скоро увидимся!!!

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу

В избранное