Плюсы:
- Позволяет легко писать программы почти как на чистом английском, а не ломать пальцы и голову о "++i + ++i", (-1 > (unsigned int) 1 ) и прочих сишных извращений.
- Отсутствие большого количества слов для изучения(Что облегчает задачу в изучении)
- Компилятор Паскаля имеет невысокие аппаратные и системные требования. Это же можно сказать и о софте, который будет выполнен с этого языка программирования.
- При работе с Паскалем очень редко необходимы вставки ассемблера. В основном весь софт подготовлен и готов к работе. Также, стоит отметить открытый исходный код, который доступен к редактированию каждому умельцу.
Минусы:
- невозможность передачи функциям массивов переменной длины.
- отсутствие нормальных средств работы с динамической памятью.
- ограниченная библиотека ввода и вывода.
- Этот язык создали в 60-х годах. Соответственно, в наше время он считается уже устаревшим.
- В действительности очень мало реального ПО.
var a:array[1..9] of integer;
i,j,c,sum,t:integer;
begin
c:=0;
sum:=0;
for i:=1 to 9 do readln(a[i]);
for i:=1 to 9 do begin
if a[i]>2 then c += 1;
if a[i]<12 then sum += a[i];
end;
for i:=1 to 9 do begin
for j:=9 downto i do begin
if a[j]>a[i] then begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
end;
end;
writeln('Количество чисел > 2: ',c);
writeln('Сумма чисел < 12: ',sum);
for i:=1 to 9 do writeln('a[',i,']=',a[i]);
end.
![Заполнить с клавиатуры массив a[1...9]. Вывести на экран количество чисел , больших 2 и сумму тех, к](/tpl/images/1079/0964/6ac18.jpg)
program НАЗВАНИЕ ПРОГРАММЫ;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a, b, h, s:real;
begin
writeln('Enter a, b and h');
readln(a, b, h);
s:=(0.5*(a+b))*h;
writeln('Area of the trapezoid=', s);
readln;
end.
Программа №2.
program НАЗВАНИЕ ПРОГРАММЫ;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a, b, s:integer;
begin
writeln('Enter the price and quantity');
readln(a, b);
s:=a*b;
writeln('Cost of purchase=', s);
readln;
end.
Программа №3.
program НАЗВАНИЕ ПРОГРАММЫ;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a, b, w:real;
begin
writeln('Enter the speed and time');
readln(a, b);
w:=a*b;
writeln('Way=', w);
readln;
end.
Вместо "НАЗВАНИЯ ПРОГРАММЫ" напишите название Вашей программы.
Так как в некоторых задачах не оговорено, что числа целые или нет, я выбрал на всякий случай вещественный(real).