NVU это Open Source проект Linspire по созданию визуального (WYSIWYG) HTML редактора. Как и для Firefox и Thunderbird основой для создания NVU послужила часть кода выделенного из Mozilla - код Mozilla Composer. К созданию NVU был привлечен главный архитектор Mozilla Composer - Дэниел Глазман. На сегодняшний день NVU имеет уже достаточно много возможностей отсутствующих в оригинальном Mozilla Composer. Это Менеджер сайтов, позволяющий редактировать страницы на удаленном сервере, встроенный Редактор CSS c предварительным просмотром стилей, цветная подсветка синтаксиса в режиме редактирования кода, проверка орфографии и многое другое. Разработчики обещают поднять его функциональность до уровня FrontPage и Dreamweaver.
ИЗУЧЕНИЕ ЗАКОНОВ РАВНОУСКОРЕННОГО ДВИЖЕНИЯ 1. Цель работы: изучение динамики поступательного движения связанной системы тел с учетом силы трения; оценка роли трения как источника систематической погрешности при определении ускорения свободного падения на лабораторной установке. 2. Перечень приборов и принадлежностей: для выполнения данной лабораторной работы нам потребуется: установка «машина Атвуда», электронный секундомер, набор грузов массой М=0,186 кг, m=0,072 кг. 3. Материал для изучения: Уравнения динамики поступательного движения; сила трения; определение погрешностей измерений.
Внимание! Если ссылка не работает, файл не найден или просто возникают какие-либо вопросы, напишите об этом, пожалуйста, мне на почту: xdypx@yandex.ru. В письме достаточно указать ссылку на эту страницу и описание проблемы или свой вопрос.
Описание: Задача:
Создать типизированный файл и найти произведение цифр, стоящих на нечетных местах.
Пример:
1 23 456 1234
1*3*5*1*3=45
Исходный код: program name; uses crt;
{===========================} {sozdaem fail i zapolnyaem ego 4islami} procedure createfile(filename:string); var f:file of integer; a:integer; Begin Assign(f,filename); rewrite(f); writeln('input 4isla '); readln(a); While a<>0 do Begin write(f,a); readln(a); End; close(f); End;
{===========================} {vivodim na ekran sodergimoe faila} procedure printfile(filename:string); var f:file of integer; a:integer; Begin Assign(f,filename); reset(f); while not eof(f) do Begin read(f,a); write(a,' '); End; close(f); End; {proizvedenie cifr na ne4etnom meste} procedure pods4et(filename:string); var f:file of integer; b,j,i,p,k:integer; a:integer; c:array[1..5] of integer; Begin Assign(f,filename); reset(f); j:=0; p:=1; while not eof(f) do Begin read(f,a); i:=1; repeat c[i]:=a mod 10; i:=i+1; k:=i; a:=a div 10; until a=0; {==================} for i:=k-1 downto 1 do Begin write(c[i]); j:=j+1; if (j mod 2<>0) then p:=p*c[i]; End; write(' '); End; writeln('proizvedenie=',p); close(f); End;
BEGIN clrscr; createfile('C:\1.txt'); printfile('C:1.txt'); writeln; writeln('=================='); pods4et('C:\1.txt'); readln; END.
помогите пожалуста решить задачку в паскале, нужно срочно, у меня коннтрольная: дана матрица An,n . если значение ннаименьшего элемента выше главной диагонали больше заданной величины В , то вывести значение суммы элементов главой диагонали, в противном случае выдать сообщение "меньше В" нужно код программы и желательно блок схему ..
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
20 Ноября 2025, Четверг
08:41
>Г Л А В Н А Я
>Ф А Й Л Ы
>С Т А Т Ь И
>Р Е Ф Е Р А Т Ы
>Ф О Р У М
>О Т З Ы В Ы
>Т Е С Т Ы
>F l a s h И Г Р Ы
>Ф О Т О Ш О П
