|
|
| Другие темы раздела | |
|
Pascal ABC Составить блок схему к готовому коду
https://www.cyberforum.ru/ pascalabc/ thread117715.html Program pro1; uses crt; Var a,b,x,f,h:real; I:byte; Procedure raszet; begin f:=ln(x)-b*exp(1/2*ln(x)); writeln('! ',x:4:2,' ! ',f:6:2,' !'); x:=x+h; end; |
Составить блок схему к готовому коду Pascal ABC сделайте блок схему на эту программу!!у меня не получилось!! uses crt; const n=5; var a:array of real; i,j:byte; sm:real; begin clrscr; randomize; sm:=0; |
| Pascal ABC Объясните алгоритм нахождения наибольшего общего делителя function nod(a,b:longint):longint;//функция нахождения наибольшего общего делимое begin if a=b then nod:=a else if a>b then nod:=nod(a-b,b) else nod:=nod(b-a,a); end; объясните пожалуйста алгоритм нахождения наибольшего общего делимого https://www.cyberforum.ru/ pascalabc/ thread117084.html |
Pascal ABC массив
https://www.cyberforum.ru/ pascalabc/ thread116815.html что нужно добавить к этой программе чтоб при вводе числа больше или равным 5 он выдовал сообщения что я ввела не то число? И подскажите что в процедуре ввода делает значение kl? program pr1; uses crt; const WG=100; type tmasi=array of integer; var a:tmasi; n,kl:byte; (*процедура ввода*) procedure pr_wod(kl:byte; var n:byte; var mas:tmasi); var i:byte; begin |
|
Pascal ABC графика в pascal abc привет всем!! помогите пожалуйста кто сможет, срочно до пятницы нужно сделать картинку на паскале абс, просто меня на этой теме небыло а разбираться времени нет помогите кто сможет!!надо сделать надпись, логотип, 2 существ с разных сторон!! |
Pascal ABC подскажите почему не работает program gasoline; var MinPrice, Count: array of integer; N: integer; c: char; i, j, k, price: integer; begin Readln(N); for i:=1 to 3 do begin MinPrice := 3001; Count := 0; https://www.cyberforum.ru/ pascalabc/ thread116720.html |
|
Pascal ABC Составить программу вычитания дробей
https://www.cyberforum.ru/ pascalabc/ thread116415.html вот задание Даны две дроби A/B и C/D (A, B, C, D – натуральные числа). Составить программу вычитания этих дробей. Результат должен быть несократимой дробью. вот программа uses crt; var a,b,c,d,e,f,k:longint; function nod(a,b:longint):longint; begin if a=b then nod:=a else if a>b then nod:=nod(a-b,b) else nod:=nod(b-a,a); end; |
Pascal ABC Вычислить значение выражения вот условие Даны действительные числа s, t. Получить: h(s,t)+max(h2(s-t, st), h4(s-t, s+t)) + h(1,1), где h(a,b)=a/1+b^2+b/1+a^2 - (a-b)^3 вот программа program x; uses crt; var F,a,b,s,t:real; function h(a,b:real):real; begin |
|
Pascal ABC Пиксели. Сгенерировать данные, которые отвечают условию задачи, и вывести их в текстовом файле в форме, удобной для просмотра.
https://www.cyberforum.ru/ pascalabc/ thread116371.html Общее условие:Згенерировать даные, которые отвечают условию задачи, и вывести их в текстовом файле в фореме, удобной для просмотра.Кол-в точек выбирается от 10 до 5000 в зависимости от словия. Задание:В заданом текстовом файле каждая пара тройка натуральных чисел задаёт координаты точки и её цвет. Вывести на екран все эти точки. Вот програмка есть, но она выводит все точки ниже диагонали... |
Pascal ABC Подсчитать количество гласных букв в строке
https://www.cyberforum.ru/ pascalabc/ thread116323.html 1)Дана строка-предложени на русском языке , надо подсчитать сколко гласных букв в строке. 2)дана строка -предложение надо подсчитать сколько знаков препинания. Pascal ABC |
|
Pascal ABC Напечатать содержимое исходного файла и полученную заданным образом последовательность. 2. Дан символьный файл simvol.dat. Каждая подпоследовательность, состоящая из нескольких одинаковых подряд идущих символов, заменяется на текст Х(k), где X — символ, k — число вхождений символа в данную подпоследовательность. Напечатать содержимое исходного файла и полученную последовательность. помогите пожалуйста))(( ! Добавлено через 3 часа 8 минут !!!!! |
Pascal ABC Программы на множество и массив помогите сделать программы: 1. множество: В озере водится несколько видов рыб. Три рыбака поймали рыб, представляющих некоторые из имеющихся видов. Определить: 1) какие виды рыб есть у каждого рыбака. 2) какие рыбы есть в озере, но нет ни у одного из рыбаков. 2. Массив, если это возможно с блок-схемой. Ртутные термометры применяются для... https://www.cyberforum.ru/ pascalabc/ thread115606.html |
|
Тимуровец
445 / 285 / 50
Регистрация: 10.09.2009
Сообщений: 963
|
|
| 17.04.2010, 12:00 | 0 |
Создать файл, содержащий сведения о телефонах абонентов - Pascal ABC - Ответ 66698017.04.2010, 12:00. Показов 3408. Ответов 1
Метки (Все метки)
Ответ
Смущает такой вот момент:
1. Вы заполнили файл данными, при этом у вас указатель позиции файла должен находится на последней записи. А вы сразу-же пытаетесь прочитать все записи. Скорее всего вы прочитаете только последнюю. 2. Конечно можно читать данные и двойным циклом, но при условии что количество данных в файле будет ровно столько на сколько заточен цикл. В противном случае при меньшем количестве будет ошибка, а при большем будет неправильно заполнен массив и снова будет ошибка. Вернуться к обсуждению: Создать файл, содержащий сведения о телефонах абонентов Pascal ABC
0
|
|
|
|
| 17.04.2010, 12:00 | |
|
Готовые ответы и решения:
1
Создать файл, содержащий сведения о телефонах абонентов Создать файл, содержащий сведения о справочной автовокзала Создать файл, содержащий сведения о сотрудниках университета Создать файл, содержащий сведения о сотрудниках универа |
| 17.04.2010, 12:00 | |
|
Помогаю со студенческими работами здесь
0
Создать файл, содержащий сведения о личной коллекции книголюба Создать типизированный файл avto, содержащий сведения об автомобилях Создать файл, содержащий сведения о сдаче студентами сессии |
Наверх