Четверг, 28.03.2024, 17:45
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачи в Паскале
Задачи в Паскале
1.*[ 135 ][85.99%]
2.-[ 22 ][14.01%]
Всего ответов: 157
ZloyGraf83Дата: Пятница, 11.12.2009, 00:19 | Сообщение # 361
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Помогите пожалуйста!!! Не могу решить эти задачи.
1. Составить программу обработки двумерного массива на языке Паскаль. В квадратной матрице порядка n определить образуют ли элементы каждой их главной и побочной диагоналей арифметическую прогрессию (разница между двумя соседними элементами одинакова).
Заранее огромнейшее спасибо!!!!!!!!!!!!!!!!
 
kirilkaДата: Пятница, 11.12.2009, 04:15 | Сообщение # 362
Лейтенант
Группа: Участник
Сообщений: 12
[ 0 ]
Статус: Offline
Quote (ZloyGraf83)
Помогите пожалуйста!!! Не могу решить эти задачи.
1. Составить программу обработки двумерного массива на языке Паскаль. В квадратной матрице порядка n определить образуют ли элементы каждой их главной и побочной диагоналей арифметическую прогрессию (разница между двумя соседними элементами одинакова).
Заранее огромнейшее спасибо!!!!!!!!!!!!!!!!

Могу решить сегодня за 2,5$, если нужно - обращайся.
 
VasilyДата: Суббота, 12.12.2009, 08:52 | Сообщение # 363
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
А мне поможете у меня всего 3 задачки! smile
 
НАТАШКА372236Дата: Суббота, 12.12.2009, 15:15 | Сообщение # 364
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
cry cry cry cry cry Пожалуйста помогите решить задачу.И построить циклическую схему.
А:=14; В:=2;
While not(a*b<0) do
Begin
If((a+b)mod 3)=0 then Writeln(a-b); А:=а-3; В:=b+1;
End;
 
kirilkaДата: Суббота, 12.12.2009, 15:43 | Сообщение # 365
Лейтенант
Группа: Участник
Сообщений: 12
[ 0 ]
Статус: Offline
Quote (Vasily)
А мне поможете у меня всего 3 задачки!

Пиши на ящик kirilka2008ko@mail.ru Там скажешь условия задач и договоримся о цене.

Добавлено (12.12.2009, 15:43)
---------------------------------------------

Quote (НАТАШКА372236)
Пожалуйста помогите решить задачу.И построить циклическую схему.
А:=14; В:=2;
While not(a*b<0) do
Begin
If((a+b)mod 3)=0 then Writeln(a-b); А:=а-3; В:=b+1;
End;

Пиши на ящик kirilka2008ko@mail.ru Могу объяснить, как работает алгоритм, написать комментарий к работе данного кода и построить блок-схему.
 
[HR]HwoarangДата: Воскресенье, 13.12.2009, 10:18 | Сообщение # 366
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
тут же делать нечего в этой задаче biggrin
 
НАТАШКА372236Дата: Воскресенье, 13.12.2009, 10:34 | Сообщение # 367
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
умом то я это понимаю,но если на лекции ни чего не поняли,то думаю не дано.голова уже болит,а во вторник надо сдать.Если есть возможность помогите.Ну и сколько это будет стоить?
 
kirilkaДата: Воскресенье, 13.12.2009, 17:22 | Сообщение # 368
Лейтенант
Группа: Участник
Сообщений: 12
[ 0 ]
Статус: Offline
Quote (НАТАШКА372236)
умом то я это понимаю,но если на лекции ни чего не поняли,то думаю не дано.голова уже болит,а во вторник надо сдать.Если есть возможность помогите.Ну и сколько это будет стоить?

Со всеми комментариями и блок-схемой 3$.
 
BestyyyДата: Воскресенье, 13.12.2009, 18:06 | Сообщение # 369
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Всем, кто читает этот пост, доброго времени суток!! happy
Вынужден снова обратиться за помощью к этому сайту-форуму.
На этот раз задача, по моему взгляду, большая и сложноватая, написать программу надо в Паскале!
В общем помагите плз!!! wink
__________________________________________________________
Написать программу, выполняющую следующие действия:
По запросу программы вводим с клавиатуры N целых чисел. N – целое положительное число, которое определяется пользователем и вводится с клавиатуры по запросу программы. Если введенное значение N не отвечает заданному условию, на экран монитора выдается сообщение: «Ошибка ввода!!! Значение N положительное число. Введите значение N».Если введенное значение N соответствует условию необходимо найти и вывести на экран монитора ЭВМ среднее арифметическое всех четных чисел введенных с клавиатуры. Результат выводится в десятичной форме с точностью до 3-го знака после десятичной точки По запросу «Опять?» на ответы «Обязательно» или «да» - ввод новых исходных значений и повторение работы программы, в противном случае – вывод сообщения «Конец!!!» и выход из программы.
__________________________________________________________
Прошу помочь поскарее, заранее благодарен hello respect


Сообщение отредактировал Bestyyy - Воскресенье, 13.12.2009, 18:09
 
LifeДата: Воскресенье, 13.12.2009, 20:03 | Сообщение # 370
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
ПОМОГИТЕ РЕШИТЬ ХОТЯ БЫ ОДНУ ЗАДАЧКУ!!!!!!!!!!!!!ПОЖАЛУЙСТА;)

