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

Паскаль для школьников

Подписаться Бесплатная новостная рассылка Подписчиков 27 RSS
←   Июль 2003   →
 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
31


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


Открыта: 11-06-2003

Автор
$ereg@

Статистика

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

Паскаль для школьников


Информационный Канал Subscribe.Ru
Выпуск No 3

 

Выпуск No 3

Автор рассылки $ereg@

 

Здравствуй, подписчик. Наконец-то он у меня появился. Хотелось бы знать как это ты решился или решилась подписаться на эту рассылку : )

На предыдущий выпуск не обращай, пожалуйста, внимания, он получился не очень :-(

В этом выпуске по понятней напишу все то, что хотел объяснить в предыдущем.

Напиши обязательно, что именно тебя интересует. Будем работать.

 

Сразу начнем с практики.

Найти из двух чисел наибольшее.

 

Program poiskmax;                              

var

    a,b,max:integer;                           

begin                                          

    writeln(‘Введите a, b’);                     

    readln(a,b);                                

      if  a>b then max:=a                       

              else max:=b;                       

    writeln(‘ Максимальное число равно ‘,max);   

    readln;   

end.       

 

  Вычислить значение функции

   х2  + 5 , при х>3

   х – 8 , при х ≤ 3

 

program no2;

var

    x,y:real;

begin

    writeln(‘Введите x’);

      if x>3 then y:=sqr(x)+5

             else y:=x-8;]

    writeln(‘Ответ:y= ‘,y:8:3);

    readln;

end.

                                 

  Все!!! Я, вроде, исправил свои ошибки.

Присылай свои вопросы и замечания по адресу s_bal@rambler.ru

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