Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Матрица https://www.cyberforum.ru/ pascalabc-net/ thread2585697.html
Доброй ночи всем.Нужна ваша помощь.Задана матрица размером NxM.Получить массив B,присвоив его k-ому элементу значение 0,если все элементы k-го столбца матрицы нулевые,и значение 1 в противоположном...
PascalABC.NET Написать программу используя FOR
Считая, что Земля - идеальная сфера с радиусом R~ 6350км, определить расстояние до линии горизонта от точки с высотой над Землей, равной 1,2,...,10 км
PascalABC.NET Списки. Перевернуть список Здравствуйте!Помогите допилить код... 5-6-7 пункт в меню, спасиб. type Link = ^Number; Number = record ID: integer; Cislo : real; NextRec: Link; end; var i, c,k,l,v,nnn: integer; https://www.cyberforum.ru/ pascalabc-net/ thread2585554.html PascalABC.NET Составить циклический алгоритм https://www.cyberforum.ru/ pascalabc-net/ thread2585401.html
Составить программу для вывода на экран нечетных чисел от 13 до 3. Найти сумму этих чисел.
Модули PascalABC.NET
Код модуля: unit UnitMass; interface const nmax = 100; type
PascalABC.NET Как сделать так, чтобы 2 программы могли читать один и тот же файл в одно время https://www.cyberforum.ru/ pascalabc-net/ thread2585173.html
Как сделать так, чтобы 2 программы могли читать один и тот-же файл в одно время. Заренее спасибо
PascalABC.NET Ошибка в программе https://www.cyberforum.ru/ pascalabc-net/ thread2585153.html
uses GraphABC, ABCButtons; var a:array of ButtonABC; s,d:integer; f:text; begin while( s <> 1)do begin a:=new ButtonABC(50,50,400,40,'~~~~~~~',clgreen); assign(f, 'Касса1.txt'); ...
PascalABC.NET Размен монет
Имеется n рублей. Требуется разменять данную сумму, если в кассе есть купюры 10 руб, 100 руб, 50 руб, 1 руб. Подсчитать кол-во способов, которыми это можно сделать.
PascalABC.NET Как убирать текст в модулях GraphABC, ABCButtons? https://www.cyberforum.ru/ pascalabc-net/ thread2585085.html
Как убирать текст в модули GraphABC, ABCButtons. Заранее спасибо
PascalABC.NET Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале [-15,15] и вывести ее на экран https://www.cyberforum.ru/ pascalabc-net/ thread2585081.html
Заполнить матрицу из 8 строк и 5 столбцов случайными числами в интервале и вывести ее на экран.Найти минимальный и максимальный элементы в матрице их номера.
PascalABC.NET Генератор двоичных чисел через рекурсию
Сгенерировать все двоичные числа с ненулевой первой цифрой, состоящие из a нулей и b единиц, используя рекурсию.
PascalABC.NET Ограниченный перебор через рекурсию Команда состоит из 9 человек, известно, что трое из них заняли призовые места. Определите возможные варианты распределения мест, используя рекурсию. https://www.cyberforum.ru/ pascalabc-net/ thread2584954.html
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
18.02.2020, 07:36 0

В чем ошибка, скажите пожалуйста, почему не работает? - PascalABC.NET - Ответ 14262140

18.02.2020, 07:36. Показов 294. Ответов 2
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const n=8;
type MARCH = record
             NNP:string[25]; // нач пункт //
             NKP:string[25];  // кон пункт //
             Nom:integer; // номер //
             end;
var Mach:array[1..n] of MARCH;
     a:integer;
begin
for a:=1 to n do
 begin
  writeln(' нач пункт'); // Москва Ростов Казань Краснодар Спб Таганрог Азов Аксай  //
  readln(Mach[a].NNP);
  writeln('кон пункт'); // Аксай Азов Таганрог Спб Москва Ростов Казань Краснодар//
  readln(Mach[a].NKP);
  writeln('номер'); //   //
  readln(Mach[a].Nom);
 end;
for a:=1 to n do  
writeln(Mach[a].Nom:5,Mach[a].NNP:10,Mach[a].NKP:10);
end.


Вернуться к обсуждению:
В чем ошибка, скажите пожалуйста, почему не работает? PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.02.2020, 07:36
Готовые ответы и решения:

Скажите, пожалуйста,в чем ошибка
Private Sub CommandButton1_Click() Dim x As Single, y As Single For x = 0.5 To 2.5 Step 0.5 y =...

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

Двумерный массив. скажите пожалуйста в чем ошибка?
введем 6 6 все получается, но почему-то вверху нули!!! Program Dwumernii_massiv; uses...

Нужно отделить части адреса как в комментарии к программе. Но почему то не работает. Скажите пожалуйста. Что не так?)
Нужно отделить части адреса как в комментарии к программе. Но почему то не работает. Скажите...

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

Скажите, пожалуйста, почему программа зациклилась?
#include&lt;stdio.h&gt; #include&lt;math.h&gt; int main() { int c,st=2,a,mn=2,b,chisl,znam; float t=.0;...

Выдает ошибку, а я не могу понять в чем проблема. В чем проблема, скажите пожалуйста!
dx=0.0005; epsillon=0.00002; i=0; for x= 0:0.0005:3 i=i+1; if x&lt;1 y (i)=-1; ...

Часы. Скажите пожалуйста почему они не работают?
public class Clock { private int hours; private int minutes; public static void...

почему то выдает ошибку, хотя делал по книжке, подскажите пожалуйста в чем ошибка
почему то выдает ошибку, хотя делал по книжке решение системы линейных алгебраических уравнений...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru