Seo Форум Smo советы Дорвеи |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Seo Форум Smo советы Дорвеи » Turbo Pascal 7.0 Delphi7 » Решение задач на turbo pascal , турбо паскаль, решебник по информатике
Решаю задачу на турбо паскале 10-11 класса.
Даже гости могут написать пост. Если я на сайте решаю , если нет то когда зайду !!! Так что бесполезно писать пожалуйста или подобные им просьбы
PS Если не смогу решить , то не надо ругаться матом ,я такой же человек что и вы , а не какой нибудь хакер или ему подобное
дано натуральное число N.заменить в нём все "единицы" на "пяторки"
var s:string;i:integer;
begin
writeln('chislo-?');
readln(s);
for i:=1 to length(s) do
if s[i]='1' then s[i]:='5';
write(s);
readln;
end.
zirix201
Посмотрю вечером , задачки-то трудные , не знаю смогу ли решить
заранее благодарен
Ввести двумерный массив.Написать процедуру,которая выводит на экран столбец с номером k.
Ввести двумерный массив.Вывести его в виде таблицы.Написать процедуру которая выводит номер строки с наименьшим элементом
Seo, такие сможешь решить??
К завтрашнему дню срочно нужно
Ввести двумерный массив.Написать процедуру,которая выводит на экран столбец с номером k.
var i,j,k:integer; a:array[1..10,1..10] of integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
a[i,j]:=random(10);
for i:=1 to 10 do begin
for j:=1 to 10 do
write(a[i,j],' ');
writeln;
end;
writeln('k-?'); readln(k);
for j:=1 to 10 do
write(a[j,k],' ');
readln;
end.
Ввести двумерный массив.Вывести его в виде таблицы.Написать процедуру которая выводит номер строки с наименьшим элементом
Обязательно процедурой , просто я не люблю их , просто он на* не нужен.
PS Если будет 2 таких строк то что , можно пример хотя бы на матрице 3*3
Все спасибо,2ю не надо уже-другие люди помогли)
Даны целое число n, вещественные числа x1,...,xn. В последовательности x1,...,xn все элементы, значения которых меньше двух, заменить нулями. Кроме того, получить сумму элементов, принадлежащих отрезку [3,7], а также число таких элементов
Даны целое число n, вещественные числа x1,...,xn. В последовательности x1,...,xn все элементы, значения которых меньше двух, заменить нулями. Кроме того, получить сумму элементов, принадлежащих отрезку [3,7], а также число таких элементов
Вообще не понятная задачка , как я понял так и написал , или напишите примеры
var
i,sum:integer; a:array[1..10] of integer;
begin
sum:=0 ;randomize;
for i:=1 to 10 do
a[i]:=random(10);
for i:=1 to 10 do
write(a[i],' ');
writeln;
writeln;
for i:=1 to 10 do begin
if a[i]<2 then a[i]:=0;
write(a[i],' '); end;
writeln;
for i:=3 to 7 do
sum:=a[i]+sum;
writeln;
write(sum);
readln;
end.
Народ помогите! Надо сдавать типовик по информатике. Вот задача:
Вводятся две вещественные прямоугольные матрицы размером M*N и K*L. Для той матрицы, у которой сумма элементов, лежащих после первого отрицательного элемента меньше, составить одномерный массив из средних арифметических значений положительных элементов в столбцах матрицы и отсортировать его в порядке возрастания элементов. Вывести на печать саму матрицу, найденную сумму и отсортированный одномерный массив.
(решить надо через функции и процедуры)
Заранее благодарен!
ну что решить сможешь?
Народ помогите! Надо сдавать типовик по информатике. Вот задача:
Вводятся две вещественные прямоугольные матрицы размером M*N и K*L. Для той матрицы, у которой сумма элементов, лежащих после первого отрицательного элемента меньше, составить одномерный массив из средних арифметических значений положительных элементов в столбцах матрицы и отсортировать его в порядке возрастания элементов. Вывести на печать саму матрицу, найденную сумму и отсортированный одномерный массив.
(решить надо через функции и процедуры)
Заранее благодарен!
да такого уровня я паскаль не знаю , тут надо 2-3 думать , а времени у меня под арест нет , учу делфи , с ним ход напишу норм проги
10 класс...
10 класс...
нихило , когда я учился такого не было. Ну вот на практике эти массивы вообще не нужны.
Ладно завтра посмотрю , может решу
Ввести с клавиатуры три числа (x,y,z). Если x<y<z, то все числа удвоить.
Если z<y<x, то максимальное число возвести в квадрат. Если числа не
удовлетворяют ни одному из условий – обнулить их.
Определить, можно ли вписать две непересекающиеся окружности
радиуса R в квадрат со стороной a.
Ввести с клавиатуры три числа (x,y,z). Если x<y<z, то все числа удвоить.
Если z<y<x, то максимальное число возвести в квадрат. Если числа не
удовлетворяют ни одному из условий – обнулить их.
задача 2 Определить, можно ли вписать две непересекающиеся окружности
радиуса R в квадрат со стороной a
Ввести с клавиатуры три числа (x,y,z). Если x<y<z, то все числа удвоить.Если z<y<x, то максимальное число возвести в квадрат. Если числа неудовлетворяют ни одному из условий – обнулить их.задача 2 Определить, можно ли вписать две непересекающиеся окружностирадиуса R в квадрат со стороной a
Тебе это когда нужно. Ничего если завтра порешу
я буду рад если завтра пришлете , заранее спасибо
Ввести с клавиатуры три числа (x,y,z). Если x<y<z, то все числа удвоить.
Если z<y<x, то максимальное число возвести в квадрат. Если числа не
удовлетворяют ни одному из условий – обнулить их.
var x,y,z:integer;
begin
writeln('x,y,z'); readln(x,y,z);
if ((x<y) and (y<z)) then begin writeln('x=',x*x, ' y=',y*y , ' z=',z*z); readln; exit; end; // если условие выполняется по программа заканчивает свою работу , если не писать будет выводиться нули
if ((z<y) and (y<x)) then writeln(x*x) else writeln('x=0', ' y=0' , ' z=0');
readln;
end.
Определить, можно ли вписать две непересекающиеся окружности
радиуса R в квадрат со стороной a
Я такую формулу не видел , и пришлось свою придумывать. Если знаешь поменяешь условие (выделено красным)
var a,r:integer;
begin
writeln('a,r'); readln(a,r);
if (a>4*(r-1)) then writeln('yes') else writeln('no');
readln;
end.
Спасибо большое
задание 1 Среди 20 заданных чисел найти первое отрицательное число, модуль
которого больше 50.
Дана произвольная последовательность чисел a1,a2,..,a15. Вывести на
экран все числа, которые входят в последовательность по одному разу.
Найти наименьший элемент матрицы размером m×n.
задание 1 Среди 20 заданных чисел найти первое отрицательное число, модуль
которого больше 50.
Задачка какая то левая , если не будет числа меньше -50 , она ничего не будет выводить
var i:integer; a:array[1..20] of integer;
begin
for i:=1 to 20 do
read(a[i]);
for i:=1 to 20 do
if a[i]<-50 then begin writeln(a[i]); exit; readln; end;
readln;
end.
Найти наименьший элемент матрицы размером m×n.
var i,j,min:integer; a:array[1..5,1..5] of integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
read(a[i,j]);
min:=a[1,1];
for i:=1 to 5 do
for j:=1 to 5 do
if a[i,j]<min then min:=a[i,j];
writeln(min);
readln;
end.
Дана произвольная последовательность чисел a1,a2,..,a15. Вывести на
экран все числа, которые входят в последовательность по одному разу.
не понял задачку можно пример.
спасибо !
а вот как можно указать в этой задачи что числа отрицательные нельзя вводить? ?
var a,r:integer;
begin
writeln('a,r'); readln(a,r);
if (a>4*(r-1)) then writeln('yes') else writeln('no');
readln;
end.
ну можно тупо взять его по модулю , и потом вывести для одаренных чтобы он учил геометрию.
или можно условие добавить для проверки
if (a or R)<0 then writeln('MAT');
пфффффффф
Очень ценная информация
Очень ценная информация
где ? 
а можете помочь сделать блок схему для этой задачи)))?
var a,r:integer;
begin
writeln('a,r'); readln(a,r);
if (a>4*(r-1)) then writeln('yes') else writeln('no');
readln;
end
Художник от слово худо 
Вместо усл надо написать (a>4*(r-1))
Вы здесь » Seo Форум Smo советы Дорвеи » Turbo Pascal 7.0 Delphi7 » Решение задач на turbo pascal , турбо паскаль, решебник по информатике
