Не запускается паскаль абс на windows 10

	Проблемы с PascalABC.Net 18.10.2016, 06:06
21/09/12 ∞ 1871	PascalABC может ставиться непосредственно на компьютер или использоваться в Сети: http://pascalabc.net/WDE/ Дома у меня Windows 10. Локальная версия встала без проблем. Сейчас в командировке. На ноутбуке Windows 7. Пытался ставить локальную версию, — после её запуска выдаёт ошибку: поставьте NET.Framework v4.0. Поставил и его, вроде без ошибок. Но программа не запускается. Попробовал работать на сетевой версии. Всё работает, быстро, но недолго. Через пару минут работы программа без всяких сообщений слетает. Ограничений на время работы в документации не нашёл.

Progger	Re: Проблемы с PascalABC.Net 18.10.2016, 18:51
27/08/14 206	Смотрите журнал событий Windows: Компьютер -> Управление (в контекстном меню по пкм) -> Диагностика -> Журналы Windows (вроде так, пишу по памяти). Сначала смотрите журнал приложений, скорее всего там будет ошибка. Если не будет, можете поискать в журнале системы. Какой .net ставили (откуда брали установщик)?

Yuri Gendelman	Re: Проблемы с PascalABC.Net 18.10.2016, 20:03
Заслуженный участник 15/05/05 3445 USA	На ноутбуке Windows 7. Пытался ставить локальную версию, — после её запуска выдаёт ошибку: поставьте NET.Framework v4.0. Поставил и его, вроде без ошибок. Но программа не запускается. Вы поставили именно NET.Framework v4.0? Какие версии NET.Framework у Вас установлены? На странице http://pascalabc.net/ssyilki-dlya-skachivaniya есть такое сообщение: «Пользователям операционных систем Windows 7 SP1, Windows Vista SP2 и выше рекомендуется установить версию .NET Framework 4.5.1 или старше.» Там же есть ссылка на NET Framework 4.5.1

atlakatl	Re: Проблемы с PascalABC.Net 19.10.2016, 05:59
21/09/12 ∞ 1871	Yuri Gendelman Progger Ошибка та же:

warlock66613	Re: Проблемы с PascalABC.Net 19.10.2016, 08:50
Заслуженный участник 02/08/11 6514	Вообще-то, .NET Framework 4.x является частью Windows 7, так что его надо ставить через «Компоненты Windows» и обновлять через обновление системы.

atlakatl	Re: Проблемы с PascalABC.Net 19.10.2016, 11:14
21/09/12 ∞ 1871	Progger Yuri Gendelman warlock66613 Большое спасибо! У меня обновление Windows криво стояло. Перезапустил его. И сразу получилось поставить .NET Framework 4.5.1. Локальный PascalABC работает!

Модераторы: Karan, Toucan, PAV, maxal, Супермодераторы

Пример: Вычислить сумму четных чисел от 2 до 20.

sum := 0; x := 2; repeat sum += x; x += 2; until x = 22;

sum := 0; x := 2; repeat sum += x; x += 2; until x = 22;

Видео на тему: Установка Turbo Pascal на ОС Win7 64-bit. Основы программирования. Паскаль. Урок №1.

Подготовка к работе в Pascal

Итак, вы решили научиться программировать и начать с языка наиболее для этого подходящего – Pascal. Для начала работы вы должны приобрести (скачать) компилятор.

А что же собственно, такое, этот «компилятор»? Это специальная программа, которая считывает код программы, а затем переводит его на язык машинных кодов. То есть, по сути, все языки программирования – это способ “общения” с компьютером, а компилятор помогает перевести нашу “речь” на понятную ему.

Для Pascal существует немало компиляторов, самые известные из них: Pascal ABC, Free Pascal, Pascal ABC.NET, Turbo Pascal. Все эти программы по-своему хороши, но лично для меня (автора), очень удобен Pascal ABC (или Pascal ABC.NET), поскольку он имеет весьма удобный интерфейс, подробную справку, и даже специально подготовленный для новичков сборник задач.

