Seo Форум Smo советы Дорвеи |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Seo Форум Smo советы Дорвеи » Turbo Pascal 7.0 Delphi7 » Решение задач на turbo pascal , турбо паскаль, решебник по информатике
Решаю задачу на турбо паскале 10-11 класса.
Даже гости могут написать пост. Если я на сайте решаю , если нет то когда зайду !!! Так что бесполезно писать пожалуйста или подобные им просьбы
PS Если не смогу решить , то не надо ругаться матом ,я такой же человек что и вы , а не какой нибудь хакер или ему подобное
Пиримерно так , не проверял среды нет , проверяйте
program lol ;
var a:array[1..5,1..5] of integer;
i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
for i:=1 to 5 do
for j:=1 to 5 do
if (i+1=j+1) then begin
if a[1,1]+a[i,j]=a[i+1,j+1] then write(i,' ');end;
readln;
end.
помогите мне пожалуйста решить.... турбопаскаль....
дан массив целых чисел, содержащий 10 элементов. заполнить его с клавиатуры.вывести индексы тех элементов массива, значения которых больше значения предыдущего элемента.
вот вторая задача.
дана целочисленная матрица размера mxm. определить числа b1,b2,...bm, каждое из которых равно количеству четных элементов соответствующей строки.
и вот третии
найти все делители числа а расположить их в строку.
пожалуйста помоги мнееее
дан массив целых чисел, содержащий 10 элементов. заполнить его с клавиатуры.вывести индексы тех элементов массива, значения которых больше значения предыдущего элемента.
program number_one ;
var a:array[1..10] of integer;
i,j:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]<a[i+1] then write(i+1,' ');
readln;
end.
найти все делители числа а расположить их в строку.
program chislo ;
var
i,j:integer;
begin
writeln('i-?');
readln(i);
for j:=1 to i do
if i mod j=0 then write(j,' ');
readln;
end.
дана целочисленная матрица размера mxm. определить числа b1,b2,...bm, каждое из которых равно количеству четных элементов соответствующей строки.
Не совсем понял суть задачки , по подробнее или пример
посмотри пожалуйста 3 задачу. а то у меня ошибка выскакивает
Пиримерно так , не проверял среды нет , проверяйте
program lol ;
var a:array[1..5,1..5] of integer;
i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
for i:=1 to 5 do
for j:=1 to 5 do
if (i+1=j+1) then begin
if a[1,1]+a[i,j]=a[i+1,j+1] then write(i,' ');end;
readln;
end.
спасибо большое
Помоги решить вот эту задачу в Pascal
Имеется кусок свинца массой 1 кг , сколько шариков диаметром 1 см можно отлить из куска (плотность свинца 11,4 г/см кубический )
масса одного шарика 1,9 (г), 167 шариков можно отлить из 1 кг
решите пожалуйста очень надооо!
1)создать файл,элементы которого вычисляются по формуле n:=2*k-5*k+8
2)заполнить файл целыми числами полученными с помощью генератора случайных чисел.найти сумму минимального и максимального элементов этого файла и вывести на экран
3)заполнить файл целыми числами полученными с помощью генератора случайных чисел.найти и вывести квадраты нечетных компонентов
1)создать файл,элементы которого вычисляются по формуле n:=2*k-5*k+8
var f:text;
i,k:integer; n:real;
begin
writeln('k-?');readln(i);
assign(f,'1.txt');
rewrite(f);
for k:=1 to i do begin
n:=2*k-5*k+8;
write(f,n:2:0,' ');
end; close(f) ;
end.
2)заполнить файл целыми числами полученными с помощью генератора случайных чисел.найти сумму минимального и максимального элементов этого файла и вывести на экран
var f:text;
i,n,min,max:integer;a:array[1..10] of integer;
begin
assign(f,'1.txt');
rewrite(f);
randomize;
for i:=1 to 10 do
write(f,random(10),' ');
close(f);
reset(f);
for i:=1 to 10 do begin
read(f,n); a[i]:=n; end;
for i:=1 to 10 do
if a[i]<a[i+1] then min:=a[i] else max:=a[i+1];
writeln(max+min);
readln;
end.
3)заполнить файл целыми числами полученными с помощью генератора случайных чисел.найти и вывести квадраты нечетных компонентов
var f:text;
i,n:integer;
begin
assign(f,'1.txt');
rewrite(f);
randomize;
for i:=1 to 10 do
write(f,random(10),' ');
close(f);
reset(f);
for i:=1 to 10 do begin
read(f,n);
if n mod 2=1 then write(n*n,' ');end;
readln;
end.
посмотри пожалуйста 3 задачу. а то у меня ошибка выскакивает
Программка рабочая , я на делфи проверял. Тип должен быть integer если поставить real то программка не будет работать
Помоги решить вот эту задачу в Pascal
Имеется кусок свинца массой 1 кг , сколько шариков диаметром 1 см можно отлить из куска (плотность свинца 11,4 г/см кубический )масса одного шарика 1,9 (г), 167 шариков можно отлить из 1 кг
Не совсем понял , сказано же 167 шариков получиться или это надо сделать программным способом 
чтобы вывел 167
спаааасииибочки огромное просто!:-*теперь буду знать,что можно сюда общаться!честно неожидала,что так быстро поможет,благодарю
спаааасииибочки огромное просто!:-*теперь буду знать,что можно сюда общаться!честно неожидала,что так быстро поможет,благодарю
да не за что , советуйте друзьям
PS На всякий случай проверяйте программы , если не работает подправлю 
не буду ничего справлять,если неправильно пусть так и будет,а то учила не поверит что я сама сделала. очень выручил серьезно.просто это зачёт мой,не сдам отчислят.ну может пугают) спасибо, даже не знаю, чем отблагодарить. не думала что так быстро ответишь.мне к понедельнику надо,я ваще нервничала.у всех спрашивала.сама удивилась как наткнулась на этот сайт)
даже не знаю, чем отблагодарить.
Лучше скажите как вы нашли нас , по какому запросу в гугле или яндекса
В яндексе)(｡◕‿◕｡)
просто это зачёт мой
может комментировать что ? как ?
Например в первой задачке я так намутил , что училка может и не понят writeln('k-?');readln(i);. Обычно пишут так writeln('k-?');readln(k);. Можно и так , но тогда условие нарушиться n:=2*k-5*k+8 , и программку надо будет кое-где подправить
в чем разица и почему (к-?)
че то я тупанула чуток)
смотри как у еня одногрупник решил)
prorgamm pol;
var
f:text;
n,i:integer;
begin
assign(f, 'f:\uses\file.txt');
rewrite(f);
writeln('Файл заполнен числами:');
for i:=1 to 50 do
begin
n:=2*i-5*i+8;
writeln(f,n);
writeln(n);
end;
close(f);
writeln('конец файла.');
end.
var f:text; {объявление переменных}
i,k:integer; n:real;
begin
writeln('k-?');readln(i); {спрашиваем сколько чисел должно записаться в файл 1.txt , по формуле 2*k-5*k+8}
assign(f,'1.txt'); {привязка файла }
rewrite(f);{открытие текстового файла , для записи }
for k:=1 to i do begin {цикл заполнение текстового файла по формуле 2*k-5*k+8}
n:=2*k-5*k+8;
write(f,n:2:0,' ');{округляем значение до целых , также можно вместо этого написать просто for k:=1 to i do write(f,2*k-5*k+8,' '); close(f) ; end. , тут более менее понятно наверное и n надо будет убрать с var'a }
end; close(f) ; {}
end.
prorgamm pol;
var
f:text;
n,i:integer;
begin
assign(f, 'f:\uses\file.txt');
rewrite(f);
writeln('Файл заполнен числами:');
for i:=1 to 50 do
begin
n:=2*i-5*i+8;
writeln(f,n);
writeln(n);
end;
close(f);
writeln('конец файла.');
end.
Можно и так , разница тут в одном у него файл в данном случае file.txt , находиться в другой папке , поэтому указываем полный путь к файлу
понятно)спасибки:-*
Не дружу с программой Pascal,помогите решить задачу
Найти и удалить максимальный элемент одномерного массива состоящего из 10-ти элементов
Найти и удалить максимальный элемент одномерного массива состоящего из 10-ти элементов
По идее примерно так. Но у меня программа на паскале не катит. Но идея правильная , может у меня паскаль левый
var
i,k,max:integer; a:array[1..10] of integer;
begin
for i:=1 to 10 do
read(a[i]);
max:=a[1];
k:=1;
for i:=1 to 10 do
if a[i]<a[i+1] then begin max:=a[i+1]; i:=k; end;
if k=1 then begin
for i:=2 to 10 do
writeln(a[i]); end;
for i:=1 to k-1 do
write(a[i],' ');
for i:=k+1 to 10 do
write(a[i],'');
readln;
end.
Спасибо огромное!
Не знаю,чтобы я делала! Спасибо!
Помоги решить пожалуйста!!!!!!!
Сформируйте массив, содержащий 15 элементов, с помощью датчика слу-
чайных чисел. Получите новый массив, каждый элемент которого равен сумме
соответствующего исходного элемента и его квадрата. В полученном массиве
найдите максимальный элемент и его номер. Выведите на экран исходные и
полученные результаты.))))))))
Помоги решить пожалуйста!!!!!!!
Сформируйте массив, содержащий 15 элементов, с помощью датчика слу-
чайных чисел. Получите новый массив, каждый элемент которого равен сумме
соответствующего исходного элемента и его квадрата. В полученном массиве
найдите максимальный элемент и его номер. Выведите на экран исходные и
полученные результаты.))))))))
Проверяйте у меня паскаль что то не хочет открывать , а так ошибок нету.
var
i,j,max:integer; a:array[1..10] of integer;
begin randomize;
for i:=1 to 15 do
a[i]:=random(10);
for i:=1 to 15 do
write(a[i],' ');
writeln;
i:=1;
for j:=1 to 15 do begin
a[j]:=sqr(a[i]+a[i+1]); i:=i+1; end;
for j:=1 to 1 do
write(a[j],' ');
writeln;
a[j]:=max;
for j:=1 to 15 do
if a[j]<a[j+1] then max:=a[j+1];
weite(max,' ' ,j);
readln;
end.
Спасибо огромное))))))))
Спасибо огромное))))))))
Вы это , проверяйте вдруг не работает
Составить схему алгоритма главной программы и подпрограммы, главную программу и подпрограмму. Значения исходных данных выбрать самостоятельно
.
помогите решить
дано натуральное число N.заменить в нём все "единицы" на "пяторки"
Вы здесь » Seo Форум Smo советы Дорвеи » Turbo Pascal 7.0 Delphi7 » Решение задач на turbo pascal , турбо паскаль, решебник по информатике