Ridge
Новичок
|
   
Просто вывести, ведь если брать одномерный, то его не запишешь в массив и выведешь
|
Всего сообщений: 19 | Присоединился: май 2007 | Отправлено: 27 мая 2007 18:29 | IP
|
|
andryxa
Новичок
|
Помогите решить задачи на Паскале PLEEEEEEEEEEAAAAAAAASEEEEEE…!
1.Пусть да список учащихся и для каждого из них N оценок по M предметам. Переместите в конец списка тех учащихся, у которых средний бал меньше, чем средний бал класса. Напишите функции для перемещения одной строки в конец списка, для вычисления среднего бала.
2. Дан нетипизированный файл info.dat, содержащий текстовую информацию о сотрудниках: ФИО, дата рождения (день, месяц, год), адрес (улица,дом,квартира). Запишите в новый файл ФИО и день рождения сотрудников, которые празднуют день рождения в данном месяце. Название месяца вводится с клавиатуры.
3. Пусть имеются два дерева P1 и Р2. Написать программу, проверяющую равенство этих деревьев.
4. Пусть имеются n городов. Некоторые из них соединены дорогами известной длины. Найдите кратчайший маршрут, начинающийся в заданном городе и проходящий через все остальные.
|
Всего сообщений: 2 | Присоединился: июнь 2007 | Отправлено: 2 июня 2007 16:01 | IP
|
|
Guest
Новичок
|
Вы можете посоветовать книгу по Паскалю чтобы в ней было разобрано много сложных заданий , как в АнтиДемидовиче ?
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 7 июня 2007 20:00 | IP
|
|
KMA 
Долгожитель
|
 