Начало работы в Pascal

Что ж, перед нами открыто окно компилятора. Чистый, белый (или синий?) лист. Здесь и будут появляться на свет наши первые программы. Перед началом работы следует запомнить, что язык Pascal – это совокупность трёх составляющих: алфавита, синтаксиса (правил написания объектов языка) и семантики (правил использования этих объектов). Алфавит Pascal состоит из:

Задача же синтаксиса и семантики состоит в том чтобы, правильно написать раздел программы и правильно составить ее структуру, в противном же случае наша программа будет работать неправильно (или же не работать вовсе!). Вам наверное уже не терпится приступить к самой интересной части, так что сейчас мы с вами попробуем написать ваши первые программы.

Операторы, стандартные процедуры и функции [ править ]

Вывода на экран [ править ]

Вывод текста [ править ]

Вывести текст — это значит отобразить текст на экране. Общий синтаксис для вывода текста выглядит так:

Вывод значений переменных [ править ]

Вывод значений произвольного количества переменных:

Для перехода на новую строку после вывода последнего значения используйте Writeln вместо Write.

Ввод данных с клавиатуры [ править ]

Чтение с клавиатуры — это процесс ввода данных с клавиатуры и запись в соответствующий элемент программы этих данных. Элементами программы являются как переменные, так и элементы массивов. Тип данных, вводимых с клавиатуры, должен соответствовать типу элемента, в который записываются данные с клавиатуры. Использование Readln

для чтения с клавиатуры и перехода на новую строку:

Условный оператор [ править ]

Общий синтаксис условного оператора if:

будут выполнены только при истинности условия.

Примеры программ на Pascal

Задание:

Ввести с клавиатуры n чисел. Определить количество четных.

Код программы:
var n,i,k,a:integer; begin writeln(‘введите количество чисел’); readln(n); a:=0; for i:=1 to n do begin writeln(‘введите ‘,i:1,’-е число’); readln(a); if a mod 2=0 then k:=k+1; end; writeln(‘кол-во четных чисел ‘,k); readln; end.
Задание:

Дано четырехзначное число. Верно ли, что сумма первой и последней цифр равна сумме средних цифр?

Пример теста:

1234 — да: 1+4=2+3 7459 — нет: 7+9 ≠ 4+5

Код программы:
var n,p1,p2,p3,p4:integer; begin writeln(‘введите четырехзначное число’); readln(n); p1:=n div 1000; p4:=n mod 10; p2:=(n div 100) mod 10; p3:=(n div 10) mod 10; if p1+p4=p2+p3 then writeln(‘right’) else writeln(‘false’); readln; end.
Задание:

Решение квадратного уравнения ax2+bx+c=0

Пример теста:

Код программы:
var a,b,c,D,x1,x2:real; begin writeln(‘введите a,b,c’); readln(a,b,c); if a=0 then if b=0 then if c=0 then writeln(‘x любое’) else writeln(‘нет решений’) else begin x1:=c/b; writeln(‘x=’,x1:12:6); end else begin D:=b*b-4*a*c; if D>0 then begin x1:=(-b-sqrt(D))/(2*a); x2:=(-b+sqrt(D))/(2*a); writeln(‘x1=’,x1:12:6); writeln(‘x2=’,x2:12:6); end else if D=0 then begin x1:=-b/(2*a); writeln(‘x=’,x1:12:6); end else writeln(‘нет решений’); end; readln; end.
Задание:

При попадании в маленький круг (радиус = 1), игроку начисляется 2 балла, при попадании в большой круг (радиус 2) — 1 балл, мимо мишеней — 0 баллов.

Пример теста:

Код программы:
var x,y:real; z:byte; begin writeln(‘введите координаты’); readln(x,y); if x*x+y*ythen z:=2 else if x*x+y*ythen z:=1 else z:=0; writeln(‘ваш результат ‘,z); readln; end.
Задание:

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

Пример теста:

