задание на паскале

@sanek-30stm · Регистрация: 11.04.2010

Author24 — интернет-сервис помощи студентам

народ задали 20 прог на паскальз! вот некоторые я не могу решить!

4: Даны числовой ряд и некоторое число ε. Найти наименьший номер члена последовательности, для которого выполняется условие M. Вывести на экран этот номер и все элементы ai , где I = 1, 2, … , n.
вот формула для а...которую надо сделать в программе http://turbobit.net/euumbsm69yow.html

5: Определить количество M-значных натуральных чисел, у которых сумма цифр, стоящих в нечетных разрядах, равна N (1 <= N <= 30, 0<M<5).

6: ( сделать по теме:«Подпрограммы. Нерекурсивные процедуры и функции»)
Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (например, дано число 156, нужно получить 651).

8: (использовать одномерный массив) Дан массив целых чисел. Найти в этом массиве минимальный элемент m и максимальный элемент M. Получить в порядке возрастания все целые числа из интервала (m; M), которые не входят в данный массив.

10: (Тема «Сортировка массивов» ) Упорядочить элементы матрицы так, чтобы в нечетных строках элементы располагались по убыванию, а в четных по возрастанию.

14 (тема работа со строками) В заданной строке удалить все лишние пробелы.

@artik · 11.04.2010, 17:35

14.

Pascal

var
  s:string;
i:integer;
begin
  writeln('Введите строку...');
  readln(s);
i:=0;  
while pos('  ',s)>0 do begin
    delete(s,pos('  ',s),1);
inc(i);
end;
writeln(i);
  writeln('Результат:');
  writeln(s)
end.

@sanek-30stm · 11.04.2010, 22:23 **[ТС]**

спс! во ща заработала....я просто не через while пробывал

Добавлено через 4 часа 43 минуты
народ кто еще поможет(((?

@sanek-30stm · 07.05.2010, 01:07 **[ТС]**

Народ помогите!!!!!нужно срочно

@STGE · 07.05.2010, 01:37

10.

Pascal

uses crt;
const n=5;
var a: array[1..n,1..n] of integer; i,j,k: byte; c: integer;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(19)-9;
write(a[i,j]:3);
end;
writeln;
end;
writeln('отсортированный массив: ');
for i:=1 to n do
begin
if i mod 2 <> 0 then 
for j:=1 to n-1 do
for k:=j+1 to n do
if a[i,j]<a[i,k] then
begin
c:=a[i,j];
a[i,j]:=a[i,k];
a[i,k]:=c;
end;
if i mod 2 = 0 then
for j:=1 to n-1 do
for k:=1 to n-j do
if a[i,k]>a[i,k+1] then
begin
c:=a[i,k];
a[i,k]:=a[i,k+1];
a[i,k+1]:=c;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
end.

@thexqn · 07.05.2010, 11:04

6)

Pascal

function Reverse(n: integer):integer;
var m,p:integer;
    i:integer;
begin
m:=n;
p:=0;
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
Reverse := p;
end;

@sanek-30stm · 09.05.2010, 03:33 **[ТС]**

спс!!!!!

@sanek-30stm · 12.05.2010, 00:09 **[ТС]**

а можно вторую полностью!!!!!просто я воще не понимаю.....

Добавлено через 6 часов 10 минут

Сообщение от thexqn

6)

Pascal

function Reverse(n: integer):integer;
var m,p:integer;
    i:integer;
begin
m:=n;
p:=0;
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
Reverse := p;
end;

плисс напиши её полностью

Новые блоги и статьи
Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .
Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта Gowin Eda и снимок. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .	Как создать нейросеть для генерации картинок на Python InfoMaster 12.01.2025 Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .	Создание нейросети для генерации текста на Python InfoMaster 12.01.2025 Нейросети, или искусственные нейронные сети, представляют собой модели машинного обучения, вдохновленные работой человеческого мозга. Они состоят из множества взаимосвязанных узлов, или "нейронов",. . .

@sanek-30stm 0 / 0 / 0 Регистрация: 11.04.2010 Сообщений: 47
		1
	задание на паскале 11.04.2010, 17:27. Показов 1121. Ответов 7 Метки нет (Все метки) народ задали 20 прог на паскальз! вот некоторые я не могу решить! 4: Даны числовой ряд и некоторое число ε. Найти наименьший номер члена последовательности, для которого выполняется условие M. Вывести на экран этот номер и все элементы ai , где I = 1, 2, … , n. вот формула для а...которую надо сделать в программе http://turbobit.net/euumbsm69yow.html 5: Определить количество M-значных натуральных чисел, у которых сумма цифр, стоящих в нечетных разрядах, равна N (1 <= N <= 30, 0<M<5). 6: ( сделать по теме:«Подпрограммы. Нерекурсивные процедуры и функции») Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (например, дано число 156, нужно получить 651). 8: (использовать одномерный массив) Дан массив целых чисел. Найти в этом массиве минимальный элемент m и максимальный элемент M. Получить в порядке возрастания все целые числа из интервала (m; M), которые не входят в данный массив. 10: (Тема «Сортировка массивов» ) Упорядочить элементы матрицы так, чтобы в нечетных строках элементы располагались по убыванию, а в четных по возрастанию. 14 (тема работа со строками) В заданной строке удалить все лишние пробелы. 0

@sanek-30stm 0 / 0 / 0 Регистрация: 11.04.2010 Сообщений: 47
	11.04.2010, 22:23 [ТС]	3
	спс! во ща заработала....я просто не через while пробывал Добавлено через 4 часа 43 минуты народ кто еще поможет(((? 0

@sanek-30stm 0 / 0 / 0 Регистрация: 11.04.2010 Сообщений: 47
	07.05.2010, 01:07 [ТС]	4
	Народ помогите!!!!!нужно срочно 0

@sanek-30stm 0 / 0 / 0 Регистрация: 11.04.2010 Сообщений: 47
	09.05.2010, 03:33 [ТС]	7
	спс!!!!! 0

	12.05.2010, 00:09

Опции темы