1. По заданному названию реки вывести название материка, где данная река берёт своё начало.(тема задачи:ПЕРЕЧИСЛИМЫЕ И ОГРАНИЧЕННЫЕ ТИПЫ ДАННЫХ)
2.В заданном тексте встречаются строки типа: фамилия—иванов имя—иван отчество—Иванович. Выбрать их и распечатать на каждой строке в виде: иванов иван иванович.(тема задачи: ОБРАБОТКА СИМВОЛЬНОЙ ИНФОРМАЦИИ)
3.В матрице А (4 строки, 5 столбцов) поменять местами наибольшие элементы в ее верхней и нижней половинах. Для поиска индексов наибольшего элемента в произвольной части матрицы использовать процедуру(тема задачи: СОСТАВЛЕНИЕ ПРОГРАММ С ИСПОЛЬЗОВАНИЕМ ПОДПРОГРАММ - ПРОЦЕДУР)
4.Для матрицы из 2 столбцов и 9 строк отпечатать номер каждой строки, квадрат первого элемента, которой меньше абсолютного значения второго элемента строки, и число таких строк.(тема задачи: РЕГУЛЯРНЫЕ ТИПЫ ДАННЫХ. МАТРИЦЫ)
5.Определить номер наименьшего из значений Ai2 – Ci2.(тема задачи: РЕГУЛЯРНЫЕ ТИПЫ ДАННЫХ. МАССИВЫ)

Сообщение отредактировал Life - Воскресенье, 13.12.2009, 20:05
 
fifachkaДата: Понедельник, 14.12.2009, 00:22 | Сообщение # 371
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
помогите! мне через 4 часа надо сдать задачи для зачета!!
1)1.Напишите программу, которая после запуска вычислит и выведет на экран сумму всех целых чисел от 1 до 200, которые делятся на 8.
2)1.Решить уравнение ах=b для пяти пар значений а и b, заданных в виде 2-х массивов. Результат поместить в массив х.
3)1.Дана матрица С(N, N). Вычислить сумму и число положительных элементов матрицы, находящихся над главной диагональю.
4)1.Дан двумерный массив, содержащий три строки и три столбца. Элементами массива являются целые числа. Упорядочить массив по возрастанию элементов первой строки.
5)1.Дано натуральное n и символы S1, ..., Sn. Выяснить, каких символов среди S1, ..., Sn больше - запятых или точек с запятой? (Не исключая и случай равенства.)
6)1.Даны натуральное число n, символы S1, ..., Sn. Преобразовать последовательность S1, ..., Sn, заменив в ней все восклицательные знаки точками.

пожалуйста помогите, а то я ничего не успеваю(

 
BestyyyДата: Понедельник, 14.12.2009, 01:34 | Сообщение # 372
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
(время написания поста "Понедельник, Сегодня, 00:22")
Quote (fifachka)
помогите! мне через 4 часа надо сдать задачи для зачета!!

хахаах интересно кто это в 4 часа утра зачёты принимает haha
 
[HR]HwoarangДата: Понедельник, 14.12.2009, 10:39 | Сообщение # 373
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
Bestyyy, не все живут в москве cranky
 
akiraДата: Понедельник, 14.12.2009, 16:09 | Сообщение # 374
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Люди помогите пожалуста, все время одна и таже ошибка (type mismatch)

Code
Program lab;
Type
Dano=record
Fam,Im,Otch,Firma,Predmet,Tel:string[16];
end;
Var SP:array[1..25] of Dano;
FF:string[16];
i,j,m,n:byte;
Key:boolean;
S:File of array[1..25] of Dano;
Begin
Assign(S,'h:\tp\file1.txt');
Rewrite(S);
Writeln('kolvo partnerov');
Readln(n);
n:=n+1;
sp[1].Fam:='Familiya';
sp[1].Im:='Imya';
sp[1].Otch:='Otchestvo';
sp[1].Firma:='Firma';
sp[1].Predmet:='Predmet';
sp[1].Tel:='Telephon';
for i:=1 to n do
m:=1;
Begin
Repeat m:=m+1;
Write('Fam: ');
Readln(SP[m].Fam);
Write('Imya: ');
Readln(SP[m].Im);
Write('Otch: ');
Readln(SP[m].Otch);
Writeln('vvedite Firmu i predmet cherez zapyatuu ');
Readln(SP[m].Firma,SP[m].Predmet);
Write('Telephon ');
Readln(SP[m].Tel);
Write(S,SP); <====== вот здесь останавливаеца курсор
Until n=m;
End;
Writeln;
Writeln;
Writeln(' Spisok partnerrov ');
Writeln('+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
For i:=1 to m do
With SP[i] do
Begin
Writeln(Fam:16,'|',Im:16,'|',Otch:16,'|',Firma:16,'|',Predmet:16,'|',Tel:16);
end;
reset(s);
Read(S,SP);
Writeln('vvedite fam');
Readln(FF);
i:=0;
Key:=false;
Repeat i:=i+1;
If SP[i].Fam=FF then key:=true
Until key or(i=m);
If key then
With SP[i] do
Begin
Writeln('DanbIe o partnere');
Write(fam:16,' ');
Writeln(Im:16,'|',Otch:16,'|',Firma:16,'|',Predmet:16,'|',Tel);
end
Else writeln('DannbIh o ',FF:16,' net');
Close(S);
end.

Что тут нетак, типы вроде правильно(


Сообщение отредактировал akira - Понедельник, 14.12.2009, 16:49
 
fifachkaДата: Понедельник, 14.12.2009, 17:31 | Сообщение # 375
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
всем спасибо! вот и осталась без зачета(
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Задачи в Паскале
Поиск:

Copyright MyCorp © 2024