Код программы:
var x,y:real; begin writeln(‘введите x’); readln(x); y:=(arctan(x)-exp(x))/sqrt(abs(x)); writeln(‘y=’,y:12:6); readln; end.
Задание:

Найти сумму элементов столбца, содержащего максимальный элемент. Если максимальный элемент встречается несколько раз, то вычислить сумму столбца, в котором максимальный элемент встречается в последний раз. То есть в тесте взять такую матрицу, чтобы максимальный элемент встречался в несколькх столбцах.

Пример теста:

1 2 3 4 7 1 3 0 2 7 4 3 1 3 2 1

Ответ: 13 (второй столбец: 2+1+7+3=13)

Код программы:
type meow=array[1..10,1..10] of integer; var a:meow; i,j,m,n:byte; max,s,k:integer; begin writeln(‘введите число строк и столбцов ‘); readln(n,m); for i:=1 to n do begin writeln(‘введите строку ‘, i); for j:=1 to m do readln (a[i,j]); end; writeln (‘матрица А’); for i:=1 to n do begin for j:=1 to m do write (a[i,j]:4, ‘ ‘); writeln; end; max:=a[1,1]; for i:=1 to n do for j:=1 to m do if a[i,j]>=max then begin max:=a[i,j]; k:=j; end; for i:=1 to n do begin for j:=k to k do s:=s+a[i,k]; end; writeln(‘s=’,s); readln; end.

Работа с PascalABC

После набора текста программы необходимо выполнить ее сохранение и задать имя. Для этого можно воспользоваться командой Файл-Сохранить как или соответствующей кнопкой на панели инструментов.

Давайте имя отличное от предлагаемого по умолчанию. Это облегчит вам в дальнейшем поиск нужного кода.

Запуск

Ошибки в программе

Курсор будет указывать место вероятной ошибки, но это не всегда совпадает с её описанием. Вот, например, на скриншоте выше курсор указывает на переменную Y, но ошибка содержится в строке выше. Там пропущен символ «точка с запятой», который обязательно должен быть по завершению каждой командной строки. После исправления ошибки, снова запускаем выполнение программы.

Остановка

Остановка программы происходит по ее завершению. Но возможны случаи, когда программу необходимо остановить принудительно. Для этого есть кнопка «Стоп» на панели инструментов или команда Программа — Завершить.

Настройка текстового редактора abc паскаль

По умолчанию в редакторе кода задан минимальный размер шрифта. Если вы испытываете дискомфорт при наборе текста, то зайдите в меню Сервис — Настройки редактора. Установите желаемый размер шрифта.

Настройка редактора Pascal ABC

Внешний вид интерфейса программы PascalABC

Окно среды программирования выглядит стандартно. В нем присутствует строка меню (1), ниже располагается панель инструментов быстрого доступа (2). Далее расположена рабочая зона редактора кода.

Внешний вид интерфейса программы

Вверху отображены ярлыки открытых файлов с текстами программ (3). Одновременная работа с несколькими текстами значительно упрощает создание программ. Можно копировать и переносить участки кода из одного файла в другой (4).

В режиме выполнения программы можно увидеть зону ввода данных и вывода результатов (5).

Что может Паскаль АБЦ?

Помимо своей главной функции в обучении написания простейших кодов, программа имеет:

Особенности языка

Любая переменная в этом языке имеет свой тип. Это значит, что она может принимать множество значений. Также можно проводить различные операции над переменными.

Основы языка

При использовании Паскаля придерживаются жесткой типизации. При описании переменной определяют ее тип и более этот тип не могут изменить.

Назначение переменной – участвовать в операциях, определенных ее типом. При составлении программ следует это учитывать. Данный подход позволяет компилировать проверки на корректность, что позволяет добиться высокой надежности программ.

Простые типы являются базовыми в этой программе. Из простых формируются составные типы. Для иных типов используют ссылочные.

Чтобы построить сложный тип используют ссылочные и составные типы.

