Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Одномерные массивы (сдвиги, вставка, удаление и сортировка) https://www.cyberforum.ru/ pascal/ thread704899.html
Сформировать массив А с помощью датчика случайных чисел целыми числами из интервала . Вывести элементы массива на экран. Все числа, указанные в формулировках задач вводятся с клавиатуры. Заменить элементы между минимальным и максимальным элементами нулями Удалить из массива все элементы, больше данного числа А (А вводится с клавиатуры) Вставить число К перед последним отрицательным...
Pascal Поменять местами элементы массива
Найти наибольший и наименьший элемент массива и поменять их местами?
Pascal Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца массива https://www.cyberforum.ru/ pascal/ thread704785.html
Выяснить, есть ли в целочисленном массиве одинаковые элементы, равноудаленные от начала и конца массива. При соблюдении следующих условий: Программа должна создавать одномерный массив случайных чисел из 20 элементов величиной от -25 до +25, используя команду randomize Заранее спасибо;)
Pascal Как реализовать маршрутный алгоритм в паскале https://www.cyberforum.ru/ pascal/ thread704749.html
Как реализовать маршрутный алгоритм в паскале! Хотя бы скиньте картинки как должна графически выглядить этот алгоритм или программный код(можно даже на другом языке) !
Pascal Синус
Почему когда я пишу sin(30) мне указывают что он равен -0.98803162 синус по идеи 30 градусов должен быть ведь равен 0.5 Что не так??
Pascal Вывести максимальное наименьшее число https://www.cyberforum.ru/ pascal/ thread704661.html
Даны три числа ( например 12, -7, -99). Вывести максимальное наименьшее число. До максимального наименьшего из отрицательных чисел как то получилось, а с положительным никак...
Pascal Вывести элементы массива в обратном порядке. Дан целочисленный массив размером N. Вывести его элементы в обратном порядке. Вычислить среднее арифметическое положительных элементов массива. https://www.cyberforum.ru/ pascal/ thread704606.html Является ли число палиндромом, если количество цифр в числе больше 10 Pascal
1) Составить алгоритм является ли число полиндромом, если кол-во цифр в числе больше 10 2)Решение кубического уравнения. 3)Нахождение максимального числа из 20 чисел Заранее спасибо
Pascal В некотором тексте проверьте правильность расположения круглых, квадратных и фигурных скобок В некотором тексте проверьте правильность расположения круглых, квадратных и фигурных скобок. Тема: ТИПЫ ДАННЫХ STRING. СТАНДАРТНЫЕ ОПЕРАТОРЫ И ФУНКЦИИ ДЛЯ РАБОТЫ СО СТРОКАМИ. https://www.cyberforum.ru/ pascal/ thread704506.html Pascal Составить программу для нахождения суммы Составить программу для нахождения суммы S=sum((-1)i*(1-1/ii)) https://www.cyberforum.ru/ pascal/ thread704404.html
Pascal Сформировать массив, элементами которого являются среднеарифметическое соседних пар рядом стоящих в массиве А
Дан массив A(n),причем n=8-четное число.Сформулировать массив B ,элементами которого являются среднеарифметическое соседних пар рядом стоящих в массиве А.
Pascal Даны площади десяти кругов. Найти радиус самого маленького из них https://www.cyberforum.ru/ pascal/ thread704383.html
Даны площади десяти кругов.Найти радис самого маленького из них.
1 / 1 / 6
Регистрация: 28.10.2011
Сообщений: 33
0

исправьте ошибку - Pascal - Ответ 3734938

21.11.2012, 22:32. Показов 749. Ответов 2
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program dvoichnyi;
uses crt;
var i:integer;
a:array[1..100] of integer;
b:array[1..100] of string;
s,d:string;
k:integer;
begin
clrscr;
writeln('key');
readln(s);
for i:=1 to length(s) do
if s<>' ' then begin
a[i]:=ord(s[i]);
writeln(a[i]);
end;
k:=a[1];
for i:=2 to 100 do
if k<=0 then
k:=a[i]
else begin
d:=chr(ord('0')+k mod 2) + d;
k:=k div 2;
end;
write(d);
end.
 Комментарий модератора 
Не забывайте выделять код тегами!


Вернуться к обсуждению:
исправьте ошибку Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.11.2012, 22:32
Готовые ответы и решения:

Исправьте ошибку
Program Z; Var z1, z2, x:real; Begin Writeln('BBeDuTE x'); Readln(x);...

исправьте ошибку
Если в матрице А нет элементов модуль которых отличается от заданной величины Р менее, чем на...

исправьте ошибку
исправьте ошибку - не может найти указанный путь. И вообще эта программа считается базой данных? ...

Исправьте ошибку
program notebook; USES CRT; type NOTE = record fam:string; im:string; telefon:string;...

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

Исправьте ошибку!
Всем привет , посмотрите что не так, 207 ошибку выдает. Program Zadanie; Var w,y,x,b,a:real;...

Исправьте ошибку пожалуйста!
Unit Perevod; INTERFACE function per10_2(x:longint):string; function...

Исправьте ошибку,за ранее спасибо!
Дано действительное число х, натуральное число n. Вычислить: пример...

Побочная диагональ и нули. Исправьте ошибку.
Не могу понять почему не работает прога. Условие: должна читать из тескстового файла массив, лепить...

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