Вы можете посоветовать книгу по Паскалю чтобы в ней было разобрано много сложных заданий , как в АнтиДемидовиче ?
Это является оффтопиком для данного раздела. Суди сам, для этого создан специальный раздел книги.
А так, что ты подразумеваешь "сложный заданий". Для кого-то сортировка массива, нахождение рекурентным способом факториала являются сложными задачами. Если же тебе надо разобрать задачи связанные с написание уже задача "потяжелее", скажем тетрис, змейка, или же с аппартаными прерываниями, то это можно добиться только ища по инету соответствующие форумы, скажем forum.pascal.net.ru один из них.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 9 июня 2007 0:02 | IP
|
|
pivovar
Новичок
|
Пожалуйста помогите решить задание по Паскалю
Вычислить с точностью e=10 в степени -3 сумму ряда общий член ряда, общий член которой вычисляется по формуле n!/(2n!). Вычисление общего члена ряда оформить в виде попрограммы функции.
результат вывести на экран
|
Всего сообщений: 10 | Присоединился: декабрь 2006 | Отправлено: 16 июня 2007 20:20 | IP
|
|
Guest
Новичок
|
Дан массив A[1...n] целых чисел. Определить сумму элементов массива. Элементы массива вводятся с клавиатуры.
Плиз помогите решить нужно завтра утром сдать
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 17 июня 2007 11:10 | IP
|
|
Guest
Новичок
|
Var
A:array[1..25] of integer;
i,max:byte;
summa:integer;
Begin
summa:=0;
writeln('Ввод матрицы');
writeln('Введите размерность матрицы');readln(max);
For i:=1 to max
do begin writeln('Введите элемент матрицы');
readln(A);
end;
For i:=1 to max do summa:=summa+A;
writeln('Cумма числе равна',summa);
readln;
end.
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 17 июня 2007 12:02 | IP
|
|
KMA
Долгожитель
|
Пожалуйста помогите решить задание по Паскалю
Вычислить с точностью e=10 в степени -3 сумму ряда общий член ряда, общий член которой вычисляется по формуле n!/(2n!). Вычисление общего члена ряда оформить в виде попрограммы функции.
результат вывести на экран
Смотри на форуме, она решалась точно...
По поводу последнего сообщения: Ставь пробелы между, [ i ], иначе читает как "выделить курсивом".
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 19 июня 2007 19:52 | IP
|
|
Francyz
Новичок
|
ПОЖАЛУЙСТА ПОМОГИТЕ! составить блок-схему для каждой процедуры отдельно.
Valerver112@mai.ru
program my_libe_programm;
uses crt, graph, MY;
label 10;
var
i:integer; {объявление переменных}
x:char;
procedure zd1;
var
a,b:integer;
begin
clrscr;
gotoxy(0,0);
textbackground (0);
clrscr;
textbackground (2);
window (17,5,63,15);
clrscr;
textcolor (4);
writeln(' =====| Задача 1 |=====');
writeln('==============================================');
writeln(' Сpавниваем числа с использованием AND,OR,NOT');
writeln('==============================================');
write('Запpос числа а: '); readln(a); {запpос числа в пеpеменную а}
write('Запpос числа b: '); readln(b); {запpос числа в пеpеменную b}
writeln('Сpавнение чисел ',a,' и ',b);
if (a>b) and (b>10) then writeln(a,'>',b,' И ',b,'>10'); {выполнение условия}
if (b>a) or (a<5) then writeln(b,'>',a,' ИЛИ ',a,'<5'); {выполнение условия}
if not (a<5) then writeln¬(a,' не < 5'); {выполнение условия}
writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
readln;
end;
procedure zd2;
label 11,12,13;
var
a,b:real; {объявление переменных}
c,k:char; {объявление переменных}
begin
13:
clrscr;
gotoxy(0,0);
textbackground (0);
clrscr;
textbackground (3);
window (17,5,63,17);
clrscr;
writeln(' =====| Задача 2 |=====');
writeln('==============================================');
writeln(' Опеpатоpа выбоpа CASE');
writeln(' По типу калькулятоpа.');
writeln('==============================================');
write('Запpос числа а: ');readln(a); {запpос числа в пеpеменную а}
write('Запpос числа b: ');readln(b); {запpос числа в пеpеменную b}
writeln('Выбеpите опеpацию + - * / :');11: gotoxy(28,8); readln(c); {выбор операции}
case c of
'+': begin writeln('Результат: ',a:5:2,'+',b:5:2,'=',(a+b):5:2); goto 12; end;
'-': begin writeln('Результат: ',a:5:2,'-',b:5:2,'=',(a-b):5:2); goto 12; end;
'*': begin writeln('Результат: ',a:5:2,'*',b:5:2,'=',(a*b):5:2); goto 12; end;
'/': begin writeln('Результат: ',a:5:2,'/',b:5:2,'=',(a/b):5:2); goto 12; end;
end;
goto 11;
12:
writeln('==============================================');
writeln(' Нажмите Enter для повтоpа задачи или ');
writeln(' или ');
write(' ESC для выхода в главное меню...');
repeat
k:=readkey; {ожидание нажатия клавиши}
if k=#13 then goto 13;
until (k<>#13) or (k<>#27);
writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/');
end;
procedure zd3;
var
i,s:integer; {объявление переменных}
begin
clrscr;
gotoxy(0,0);
textbackground (0);
clrscr;
textbackground (5);
window (17,5,62,10);
clrscr;
writeln(' =====| Задача 3 |=====');
writeln('==============================================');
writeln(' Использование цикла |FOR TO DO|');
writeln(' для сложения чисел от 0 до 100');
readln;
textbackground (0);
clrscr;
textbackground (15);
window (20,5,60,22);
clrscr;
textcolor (6);
s:=0;
for i:=0 to 100 do
begin
delay(6000);
s:=s+i;
writeln('Шаг: ',i,' сумма: ',s,' ');
end;
writeln('Сумма чисел от 0 до 100 pавна: ',s);
writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
write(' ДОСВИДАНИЯ');
readln;
end;
procedure zd4;
var
x: array [1..10] of real;
i,n: integer;
begin
clrscr;
gotoxy(0,0);
textbackground (0);
clrscr;
textbackground (13);
window (19,5,59,15);
clrscr;
textcolor (0);
writeln(' =====| Задача 4 |=====');
writeln('=======================================');
writeln(' Использование одномерного массива');
writeln('=======================================');
write(#218);
for i:=1 to 27 do
write(#196);
writeln(#191);
writeln(#179,'Введите размерность массива',#179);
write(#192);
for i:=1 to 27 do
write(#196);
writeln(#217);
write('=');
readln(N);
i:=1;
while (i<=N) do
begin
write('x(',i,')= ');
readln(x);
i:=i+1
end;
writeln('====МАССИВ====');
for n:=1 to n do
write(x[n]:6:1);
write(#13,#10);
for n:=n downto 1 do
write(x[n]:6:1);
readln;
end;
procedure zd5;
label 15,11;
var
a: array [1..10,1..10] of real;
i,j,n,m: integer;
k: char;
begin
15:
clrscr;
gotoxy(0,0);
textbackground (0);
clrscr;
textbackground (7);
window (1,1,39,10);
clrscr;
textcolor (15);
writeln(' =====| Задача 5 |=====');
writeln('=======================================');
writeln(' Использование двумерного массива ');
writeln('=======================================');
write(#218);
for i:=1 to 34 do
write(#196);
writeln(#191);
writeln(#179,'Введите размерность массива i и j ',#179);
write(#192);
for i:=1 to 34 do
write(#196);
writeln(#217);
readln(n,m);
for i:=1 to n do
for j:=1 to m do
begin
write('a(',i,',',j,')=');
readln(a[i,j])
end;
textbackground (0);
clrscr;
textbackground (6);
window (2,2,66,19);
clrscr;
writeln(' Введенная матpица ');
writeln('==========================');
for i:=1 to n do
begin
for j:=1 to m do
write(a[j,i]:8:2);
writeln;
end;
write('Нажмите Enter для повтоpа задачи,',#13,#10,' ESC для выхода в главное меню...');
k:=#15;
repeat
k:=readkey;
if k=#27 then goto 11;
if k=#13 then goto 15;
until (k=#13) or (k=#27);
readln;
11:
end;
procedure zd6;
label 10,19;
var
i:integer;
k:char;
begin
19:
textbackground (0);
clrscr;
textbackground (4);
window (25,25,42,26);
textcolor(15);
clrscr;
writeln('HELLO! Iam Rock.');
writeln('-+-+-+-+-+-+-+-+-+-+-+-+-+-');
textcolor(2);
abc(22,33);
readln;
repeat
k:=readkey;
if k=#27 then exit;
if k=#13 then goto 19;
until (k=#13) or (k=#27);
readln;
end;
procedure zd7;
label 16;
var grdr, grmd, i, j, g:integer;
k:char;
begin
randomize;
grdr:=detect;
Initgraph(grdr,grmd,{'c:\tp\bgi'}'c:\hdd\pascal\bgi');
setbkcolor(blue);
g:=getbkcolor;
i:=10; j:=10;
while i<getmaxX do
begin
setcolor(white);
setfillstyle(9,white);
putpixel(random(640),random(480),white);
fillellipse(i,j,6,6);
delay(7000); setcolor(g);
i:=i+random(5);
j:=j+random(4);
end;
readln; closegraph;
end;
procedure zd8;
label 15;
type
tablica=record
name:string[15];
family:string[10];
nomer:string[6];
index:integer;
end;
var
f,ff: file of tablica;
i,j,x,a1,z:integer;
n:char;
a:tablica;
begin {zd8}
15:
clrscr;
textbackground(0);
clrscr;
textbackground(2);
window(30,5,72,17);
clrscr;
textcolor(15);
writeln('Выбоp действия');
writeln('/\/\/\/\/\/\/\/\');
writeln('1 - OPEN');
writeln('2 - EDIT');
writeln('3 - NEW');
writeln('4 - DELETE');
writeln('5 - Exit');
assign(f,'c:\112.ttx');
{$I-}
reset(f);
if IOresult<>0 then
begin
writeln('file not found');
rewrite(f)
end;
{$I+}
readln(n);
case n of
'3':
begin
reset(f);
j:=filesize(f);
seek(f,j);
write('Имя: '); readln(a.name);
write('Фамилия: '); readln(a.family);
write('Номеp тел: '); readln(a.nomer);
a.index:=j+1;
write(f,a);
close(f);
end;
'2':
begin
writeln('-Редактиpование-');
write('Введите номеp записи: '); readln(x);
assign(f,'c:\112.ttx');
assign(ff,'c:\113.ttx');
{$I-}
reset(f);
rewrite(ff);
if IOResult<>0 then begin Write('Файл не найден'); readln; exit; end;
{$I+}
a1:=filesize(f);
for i:=1 to a1 do
begin
read(f,a);
if a.index=x then
begin
write( 'Новое имя: ':20);readln(a.name);
write( 'Новая фамилия: ':20); readln(a.family);
write( 'Новый телефон: ':20); readln(a.nomer);
write('Запись успешно заменина.');
write(ff,a);
end
else
begin
write(ff,a);
end;
end;
erase(f);
close(f);
rename(ff,'c:\112.ttx');
close(ff);
readln;
end;
'4':
begin
writeln('-Удаление-');
write('Введите номеp записи: '); readln(x);
assign(f,'c:\112.ttx');
assign(ff,'c:\113.ttx');
{$I-}
reset(f);
rewrite(ff);
if IOResult<>0 then begin Write('Файл не найден'); readln; exit; end;
{$I+}
a1:=filesize(f);
z:=0;
for i:=1 to a1 do
begin
read(f,a);
if a.index=x then write('Запись найдена и удалена.') else
begin
z:=z+1;
a.index:=z;
write(ff,a);
end;
end;
erase(f);
close(f);
rename(ff,'c:\112.ttx');
close(ff);
readln;
end;
'1':
begin
reset(f);
j:=filesize(f);
for i:=1 to j do
begin
read(f,a);
writeln(a.index:4,a.name:15,' ',a.family:10,' ',a.nomer:6);
end;
readln;
end;
'5':
begin close(f); exit; end;
end;
goto 15;
end;
begin
10:
clrscr;
gotoxy(0,0);
textbackground (0);
clrscr;
textbackground (15);
window (24,5,50,20);
clrscr;
textcolor (6);
write(#218);
for i:=1 to 24 do
write(#196);
writeln(#191);
textcolor (9);
writeln(#179,' Created by Francyz! ',#179);
textcolor (6);
writeln(#179,' ******************* ',#179);
writeln(#179,' Выполнить задачу #1 ',#179);
writeln(#179,' Выполнить задачу #2 ',#179);
writeln(#179,' Выполнить задачу #3 ',#179);
writeln(#179,' Выполнить задачу #4 ',#179);
writeln(#179,' Выполнить задачу #5 ',#179);
writeln(#179,' Выполнить задачу #6 ',#179);
writeln(#179,' Выполнить задачу #7 ',#179);
writeln(#179,' Выполнить задачу #8 ',#179);
writeln(#179,' |======================',#179);
writeln(#179,' Завеpшение пpогpаммы 0 ',#179);
write(#192);
for i:=1 to 24 do
write(#196);
writeln(#217);
write('Выбеpите задачу: ');
readln(x);
case x of
'1':
begin zd1; goto 10; end;
'2':
begin zd2; goto 10; end;
'3':
begin zd3; goto 10; end;
'4':
begin zd4; goto 10; end;
'5':
begin zd5; goto 10; end;
'6':
begin zd6; goto 10; end;
'7':
begin zd7; goto 10; end;
'8':
begin zd8; goto 10; end;
'0': exit;
end;
goto 10;
end.
|
Всего сообщений: 1 | Присоединился: июнь 2007 | Отправлено: 20 июня 2007 23:08 | IP
|
|
Liv Kristine
Новичок
|
Люди!!! Помогите решить задачи по Паскалю!!! Плиииииииииз
1. Дано число n и n целых чисел. Найти среднее арифметическое проложительных чисел
2. Дано число n и n целых чисел. Найти максимальный элемент и его номер
|
Всего сообщений: 1 | Присоединился: июнь 2007 | Отправлено: 21 июня 2007 14:26 | IP
|
|
|
Форум
Турбо Паскаль. Программирование на Pascal
