Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > PascalABC.NET
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
PascalABC.NET Добавить к программе процедуру https://www.cyberforum.ru/ pascalabc-net/ thread1076909.html
Не получается создать к программе процедуру вывода файла исходного (f1.int) и файла с результатами (f2.int). Прошу помощи у знающих. program files; var f,g:file of integer; //имена файлов внутри программы zn,n,i,j,max,k:integer; //i-количество групп по 5, j-компоненты, k-бегает по группам по 5 BEGIN assign(f,'f1.int'); rewrite(f); 		На интервале [n, m] найти: количество чисел кратных 3 PascalABC.NET
На интервале найти: а) количество чисел кратных 3; б) сумму данных чисел
PascalABC.NET Вычислить количество положительных, нулевых и отрицательных членов последовательности https://www.cyberforum.ru/ pascalabc-net/ thread1076871.html
Помогите с задачей до 23 января. И если можно объясните принцип решения: Написать программу для вычисления количества положительных,нулевых и отрицательных членов последовательности x1,x2,..,x8. 		PascalABC.NET Не найден модуль Graph при переводе кода с Pascal на PascalABC.NET https://www.cyberforum.ru/ pascalabc-net/ thread1076715.html
Доброго времени суток всем, помогите пожалуйста перевести код с паскаля на паскальАВС, или что делать он выдает ошибку, модуль граф не найден. Uses crt, graph; Const n=200; h=1; dt=0.02; var i, j, DV, MV, EC : integer; eta,xi,xi1,xi2 : array of real; t, b, vv : real; BEGIN DV:=Detect; InitGraph(DV, MV, 'c:\bp\bgi'); Repeat t:=t+dt; If t<6.28 then xi1:=2*sin(t) else xi1:=0; For...
PascalABC.NET Не успел выучить функции, а сдавать уже через 2 часа
Нужно написать программу, в которой: - Пользователь вводит 2 числа a и b; - специальная функция вычисляет площадь треугольника, образованного линиями: y=ax+b, осью Ox и осью Oy; - ввод и вывод данных должен быть также реализован через функции; - главная часть программы должна обеспечивать нормальный диалог с пользователем. P.S. Ребята спасайте. Добавлено через 1 час 52 минуты upp 		PascalABC.NET Разделить натурально число n на натуральное m, получить частное и остаток Разделить натурально число n на натуральное m, получить частное и остаток. Операцию деления не использовать! Вроде как эту задачу надо сделать циклом. У меня получилось находить только округлённое частное. program d1; var k, ch, n, m, ostatok:integer; begin ch:=1; write('Введите частное: '); readln(n); write('Введите делитель: '); https://www.cyberforum.ru/ pascalabc-net/ thread1076056.html
PascalABC.NET Ошибка Неизвестное имя 'LoadPicture' Составил программу,запускай и пишет: Неизвестное имя 'LoadPicture' Вот сама программа program upr1a; uses crt,GraphABC; var pic:integer; begin SetWindowSize(500,500); ClearWindow(clwhite); pic:=LoadPicture('a.jpg'); https://www.cyberforum.ru/ pascalabc-net/ thread1075792.html PascalABC.NET Создание динамической структуры данных типа список
Если кто поможет, буду благодарен! :yahoo: Надо записать в стек 5 целых чисел. Затем поменять местами 1-й с 4-м элементом в стеке, не изменяя расположение в динамической памяти информационной части всех элементов стека (менять только адресную часть записи стека). Считать, что адресная часть первого элемента указывает на отсутствие следующего элемента списка. После чего вывести на печать...
PascalABC.NET Не работает заполнение двумерного массива с клавиатуры Здравствуйте! Считываю двумерный массив с клавиатуры var a: array of string; x, y, curx, cury: integer; begin read(x, y); for cury := 1 to y do begin https://www.cyberforum.ru/ pascalabc-net/ thread1074994.html PascalABC.NET Присвоить элементу в двумерном массиве значения соседнего элемента https://www.cyberforum.ru/ pascalabc-net/ thread1074993.html
Помогите пожалуйста написать программу которая присваивает элементу в двумерном массиве значение соседнего элемента (выбранного случайным образом).
Создание кнопок и переходов PascalABC.NET
В Pascal abc.net я не очень шарю и дальше gpaphabc пока что не ходил. Вопрос таков: Возможно ли создать кнопки, что бы при нажатии на одну происходило "goto" в нужную отметку, при нажатие на другую "goto" на другую отметку. Заранее спасибо. P.S. если напишите простенький пример буду только рад. 		PascalABC.NET Невозможно явно преобразовать тип integer к типу System.Random https://www.cyberforum.ru/ pascalabc-net/ thread1074889.html
Помогите пожалуйста, выдает ошибку, звучит она примерно так: Unit1.pas(50) : Невозможно явно преобразовать тип integer к типу System.Random Не понимаю в чем проблема. procedure Form1.button1_Click(sender: Object; e: EventArgs); begin textbox1.text:= textbox1.text+random(100); end;
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32835 / 21172 / 8148
Регистрация: 22.10.2011
Сообщений: 36,431
Записей в блоге: 8
21.01.2014, 00:36 0

Циклы в Паскале (циклы с пост- и предусловием) - PascalABC.NET - Ответ 5669498

21.01.2014, 00:36. Показов 2002. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Oliva999 как решение

Решение

И куда эти числа складывать? Просто вводить? Вот так (постусловие):
Pascal
1
2
3
4
5
6
7
8
9
10
11

var 
  X, s : real;
  
begin
  s := 0;
  repeat
    write('X = '); readln(X);
    if X > 0 then s := s + X;
  until (X < 0) or (s > 25);
  writeln('s = ', s:0:0);
end.
Предусловие:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13

var 
  X, s : real;
  
begin
  s := 0;
  X := 0;
  while (X >= 0) and (s <= 25) do
  begin
    write('X = '); readln(X);
    if X > 0 then s := s + X;
  end;
  writeln('s = ', s:0:0);
end.


Вернуться к обсуждению:
Циклы в Паскале (циклы с пост- и предусловием) PascalABC.NET
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 21.01.2014, 00:36
Готовые ответы и решения:

Программа на циклы с пост и предусловием
5.103. Дано натуральное число. Вывести на экран все его делители, меньшие, чем оно само, через...

Нужно переделать программу с циклом по параметру в циклы с пост- и предусловием (repeat и while)
Никак не получается( program e1; uses crt; var d,r,u,g: integer; begin for d:=1 to 9 do for...

Циклы с предусловием
Даны действительное и натуральное n. Вычислить: а(а+1)...(а+n-1).

циклы с предусловием и постусловием
Ребятки!!!!!!!!!Помогите пожалуйста!!!!!!!!!! Составить программу для задачи&quot;подсчитать сумму чисел...

1
21.01.2014, 00:36
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 21.01.2014, 00:36
Помогаю со студенческими работами здесь

циклы с предусловием и постусловием
Общий член последовательности задан формулой :a=n/5+2n+1 . Суммировать первые n членов...

Циклы с предусловием и с постусловием (while, do.while)
6. Вводится точность e. Вычислить сумму ряда Вычисления продолжать до тех пор, пока очередное...

Итеративные циклы с предусловием.
Вычислить и вывести те члены последовательности, ( (x^2) / (2!) ), -( (x^3) / (3!) ), ...., (...

Циклы с предусловием и постусловием
file:///C:/Users/User/Documents/Bandicam/bandicam%202018-01-13%2019-59-10-132.jpg решите...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru