Сам учусь в технаре и иногда приходится составлять задачи на этом языке.
Выкладывайте задачи ,может чем помогу.
Полная версия: Pascal ABC
Тему можно закрыть,всеравно никто не пишет 
И не удивительно. Я вобще не понимаю зачем этот форум, когда есть специализированные форумы, где где сидят монстры программирования и порвут любую задачу в тряпки в 2 минуты и ещё поспорят между собой чьё решение лучше 
. Сюда мало кто пойдёт за помощью при всей активности этого раздела.
. Сюда мало кто пойдёт за помощью при всей активности этого раздела.
Цитата(sergei @ 10.2.2008, 2:23) 
И не удивительно. Я вобще не понимаю зачем этот форум, когда есть специализированные форумы, где где сидят монстры программирования и порвут любую задачу в тряпки в 2 минуты и ещё поспорят между собой чьё решение лучше
. Сюда мало кто пойдёт за помощью при всей активности этого раздела.Согласен с тобой
Срочно нужна элементарнейшая прога на ПаскалеАВС с помощью модуля GraphABC посвященная Дню Победы;
Необходимо чтобы обязательно были не менее 2-х движущихся предметов;
Что то типо этого,только по теме Дня ПобедыНажмите для просмотра прикрепленного файла
Необходимо чтобы обязательно были не менее 2-х движущихся предметов;
Что то типо этого,только по теме Дня ПобедыНажмите для просмотра прикрепленного файла
Цитата($RamireZ$ @ 15.3.2008, 19:08)
Срочно нужна элементарнейшая прога на ПаскалеАВС с помощью модуля GraphABC посвященная Дню Победы;
Необходимо чтобы обязательно были не менее 2-х движущихся предметов;
Что то типо этого,только по теме Дня ПобедыНажмите для просмотра прикрепленного файла
Жесть!
Решите пожалуйста такие задачи:
1. Дана двумерная матрица m на m. Поменять местами минимальный и максимальный элементы главной диагонали. Выполнить двумя способами:
а) Ввод данных из файла и вывод результатаов в файл.
б) Ввод с клавиатуры.
2. Даны две строки. В первой заменить "+" на "-", а во второй "?" на "!". Выполнить двумя способами:
а) Без подпрограммы.
б) С подпрограммой.
3. Дан текст, слова разделены одним пробелом. Поменять местами первое и последнее слова текста.
4. Даны два двумерных массива ( m на m, l на l). Для каждого массива найти сумму элементов, стоящих над главной диагональю. Выполнить двумя способами:
а) Без подпрограммы.
б) С подпрограммой (с функцией).
Если решите хотябы пару задач, буду очень благодарен.
1. Дана двумерная матрица m на m. Поменять местами минимальный и максимальный элементы главной диагонали. Выполнить двумя способами:
а) Ввод данных из файла и вывод результатаов в файл.
б) Ввод с клавиатуры.
2. Даны две строки. В первой заменить "+" на "-", а во второй "?" на "!". Выполнить двумя способами:
а) Без подпрограммы.
б) С подпрограммой.
3. Дан текст, слова разделены одним пробелом. Поменять местами первое и последнее слова текста.
4. Даны два двумерных массива ( m на m, l на l). Для каждого массива найти сумму элементов, стоящих над главной диагональю. Выполнить двумя способами:
а) Без подпрограммы.
б) С подпрограммой (с функцией).
Если решите хотябы пару задач, буду очень благодарен.
Вот набросал тут быстренько пока время было;вот глянь что получилось :
вот тут под (а)
2. Даны две строки. В первой заменить "+" на "-", а во второй "?" на "!". Выполнить двумя способами:
а) Без подпрограммы.
б) С подпрограммой.
вот под(б);не гарантирую что именно так должна выглядеть
остальные потом попробую сделать(пока времени нет)
вот тут под (а)
Цитата(Asterix @ 19.3.2008, 23:13)
2. Даны две строки. В первой заменить "+" на "-", а во второй "?" на "!". Выполнить двумя способами:
а) Без подпрограммы.
б) С подпрограммой.
Код
program Two;
var
c1,c2:string;
k,i,x:integer;
begin
writeln('Введите 1 строку');
readln(c1);
writeln('Введите 2 строку');
readln(c2);
for k:=1 to length(c1) do
begin
if c1[k]='+' then
c1[k]:='-'
end;
begin
for i:=1 to length(c2) do
if c2[i]='?' then
c2[i]:='!'
end;
writeln('измененный вид 1 строки:',c1);
writeln('измененный вид 2 строки:',c2);
end.
var
c1,c2:string;
k,i,x:integer;
begin
writeln('Введите 1 строку');
readln(c1);
writeln('Введите 2 строку');
readln(c2);
for k:=1 to length(c1) do
begin
if c1[k]='+' then
c1[k]:='-'
end;
begin
for i:=1 to length(c2) do
if c2[i]='?' then
c2[i]:='!'
end;
writeln('измененный вид 1 строки:',c1);
writeln('измененный вид 2 строки:',c2);
end.
вот под(б);не гарантирую что именно так должна выглядеть
Код
program Twwo;
var
c1,c2:string;
k,i,x:integer;
procedure ram;
begin
for k:=1 to length(c1) do
begin
if c1[k]='+' then
c1[k]:='-'
end;
begin
for i:=1 to length(c2) do
if c2[i]='?' then
c2[i]:='!'
end;
end;
begin
writeln('Введите 1 строку');
readln(c1);
writeln('Введите 2 строку');
readln(c2);
ram;
writeln('измененный вид 1 строки:',c1);
writeln('измененный вид 2 строки:',c2);
end.
var
c1,c2:string;
k,i,x:integer;
procedure ram;
begin
for k:=1 to length(c1) do
begin
if c1[k]='+' then
c1[k]:='-'
end;
begin
for i:=1 to length(c2) do
if c2[i]='?' then
c2[i]:='!'
end;
end;
begin
writeln('Введите 1 строку');
readln(c1);
writeln('Введите 2 строку');
readln(c2);
ram;
writeln('измененный вид 1 строки:',c1);
writeln('измененный вид 2 строки:',c2);
end.
остальные потом попробую сделать(пока времени нет)
Спасибо. Первая решена правильно, а во вторая нет. Там подпрограмма нужна.
Мои задачи кто-нибудь решите, пожалуйста.
все теперь программирую в Delphi7 
я тоже хочу научится проги писать на паскале. может ктонидь ссылку даст и учебник какой нибудь нормальный скинет?
на ум пока только форум винграда пришел http://www.forum.vingrad.ru/ ... а вообще, гуглить полезно;)
Надеюсь что кто-нить мне поможет,от этой задачи по биномиальному распределению зависит моё будущее 
Составить программу моделирования случайной величины с биномиальным законом распределения.Считать в качестве данных кол-во чисел и параметры закона распределения.По результатам моделирования построить полигон частот для ДСВ или гистограмму для НСВ.
О4ень надо до пятницы
Составить программу моделирования случайной величины с биномиальным законом распределения.Считать в качестве данных кол-во чисел и параметры закона распределения.По результатам моделирования построить полигон частот для ДСВ или гистограмму для НСВ.
О4ень надо до пятницы
Вот чудо такое...мы в школе информатику изучали на уровне, word, exel, а при поступлении в ВУЗ - информатика PAscal, разве ето справедливо :( мы конешна учили basic (БЛИН НУ НАФИГА!?) по целых пол-оператора за урок, как раз уложились в два года. Конечно на нем можно сделать тетрис в дос и то с гораздо большим трудом, чем на любом современном языке. И ладно бы мы его "профессионально" (насколько это возможно) проходили, но блин нет, мы писали "программы" (как можно назвать программой 5 строчек) который вычисляют ...да ниче они не вычисляют... тупость всякую делали. ЭКЗАМеН - ВНИМАНИЕ - НАРИСОВАТЬ ИМЯ СВОЕ на экране, потом рисунок с 8-11 линиями максимум, ну на "5" пару дуг и окружностей...я упал...за 10 минут нарисовал, все удивились, потом пришел умник один, под конец урока, че та нажал буквально за секунду, как я отвернулся, вылез синий экран, который я показал учителю, пол класса подтвердила, чт оу меня там "БЫЛО" всё и мне четыре (хотя впринципе нормально, тк я не ходил на уроки толком - просто слушать одну пару, про ОДИН оператор мну не прельщало...ваще гадство 
а теперь в ВУЗе после такой школьной подготовки Паскаль...бррр... Ладно бы просто, но он блин на вступительных экзаменах же!
а теперь в ВУЗе после такой школьной подготовки Паскаль...бррр... Ладно бы просто, но он блин на вступительных экзаменах же!
Как можно вывести функцию arcsin и arccos?
как это решать ?Нажмите для просмотра прикрепленного файла
Цитата($RamireZ$ @ 17.12.2007, 20:39)
Сам учусь в технаре и иногда приходится составлять задачи на этом языке.
Выкладывайте задачи ,может чем помогу.
В каком техникуме учишься?
Цитата(Кадeт @ 30.6.2009, 20:31)
В каком техникуме учишься?
КЭТС
помогите с задачей пожалуйста:
Заданный массив целых чисел делится на 3 части двумя элементами:максимальным и минимальным. Определить сумму элементов в каждой части массива. Используйте функции для нахождения индексов максимального и минимального элементов и подсчёта суммы элементов в указанной части массива.
Заданный массив целых чисел делится на 3 части двумя элементами:максимальным и минимальным. Определить сумму элементов в каждой части массива. Используйте функции для нахождения индексов максимального и минимального элементов и подсчёта суммы элементов в указанной части массива.
Цитата
помогите с задачей пожалуйста:Заданный массив целых чисел делится на 3 части двумя элементами:максимальным и минимальным. Определить сумму элементов в каждой части массива. Используйте функции для нахождения индексов максимального и минимального элементов и подсчёта суммы элементов в указанной части массива.
А в чем проблема?
Ещё вот задачи:
2) В файл Telpone записать номера телефонов сотруднико учреждения указать фамилии , инициалы, должность ,
стаж работы и номер телефона . Получить: номер телефона сотрудника по его фамилии и инициаллам ,
по номеру получить фамилию и инициалы,список телефонов всех сотрудников ,работающих в указанной должности,
список сотрудников ,чей стаж работы превышает указанное количество лет.
3)1.Нарисовать рисунок на своё усмотрение .2. В рпавильном четырёхугольной пирамиде провести сечение ,проходяшеечерез диагональ основания и середину бокового ребра. Построить график функции F(x)sin в квадрате x .
Заранее благодарен.
Мой почтовый ящик [email protected]
Решите пожалуйста.
2) В файл Telpone записать номера телефонов сотруднико учреждения указать фамилии , инициалы, должность ,
стаж работы и номер телефона . Получить: номер телефона сотрудника по его фамилии и инициаллам ,
по номеру получить фамилию и инициалы,список телефонов всех сотрудников ,работающих в указанной должности,
список сотрудников ,чей стаж работы превышает указанное количество лет.
3)1.Нарисовать рисунок на своё усмотрение .2. В рпавильном четырёхугольной пирамиде провести сечение ,проходяшеечерез диагональ основания и середину бокового ребра. Построить график функции F(x)sin в квадрате x .
Заранее благодарен.
Мой почтовый ящик [email protected]
Решите пожалуйста.
Ну, я знаю как можно сделать так, чтобы в самом тексте не выводились кракозябры, но это надо чуть-чуть править реестр.
А, вот, можно ли сделать это как-нибудь без реестра кто-нибудь знает?
А, вот, можно ли сделать это как-нибудь без реестра кто-нибудь знает?
оладий его разбери примеры которые установились вместе с Pascal в которых используеться оператор Write итд неработают. Может это быть глюком pascal или надо копатся в настройках. Если дело в настройках то где и что надо менять?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.