Для сужения области допустимых значений формируют ограниченные типы. Для этого достаточно простым типам задать спектр допустимых значений (к примеру, для переменной задается значение от 1 до 5, или от 1 до 100, или другие варианты). В этой программе это будет прописано как: for var i:=1 to 5 do или for var i:=1 to 100 do.

Источник

Установка под виндовс

Как установить PascalABC.NET под Windows

PascalABC.NET — это новая версия языка программирования. В него входит «старый» Паскаль, плагины разработки Delphi и прочие модули. Паскаль абс работает на инструменте «Фреймворка» и поддерживает языковые средства нового поколения.

NET Framework — это набор компонентов в одной платформе со средой исполнения «Common Language Runtime» (CLR), которая запускает языки программирования и убирает ошибки при компиляции данных. Функциональные возможности CLR работают в любой среде разработки с поддержкой «Фреймворка».

Установка программы состоит из таких этапов:

После скачивания установочного пакета, запустите файл «PascalABCNETWithDotNetSetup» или исполнительный файл с подобным названием. В появившемся окне, выберите тип установки и нажмите «Далее».

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

Стандартно все данные хранятся на «Рабочем столе». Нажмите «Создать папку» и «Ок» или выберите другое место и создайте отдельный каталог для хранения информации, например, на диске С или D. После этого, щёлкните «Установить».

Запускайте «разработчик приложений» через ярлык на «Рабочем столе». «Рабочая папка» (Samples), находится там же, если вы не изменили место при установке. Альтернативный способ запуска: Меню Пуск – Программы – PascalABC.NET. В папке Samples находятся готовые модули.

Эта версия вам подойдет если вы еще не устанавливали Паскаль абс. Содержит все необходимые программы для запуска:

Источник

Adblock
detector

UNIT data_input;
 
INTERFACE
uses crt;
const n=5;
  type leaner = record
                 fam     : string[50]; //фамилия ученика
                 name    : string[50]; //имя
                 school  : integer;   //№ школы
                 predmet : array [1..n] of char; //предмет
                 ball    : array [1..n] of integer; //количество набранных баллов на ЕГЭ
                end;
  procedure  INPUT; //ВВОД ДАННЫХ
 
 
 
IMPLEMENTATION
 
   //ВВОД ДАННЫХ
PROCEDURE INPUT;
var s: leaner;
    f: file of leaner;
    i: integer;
    g, q: char;
Begin
  //проверка на существование файла и его создание
  
  if not (FileExists ('Список учеников.txt')) then
    begin
      textcolor(4);
      write('Файл не существует!');
      textcolor(0);
    end
  else
    write ('Здравствуйте, вы хотите создать новый файл - (Y) или открыть уже имеющийся - (N)?');
    readln(g);
    if (g='y') or (g='Y') then
      begin
        assign(f,'Список учеников.txt');
        rewrite (f);
      end
    else
      begin
        assign(f,'Список учеников.txt');
        reset(f);
      end;
  
  //ввод данных о человеке
  i:=1;
  repeat
    write('Введите фамилию ученика: ');
    readln(s.fam);
    write('Введите имя ученика: ');
    readln(s.name);
    write('Введите № школы ученика: ');
    readln(s.school);
    writeln('Введите наименования предметов, которые сдавал ученик (5 предметов): ');
    for i:=1 to n do
      readln( s.predmet[i] );
    writeln('Соответственно введите количество набранных баллов на ЕГЭ учеником (если ученик не сдавал какой-либо экзамен поставьте 0): ');
    for i:=1 to n do
      readln(s.ball[i]);
    write(f,s);
    write('Вы закончили ввод данных (y/n)?');
    readln(q);
  until (q='n') or (q='N');
  close(f);
End;
 
 
 
 
BEGIN  // начало инициирующей части
END.    // конец инициирующей части

PascalABC.NET (версия 3.8.3, сборка 3235 от 03.02.2023) — Windows, Linux

Перед установкой ознакомьтесь с Лицензионным соглашением.