Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC


Язык Паскаль АБС. Форум программистов Pascal ABC. Программирование на языке Pascal ABC. Решение задач, программирование и готовые программы на Паскаль АБС.
Войти
Регистрация
Восстановить пароль
Новая тема
Темы раздела : Pascal ABC Искать в этом разделе
Объявление
22.05.2012 mik-a-el (Администратор)
Объявление
Просмотров: 3,139,041 Посмотреть объявление Объявление: Правила форума
22.11.2007 mik-a-el (Администратор)
  Рейтинг Тема / Автор Последнее сообщение Ответов Просмотров
Важные темы
дерево пифагора, ковер серпинского, кривая гильберта, кривая госпера, кривая дракона, кривая коха, множество мандельброта, папоротник, снежинка коха, треугольник серпинского, фрактал Важная тема Важно: Фракталы
ildwine
28.11.2014 19:30
9 36,866
Обычные темы
 
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
     
 
Задать вопрос
В тексте ,в каждом нечётном слове поменять местами два первых символа ,задача в паскаль ,помогите...
Евгений_Варавко
08.02.2016 13:12
1 763
Как сделать проверку веденных данных? К примеру мне надо вводить только цифры, при вводе буквы ,...
Imwey
08.02.2016 11:21
1 338
Преобразовать одномерный массив вещественных чисел Y(N)={1.2,-7.1,2.3,-0.5,6.3,-2.7,4.9,-6.6,-15.1}...
RVCSGO
08.02.2016 11:06
1 802
while X < 0.089 do begin X:= X + 0.01; Y1:= Y(X); Writeln (X:5:2,' ',Y1:0:6); end; ...
jestero
08.02.2016 10:45
1 162
Чтобы while не использовать
jestero
08.02.2016 10:36
2 1,066
В отделе кадров студентов хранится следующая информация о каждом студенте: фамилия, имя, отчество,...
lFoksL
08.02.2016 10:28
0 273
procedure NX (var N: word); begin Writeln (N); N:= N + 1; end; {NX} var L : word; j :...
jestero
08.02.2016 10:24
1 192
function fact(n:byte):integer; var k : longint; j : byte; begin k:= 1; for j:= 2 to n do...
jestero
08.02.2016 10:17
1 191
Дан одномерный целочисленный массив. Найти его максимальный элемент и заменить соседние с ним...
daniL111111
08.02.2016 10:00
1 763
Для n= 1,2,...12 вычислить {A}_{n}=\frac{(2n)!}{n!(n+1)!}. Проверить, является ли {A}_{n} целым...
jestero
08.02.2016 09:53
1 167
Только учу паскаль, запускаю свою программу, мне выдает "Программа завершена, нажмите любую...
FockeR322
08.02.2016 09:12
2 184
var k, l, c, i : word; begin Write (#10,' c = '); Readln (c); Writeln; k:= 2; l:= 2; ...
jestero
07.02.2016 21:09
1 150
Дан двумерный массив из двух строк и пятнадцати столбцов. Найти номера двух соседних столбцов,...
jestero
07.02.2016 20:37
0 189
найти произведение и кол-во элементов массива V,которые расположены между его наименьшим и...
RVCSGO
07.02.2016 20:28
0 167
напишите программу которая получает 2 шестнадцатеричных числа, считает их сумму и выводит ответ в...
MonsterDester
07.02.2016 19:27
1 836
1+2+2^2+...2^(n-1)=2^n - 1 function Stepen2 (k: byte): longint; {два в степени} var Y :...
jestero
07.02.2016 17:16
1 224
Напишите программу, которая суммируют 2 римских числа и выводит на экран ответ в арабских числах и...
MonsterDester
07.02.2016 16:52
0 153
Три торговца должны поделить между собой 21 бочонок из которых 7 бочонков полных кваса, 7 полных на...
jestero
07.02.2016 16:43
4 844
Помогите сделать базу данных. Автозаправка На автозаправке имеются несколько колонок для заправки...
Алекс1546
07.02.2016 16:38
0 181
Заполнить массив из 30 целых чисел с клавиатуры. Найти тройку последовательных элементов, сумма...
daniL111111
07.02.2016 14:29
0 193
Нарисуйте церкву в Паскале как показано на картинке
Hellboy2002
07.02.2016 12:29
0 268
var P : real; X : real; k : longint; begin Writeln ('  Проверка утверждения... '); ...
jestero
07.02.2016 11:46
2 182
function StepenNk (N: word; k: byte): longint; {N**k} var j : byte; St : longint; {ST:= N**k}...
jestero
07.02.2016 10:57
1 126
В заданном тексте в каждом нечетном слове поменять местами первые два буквенных символа и заменить...
Евгений_Варавко
07.02.2016 10:19
4 865
Дана матрица А(n,m), n, m ≤ 20, заполненный случайными числами из интервала . Разработайте...
Kumogawa
07.02.2016 09:11
1 804
uses Crt; label Next; var n : word; k : word; nx : word; q : word; i : word;...
jestero
07.02.2016 09:01
2 150
Дан одномерный массив целых чисел A. Напишите программу, которая перепишет в массив B сначала в...
Imwey
07.02.2016 08:29
6 888
Lj:= Round (Sqrt(N-3)); for i:= 0 to Lj do for j:= 0 to Lj do for k:= 0 to Lj do for l:= 0...
jestero
07.02.2016 08:03
2 225
Была задача: Дано натуральное число n. Требуется подсчитать количество цифр данного числа - 73485....
Nekit2000
07.02.2016 00:54
20 837
Как сделать подменю? Искал, ничего полезного не нашел. К примеру: После выбора Треугольника, не...
Imwey
06.02.2016 21:40
6 848
Итак,есть задание: Преобразовать одномерный массив вещественных чисел...
DummyGirl
06.02.2016 20:48
3 903
var n : word; begin n:= 1; while True do begin Inc(n); if (100 mod n) <> 4 then ...
jestero
06.02.2016 18:53
4 780
Дан двумерный массив вещественных чисел A. Напишите программу, которая упорядочит в убывающем...
Imwey
06.02.2016 15:39
2 907
Как решать данную задачу без использования булевой переменной в качестве флага?
jestero
06.02.2016 14:55
3 171
Подскажите пожалуйста, как там индексы должны меняться, чтобы можно было это количество...
jestero
06.02.2016 10:56
2 829
Напечатать все числа из диапазона 12...99, которые представимы в виде 5n+7k, где n и k целые...
jestero
06.02.2016 10:35
6 828
Дано натурально число n. Написать программу вычисления значения выражения:...
Jora213
06.02.2016 07:54
16 909
Найдите корни уравнения еx – 10х = 0 с точностью эпсилон методом простой итерации.
Кирилл_В
05.02.2016 22:33
0 172
Вводятся последовательно n чисел (n>2) Найти среднее значение нечетных положительных чисел, кратных...
Jora213
05.02.2016 21:36
4 889
Нужно использовать SHL и SHR для сдвига? Не очень понятно как определить в какой момент нужно...
jestero
05.02.2016 21:27
2 856
1225. Флаги Ограничение времени: 1.0 секунды Ограничение памяти: 64 МБ В День флага России...
ITS
05.02.2016 18:09
0 257
Массив одномерный. Как это правильно сделать через циклы?
jestero
05.02.2016 17:23
5 799
Помогите решить: 1.Дано натурально число n. Написать программу вычисления значения выражения: ...
Jora213
05.02.2016 16:41
14 295
1.Составить программу с использованием процедуры нахождения наибольшего общего делителя и...
Юрий69
05.02.2016 16:31
1 1,939
Что то через цикл for начал делать у меня не получилось for i:= 1 to n do begin if a<=a...
jestero
05.02.2016 11:57
9 814
Гражданин 1 марта открыл в банке счет, вложив 1000 руб. Через каждый месяц размер вклада...
DENIS161
05.02.2016 08:37
2 859
не могу дорисовать лучи к солнцу и чтоб солнце крутилось а корабль уплыл.uses graphabC; var...
ariaq3
04.02.2016 23:45
1 205
program n01; uses crt; var f1,f2,f3:text; d:string; n,k,i,l:integer; s:real;...
Ascolon
04.02.2016 21:12
7 435
Помогите Решить такую задачку: Дан участок дороги длинной n,n-целое число, требуется разбить этот...
dyavol23
04.02.2016 21:05
3 769
Составить программу на Паскале, содержащую минимум четыре подпрограммы. Дан одномерный массив,...
markeli
04.02.2016 19:39
2 821
 
     
 
Новая тема
Опции раздела Искать в этом разделе
Искать в этом разделе :

Расширенный поиск Темы без ответов

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru